TIPO |
DESTINAZIONE |
COPERTURA |
";
$foglio = $row3['foglio'];
$area_sezione = $row3['area'];
$particella = $row3['numero'];
$idparticella = $row3['id'];
// PARTICELLE INTERESSATE
echo "\n\t\n\t\t| Foglio {$foglio} e Particella {$particella} | \n\t ";
//####### BEGIN RECORD ########
$record_paesaggio[] = "Foglio ".$foglio." - Particella ".$particella."\n";
$record_tutela[] = "Foglio ".$foglio." - Particella ".$particella."\n";
$record_vincoli[] = "Foglio ".$foglio." - Particella ".$particella."\n";
//####### END RECORD ########
// INIZIO DEFINIZIONE DELLA COPERTURA DELLA ZONAZIONE
$query_zoning = "SELECT a.descdest, ST_AREA(ST_intersection(a.geom, b.geom)) AS areazto FROM (SELECT descdest, geom FROM public.zoning_stir) a, (SELECT ST_GeomFromEWKT('SRID=25833;".$_SESSION['geom']."') as geom) b WHERE ST_Intersects (a.geom,b.geom)";
$result_query_zoning = pg_query($conn, $query_zoning) or die('Query query_zoning failied');
if (pg_num_rows($result_query_zoning) > 0) {
while($row4 = pg_fetch_assoc($result_query_zoning)) {
$areazto_percent = round(($row4['areazto']/$area_sezione)*100,2);
//$zto_array[] = $row4['zon_sigla']." - ".row4['zon_descr'];
//####### BEGIN RECORD ########
//$record_form[] = row4['zon_descr']."\n";
//####### END RECORD ########
if ($areazto_percent > 1) {
echo "\n\t\n\t\t| Zona di PRG | \n\t\t{$row4['descdest']} | \n\t\t ({$areazto_percent}%) | \n\t ";
//$ntart[] = $row4['zon_art'];
}}}
// FINE DEFINIZIONE DELLA COPERTURA DELLA ZONAZIONE
// INIZIO DEFINIZIONE DELLA COPERTURA DEI VINCOLI DI PRG
$query_prgvincoli = "SELECT a.zon_descr, ST_AREA(ST_intersection(a.geom, b.geom)) AS areavinc FROM (SELECT zon_descr, geom FROM ".strtolower($_SESSION['COMUNE_PROV']).".vincoli) a, (SELECT ST_GeomFromEWKT('SRID=25833;".$_SESSION['geom']."') as geom) b WHERE ST_Intersects (a.geom,b.geom)";
$result_query_prgvincoli = pg_query($conn, $query_prgvincoli) or die('Query query_prgvincoli failied');
if (pg_num_rows($result_query_prgvincoli) > 0) {
while($row5 = pg_fetch_assoc($result_query_prgvincoli)) {
$areavinc_percent = round(($row5['areavinc']/$area_sezione)*100,2);
if ($areavinc_percent > 10) {
echo "\n\t\n\t\t| Vincolo di PRG | \n\t\t{$row5['zon_descr']} | \n\t\t ({$areavinc_percent}%) | \n\t ";
}
}
}
// FINE DEFINIZIONE DELLA COPERTURA DEI VINCOLI DI PRG
// INIZIO DEFINIZIONE DELLA COPERTURA DEI VINCOLI BBCCAA
$query_regimi = "SELECT a.pl, a.liv_tutela, a.contesto, ST_AREA(ST_intersection(a.geom, b.geom)) AS areabbccaa FROM (SELECT pl, liv_tutela, contesto, geom FROM ".strtolower($_SESSION['COMUNE_PROV']).".regimi_normativi) a, (SELECT ST_GeomFromEWKT('SRID=25833;".$_SESSION['geom']."') as geom) b WHERE ST_Intersects (a.geom,b.geom)";
$result_query_regimi = pg_query($conn, $query_regimi) or die('Query query_regimi failied');
if (pg_num_rows($result_query_regimi) > 0) {
while($row6 = pg_fetch_assoc($result_query_regimi)) {
$area_bbccaa_percent = round(($row6['areabbccaa']/$area_sezione)*100,2);
switch ($row6['liv_tutela']) {
case 1:
$bbccaa = "Livello di tutela 1";
break;
case 2:
$bbccaa = "Livello di tutela 2";
break;
case 3:
$bbccaa = "Livello di tutela 3";
break;
case 4:
$bbccaa = "Livello di tutela 4";
break;
default:
$bbccaa = "";
}
if ($area_bbccaa_percent > 1) {
echo "\n\t\n\t\tPiano Paesaggistico Regionale
Regimi Normativi | \n\t\tPaesaggio locale {$row6['pl']}
{$bbccaa} - Contesto {$row6['contesto']}
{$row6['contesto']} | \n\t\t ({$area_bbccaa_percent}%) | \n\t ";
//####### BEGIN RECORD ########
$record_paesaggio[] = "Paesaggio Locale: ".$row6['pl']." Contesto: ".$row6['contesto']."\n";
$record_tutela[] = $bbccaa."\n";
//####### END RECORD ########
}}}
// FINE DEFINIZIONE DELLA COPERTURA DEI VINCOLI BBCCAA
if ($_SESSION['COMUNE_PROV'] == 'TP') {
// INIZIO DEFINIZIONE DELLA COPERTURA REGIMI NORMATIVI TP1
$query_regimi_tp1 = "SELECT a.regime_nor, a.denominazi, a.codice, ST_AREA(ST_intersection(a.geom, b.geom)) AS areatp1 FROM (SELECT regime_nor, denominazi, codice, geom FROM ".strtolower($_SESSION['COMUNE_PROV']).".regimi_normativi_tp1) a, (SELECT ST_GeomFromEWKT('SRID=25833;".$_SESSION['geom']."') as geom) b WHERE ST_Intersects (a.geom,b.geom)";
$result_query_regimi_tp1 = pg_query($conn, $query_regimi_tp1) or die('Query query_regimi_tp1 failied');
if (pg_num_rows($result_query_regimi_tp1) > 0) {
while($row6 = pg_fetch_assoc($result_query_regimi_tp1)) {
$area_bbccaa_percent = round(($row6['areatp1']/$area_sezione)*100,2);
if ($area_bbccaa_percent > 1) {
echo "\n\t\n\t\tPiano Paesaggistico Regionale
Regimi Normativi (Ambito 1) | \n\t\tDenominazione {$row6['denominazi']}
Codice {$row6['codice']} - Reg. Norm. {$row6['regime_nor']}
{$row6['contesto']} | \n\t\t ({$area_bbccaa_percent}%) | \n\t ";
//####### BEGIN RECORD ########
$record_paesaggio[] = "Denominazione: ".$row6['denominazi']." Codice: ".$row6['codice']."\n";
//####### END RECORD ########
}}}
// FINE DEFINIZIONE DELLA COPERTURA REGIMI NORMATIVI TP1
// INIZIO DEFINIZIONE DELLA COPERTURA FASCIA COSTA
$query_costa = "SELECT ST_AREA(ST_intersection(a.geom, b.geom)) AS area_costa FROM (SELECT geom FROM ".strtolower($_SESSION['COMUNE_PROV']).".fascia_rispetto_costa) a, (SELECT ST_GeomFromEWKT('SRID=25833;".$_SESSION['geom']."') as geom) b WHERE ST_Intersects (a.geom,b.geom)";
$result_query_costa = pg_query($conn, $query_costa) or die('Query query_costa failied');
if (pg_num_rows($result_query_costa) > 0) {
while($row6bb = pg_fetch_assoc($result_query_costa)) {
$area_v_percent = round(($row6bb['area_costa']/$area_sezione)*100,2);
if ($area_v_percent > 1) {
echo "\n\t\n\t\tPiano Paesaggistico Regionale
Regimi Normativi (Ambito 1) | \n\t\tFascia di rispetto della costa - art. 54 NdA | \n\t\t ({$area_v_percent}%) | \n\t ";
//####### BEGIN RECORD ########
$record_vincoli[] = "Fascia di rispetto della costa - art. 54 NdA\n";
//####### BEGIN RECORD ########
}}}
// FINE DEFINIZIONE DELLA COPERTURA FASCIA COSTA
// INIZIO DEFINIZIONE DELLA COPERTURA AREA RECUPERO
$query_recupero = "SELECT ST_AREA(ST_intersection(a.geom, b.geom)) AS area_recupero FROM (SELECT geom FROM ".strtolower($_SESSION['COMUNE_PROV']).".area_recupero) a, (SELECT ST_GeomFromEWKT('SRID=25833;".$_SESSION['geom']."') as geom) b WHERE ST_Intersects (a.geom,b.geom)";
$result_query_recupero = pg_query($conn, $query_recupero) or die('Query query_recupero failied');
if (pg_num_rows($result_query_recupero) > 0) {
while($row6cc = pg_fetch_assoc($result_query_recupero)) {
$area_v_percent = round(($row6cc['area_recupero']/$area_sezione)*100,2);
if ($area_v_percent > 1) {
echo "\n\t\n\t\tPiano Paesaggistico Regionale
Regimi Normativi (Ambito 1) | \n\t\tArea di recupero - art. 51 NdA | \n\t\t ({$area_v_percent}%) | \n\t ";
//####### BEGIN RECORD ########
$record_vincoli[] = "Area di recupero - art. 51 NdA\n";
//####### BEGIN RECORD ########
}}}
// FINE DEFINIZIONE DELLA COPERTURA AREA RECUPERO
}
// INIZIO DEFINIZIONE DELLA COPERTURA V_1497
$query_v_1497 = "SELECT ST_AREA(ST_intersection(a.geom, b.geom)) AS area_v_1497 FROM (SELECT geom FROM ".strtolower($_SESSION['COMUNE_PROV']).".v_1497) a, (SELECT ST_GeomFromEWKT('SRID=25833;".$_SESSION['geom']."') as geom) b WHERE ST_Intersects (a.geom,b.geom)";
$result_query_v_1497 = pg_query($conn, $query_v_1497) or die('Query query_v_1497 failied');
if (pg_num_rows($result_query_v_1497) > 0) {
while($row6a = pg_fetch_assoc($result_query_v_1497)) {
$area_v_percent = round(($row6a['area_v_1497']/$area_sezione)*100,2);
if ($area_v_percent > 1) {
echo "\n\t\n\t\t| BENI PAESAGGISTICI | \n\t\tArea tutelata (art.136, D.lgs.42/04) | \n\t\t ({$area_v_percent}%) | \n\t ";
//####### BEGIN RECORD ########
$record_vincoli[] = "Area tutelata (art.136, D.lgs.42/04)\n";
//####### BEGIN RECORD ########
}}}
// FINE DEFINIZIONE DELLA COPERTURA V_1497
// INIZIO DEFINIZIONE DELLA COPERTURA V_ARCHEO
$query_v_archeo = "SELECT ST_AREA(ST_intersection(a.geom, b.geom)) AS area_v_archeo FROM (SELECT geom FROM ".strtolower($_SESSION['COMUNE_PROV']).".v_archeo) a, (SELECT ST_GeomFromEWKT('SRID=25833;".$_SESSION['geom']."') as geom) b WHERE ST_Intersects (a.geom,b.geom)";
$result_query_v_archeo = pg_query($conn, $query_v_archeo) or die('Query query_v_archeo failied');
if (pg_num_rows($result_query_v_archeo) > 0) {
while($row6b = pg_fetch_assoc($result_query_v_archeo)) {
$area_v_archeo_percent = round(($row6b['area_v_archeo']/$area_sezione)*100,2);
if ($area_v_archeo_percent > 1) {
echo "\n\t\n\t\t| BENI PAESAGGISTICI | \n\t\tVincolo Archeologico (art.10, D.lgs.42/04) | \n\t\t ({$area_v_archeo_percent}%) | \n\t ";
//####### BEGIN RECORD ########
$record_vincoli[] = "Vincolo Archeologico (art.10, D.lgs.42/04)\n";
//####### BEGIN RECORD ########
}}}
// FINE DEFINIZIONE DELLA COPERTURA V_ARCHEO
// INIZIO DEFINIZIONE DELLA COPERTURA V_BOSCHI
/* */
$query_v_boschi = "SELECT ST_AREA(ST_intersection(a.geom, b.geom)) AS area_v_boschi FROM (SELECT geom FROM ".strtolower($_SESSION['COMUNE_PROV']).".v_boschi) a, (SELECT ST_GeomFromEWKT('SRID=25833;".$_SESSION['geom']."') as geom) b WHERE ST_Intersects (a.geom,b.geom)";
$result_query_v_boschi = pg_query($conn, $query_v_boschi) or die('Query query_v_boschi failied');
if (pg_num_rows($result_query_v_boschi) > 0) {
while($row6c = pg_fetch_assoc($result_query_v_boschi)) {
$area_v_boschi_percent = round(($row6c['area_v_boschi']/$area_sezione)*100,2);
if ($area_v_boschi_percent > 1) {
echo "\n\t\n\t\t| BENI PAESAGGISTICI | \n\t\tAree boscate (art.142, lett. g, D.lgs.42/04) | \n\t\t ({$area_v_boschi_percent}%) | \n\t ";
//####### BEGIN RECORD ########
$record_vincoli[] = "Aree boscate (art.142, lett. g, D.lgs.42/04)\n";
//####### BEGIN RECORD ########
}}}
// FINE DEFINIZIONE DELLA COPERTURA V_BOSCHI
// INIZIO DEFINIZIONE DELLA COPERTURA V_COSTA
$query_v_costa = "SELECT ST_AREA(ST_intersection(a.geom, b.geom)) AS area_v_costa FROM (SELECT geom FROM ".strtolower($_SESSION['COMUNE_PROV']).".v_costa) a, (SELECT ST_GeomFromEWKT('SRID=25833;".$_SESSION['geom']."') as geom) b WHERE ST_Intersects (a.geom,b.geom)";
//echo $query_v_costa."
";
$result_query_v_costa = pg_query($conn, $query_v_costa) or die('Query query_v_costa failied');
if (pg_num_rows($result_query_v_costa) > 0) {
while($row6d = pg_fetch_assoc($result_query_v_costa)) {
$area_v_percent = round(($row6d['area_v_costa']/$area_sezione)*100,2);
if ($area_v_percent > 1) {
echo "\n\t\n\t\t| BENI PAESAGGISTICI | \n\t\tAree costa 300m (art.142, lett.a, D.lgs. 42/04) | \n\t\t ({$area_v_percent}%) | \n\t ";
//####### BEGIN RECORD ########
$record_vincoli[] = "Aree costa 300m (art.142, lett.a, D.lgs. 42/04)\n";
//####### BEGIN RECORD ########
}}}
// FINE DEFINIZIONE DELLA COPERTURA V_COSTA
// INIZIO DEFINIZIONE DELLA COPERTURA V_FIUMI
$query_v_fiumi = "SELECT ST_AREA(ST_intersection(a.geom, b.geom)) AS area_v_fiumi FROM (SELECT geom FROM ".strtolower($_SESSION['COMUNE_PROV']).".v_fiumi) a, (SELECT ST_GeomFromEWKT('SRID=25833;".$_SESSION['geom']."') as geom) b WHERE ST_Intersects (a.geom,b.geom)";
$result_query_v_fiumi = pg_query($conn, $query_v_fiumi) or die('Query query_v_fiumi failied');
if (pg_num_rows($result_query_v_fiumi) > 0) {
while($row6e = pg_fetch_assoc($result_query_v_fiumi)) {
$area_v_percent = round(($row6e['area_v_fiumi']/$area_sezione)*100,2);
if ($area_v_percent > 1) {
echo "\n\t\n\t\t| BENI PAESAGGISTICI | \n\t\tAree fiumi 150m (art.142, lett. c, D.lgs.42/04) | \n\t\t ({$area_v_percent}%) | \n\t ";
//####### BEGIN RECORD ########
$record_vincoli[] = "Aree fiumi 150m (art.142, lett. c, D.lgs.42/04)\n";
//####### BEGIN RECORD ########
}}}
// FINE DEFINIZIONE DELLA COPERTURA V_FIUMI
// INIZIO DEFINIZIONE DELLA COPERTURA V_INTERESSE_ARCHEO
$query_v_interesse_archeo = "SELECT ST_AREA(ST_intersection(a.geom, b.geom)) AS area_v_interesse_archeo FROM (SELECT geom FROM ".strtolower($_SESSION['COMUNE_PROV']).".v_interesse_archeo) a, (SELECT ST_GeomFromEWKT('SRID=25833;".$_SESSION['geom']."') as geom) b WHERE ST_Intersects (a.geom,b.geom)";
$result_query_v_interesse_archeo = pg_query($conn, $query_v_interesse_archeo) or die('Query query_v_interesse_archeo failied');
if (pg_num_rows($result_query_v_interesse_archeo) > 0) {
while($row6f = pg_fetch_assoc($result_query_v_interesse_archeo)) {
$area_v_percent = round(($row6f['area_v_interesse_archeo']/$area_sezione)*100,2);
if ($area_v_percent > 1) {
echo "\n\t\n\t\t| BENI PAESAGGISTICI | \n\t\tAree di interesse archeologico (art.142, lett. m, D.lgs.42/04) | \n\t\t ({$area_v_percent}%) | \n\t ";
//####### BEGIN RECORD ########
$record_vincoli[] = "Aree di interesse archeologico (art.142, lett. m, D.lgs.42/04)\n";
//####### BEGIN RECORD ########
}}}
// FINE DEFINIZIONE DELLA COPERTURA V_INTERESSE_ARCHEO
// INIZIO DEFINIZIONE DELLA COPERTURA V_LAGHI
$query_v_laghi = "SELECT ST_AREA(ST_intersection(a.geom, b.geom)) AS area_v_laghi FROM (SELECT geom FROM ".strtolower($_SESSION['COMUNE_PROV']).".v_laghi) a, (SELECT ST_GeomFromEWKT('SRID=25833;".$_SESSION['geom']."') as geom) b WHERE ST_Intersects (a.geom,b.geom)";
$result_query_v_laghi = pg_query($conn, $query_v_laghi) or die('Query query_v_laghi failied');
if (pg_num_rows($result_query_v_laghi) > 0) {
while($row6g = pg_fetch_assoc($result_query_v_laghi)) {
$area_v_percent = round(($row6g['area_v_laghi']/$area_sezione)*100,2);
if ($area_v_percent > 1) {
echo "\n\t\n\t\t| BENI PAESAGGISTICI | \n\t\tAree laghi 300m (art.142, lett. b, D.lgs. 42/04) | \n\t\t ({$area_v_percent}%) | \n\t ";
//####### BEGIN RECORD ########
$record_vincoli[] = "Aree laghi 300m (art.142, lett. b, D.lgs. 42/04)\n";
//####### BEGIN RECORD ########
}}}
// FINE DEFINIZIONE DELLA COPERTURA V_LAGHI
// INIZIO DEFINIZIONE DELLA COPERTURA V_LETTERA_C
$query_v_lettera_c = "SELECT ST_AREA(ST_intersection(a.geom, b.geom)) AS area_v_lettera_c FROM (SELECT geom FROM ".strtolower($_SESSION['COMUNE_PROV']).".v_lettera_c) a, (SELECT ST_GeomFromEWKT('SRID=25833;".$_SESSION['geom']."') as geom) b WHERE ST_Intersects (a.geom,b.geom)";
$result_query_v_lettera_c = pg_query($conn, $query_v_lettera_c) or die('Query query_v_lettera_c failied');
if (pg_num_rows($result_query_v_lettera_c) > 0) {
while($row6h = pg_fetch_assoc($result_query_v_lettera_c)) {
$area_v = $row6h['area_v_lettera_c'];
$area_v_percent = round(($area_v/$area_sezione)*100,2);
if ($area_v_percent > 1) {
echo "\n\t\n\t\t| BENI PAESAGGISTICI | \n\t\tAree tutelate (art.134, lett. c, D.lgs. 42/04) | \n\t\t ({$area_v_percent}%) | \n\t ";
//####### BEGIN RECORD ########
$record_vincoli[] = "Aree tutelate (art.134, lett. c, D.lgs. 42/04)\n";
//####### BEGIN RECORD ########
}}}
// FINE DEFINIZIONE DELLA COPERTURA V_LETTERA_C
// INIZIO DEFINIZIONE DELLA COPERTURA V_RISERVE
$query_v_riserve = "SELECT ST_AREA(ST_intersection(a.geom, b.geom)) AS area_v_riserve FROM (SELECT geom FROM ".strtolower($_SESSION['COMUNE_PROV']).".v_riserve) a, (SELECT ST_GeomFromEWKT('SRID=25833;".$_SESSION['geom']."') as geom) b WHERE ST_Intersects (a.geom,b.geom)";
$result_query_v_riserve = pg_query($conn, $query_v_riserve) or die('Query query_v_riserve failied');
if (pg_num_rows($result_query_v_riserve) > 0) {
while($row6i = pg_fetch_assoc($result_query_v_riserve)) {
$area_v = $row6i['area_v_riserve'];
$area_v_percent = round(($area_v/$area_sezione)*100,2);
if ($area_v_percent > 1) {
echo "\n\t\n\t\t| BENI PAESAGGISTICI | \n\t\tAree riserve regionali (art.142, lett. f, D.lgs.42/04) | \n\t\t ({$area_v_percent}%) | \n\t ";
//####### BEGIN RECORD ########
$record_vincoli[] = "Aree riserve regionali (art.142, lett. f, D.lgs.42/04)\n";
//####### BEGIN RECORD ########
}}}
// FINE DEFINIZIONE DELLA COPERTURA V_RISERVE
// INIZIO DEFINIZIONE DELLA COPERTURA V_PARCHI
$query_v_parchi = "SELECT ST_AREA(ST_intersection(a.geom, b.geom)) AS area_v_parchi FROM (SELECT geom FROM ".strtolower($_SESSION['COMUNE_PROV']).".v_parchi) a, (SELECT ST_GeomFromEWKT('SRID=25833;".$_SESSION['geom']."') as geom) b WHERE ST_Intersects (a.geom,b.geom)";
$result_query_v_parchi = pg_query($conn, $query_v_parchi) or die('Query query_v_parchi failied');
if (pg_num_rows($result_query_v_parchi) > 0) {
while($row6l = pg_fetch_assoc($result_query_v_parchi)) {
$area_v_percent = round(($row6l['area_v_parchi']/$area_sezione)*100,2);
if ($area_v_percent > 1) {
echo "\n\t\n\t\t| BENI PAESAGGISTICI | \n\t\tParchi regionali (art.142, lett. f, D.lgs.42/04)
{$row6l['denom']} | \n\t\t ({$area_v_percent}%) | \n\t ";
//####### BEGIN RECORD ########
$record_vincoli[] = "Parchi regionali (art.142, lett. f, D.lgs.42/04)\n";
//####### BEGIN RECORD ########
}}}
// FINE DEFINIZIONE DELLA COPERTURA V_PARCHI
// INIZIO DEFINIZIONE DELLA COPERTURA V_1200
$query_v_1200 = "SELECT ST_AREA(ST_intersection(a.geom, b.geom)) AS area_v_1200 FROM (SELECT geom FROM ".strtolower($_SESSION['COMUNE_PROV']).".v_1200) a, (SELECT ST_GeomFromEWKT('SRID=25833;".$_SESSION['geom']."') as geom) b WHERE ST_Intersects (a.geom,b.geom)";
$result_query_v_1200 = pg_query($conn, $query_v_1200) or die('Query query_v_1200 failied');
if (pg_num_rows($result_query_v_1200) > 0) {
while($row6m = pg_fetch_assoc($result_query_v_1200)) {
$area_v_percent = round(($row6m['area_v_1200']/$area_sezione)*100,2);
if ($area_v_percent > 1) {
echo "\n\t\n\t\t| BENI PAESAGGISTICI | \n\t\tAree al di sopra di 1200 (art.142, lett. d, D.lgs.42/04) | \n\t\t ({$area_v_percent}%) | \n\t ";
//####### BEGIN RECORD ########
$record_vincoli[] = "Aree al di sopra di 1200 (art.142, lett. d, D.lgs.42/04)\n";
//####### BEGIN RECORD ########
}}}
// FINE DEFINIZIONE DELLA COPERTURA V_1200
// INIZIO DEFINIZIONE DELLA COPERTURA V_VULCANO
$query_v_vulcano = "SELECT ST_AREA(ST_intersection(a.geom, b.geom)) AS area_vulcano FROM (SELECT geom FROM ".strtolower($_SESSION['COMUNE_PROV']).".v_vulcano) a, (SELECT ST_GeomFromEWKT('SRID=25833;".$_SESSION['geom']."') as geom) b WHERE ST_Intersects (a.geom,b.geom)";
$result_query_v_vulcano = pg_query($conn, $query_v_vulcano) or die('Query query_v_vulcano failied');
if (pg_num_rows($result_query_v_vulcano) > 0) {
while($row6m = pg_fetch_assoc($result_query_v_vulcano)) {
$area_v_percent = round(($row6m['area_vulcano']/$area_sezione)*100,2);
if ($area_v_percent > 1) {
echo "\n\t\n\t\t| BENI PAESAGGISTICI | \n\t\tVincolo area vulcano | \n\t\t ({$area_v_percent}%) | \n\t ";
//####### BEGIN RECORD ########
$record_vincoli[] = "Vincolo area vulcano\n";
//####### BEGIN RECORD ########
}}}
// FINE DEFINIZIONE DELLA COPERTURA V_VULCANO
// INIZIO DEFINIZIONE DELLA COPERTURA DEL VINCOLO IDROGEOLOGICO
$query_v_idrogeol = "SELECT ST_AREA(ST_intersection(a.geom, b.geom)) AS areaidro FROM (SELECT geom FROM rscarto.sif_vincolo_idrogeo_sicilia) a, (SELECT ST_GeomFromEWKT('SRID=25833;".$_SESSION['geom']."') as geom) b WHERE ST_Intersects (a.geom,b.geom)";
$result_query_v_idrogeol = pg_query($conn, $query_v_idrogeol) or die('Query query_v_idrogeol failied');
if (pg_num_rows($result_query_v_idrogeol) > 0) {
while($row7 = pg_fetch_assoc($result_query_v_idrogeol)) {
$area_idro_percent = round(($row7['areaidro']/$area_sezione)*100,2);
if ($area_idro_percent > 1) {
echo "\n\t\n\t\t| Vincolo Idrogeologico | \n\t\tR.D.L. n° 3267 del 30/12/1923 | \n\t\t ({$area_idro_percent}%) | \n\t ";
//####### BEGIN RECORD ########
$record_vincoli[] = "Vincolo Idrogeologico (R.D.L. n° 3267 del 30/12/1923)\n";
//####### BEGIN RECORD ########
}}}
// FINE DEFINIZIONE DELLA COPERTURA VINCOLO IDROGEOLOGICO
// INIZIO DEFINIZIONE DELLA COPERTURA DEL VINCOLO BOSCHI DL227
/* */
$query_dl227 = "SELECT ST_AREA(ST_intersection(a.geom, b.geom)) AS areadl227 FROM (SELECT geom FROM ".strtolower($_SESSION['COMUNE_PROV']).".sif_dl227) a, (SELECT ST_GeomFromEWKT('SRID=25833;".$_SESSION['geom']."') as geom) b WHERE ST_Intersects (a.geom,b.geom)";
$result_query_dl227 = pg_query($conn, $query_dl227) or die('Query query_dl227 failied');
if (pg_num_rows($result_query_dl227) > 0) {
while($row72 = pg_fetch_assoc($result_query_dl227)) {
$area_dl227_percent = round(($row72['areadl227']/$area_sezione)*100,2);
if ($area_dl227_percent > 1) {
echo "\n\t\n\t\t| Vincolo Boschi | \n\t\t Art.2 D.L. 18 maggio 2001, n. 227 | \n\t\t ({$area_dl227_percent}%) | \n\t ";
//####### BEGIN RECORD ########
$record_vincoli[] = "Vincolo Boschi (Art.2 D.L. 18 maggio 2001, n. 227)\n";
//####### END RECORD ########
}}}
// FINE DEFINIZIONE DELLA COPERTURA DEL VINCOLO BOSCHI DL227
// INIZIO DEFINIZIONE DELLA COPERTURA DEL VINCOLO BOSCHI LR16
/* */
$query_lr16 = "SELECT ST_AREA(ST_intersection(a.geom, b.geom)) AS arealr16 FROM (SELECT geom FROM ".strtolower($_SESSION['COMUNE_PROV']).".sif_lr16) a, (SELECT ST_GeomFromEWKT('SRID=25833;".$_SESSION['geom']."') as geom) b WHERE ST_Intersects (a.geom,b.geom)";
$result_query_lr16 = pg_query($conn, $query_lr16) or die('Query query_lr16 failied');
if (pg_num_rows($result_query_lr16) > 0) {
while($row8 = pg_fetch_assoc($result_query_lr16)) {
$area_lr16_percent = round(($row8['arealr16']/$area_sezione)*100,2);
if ($area_lr16_percent > 1) {
echo "\n\t\n\t\t| Vincolo Boschi | \n\t\t L.R. 16/96 art. 4 | \n\t\t {$copertura_lr16} ({$area_lr16_percent}%) | \n\t ";
//####### BEGIN RECORD ########
$record_vincoli[] = "Vincolo Boschi (L.R. 16/96 art. 4)\n";
//####### END RECORD ########
}}}
// FINE DEFINIZIONE DELLA COPERTURA DEL VINCOLO BOSCHI LR16
// INIZIO DEFINIZIONE DELLA COPERTURA SIC-ZPS
$query_siczps = "SELECT a.denom, ST_AREA(ST_intersection(a.geom, b.geom)) AS areasiczps FROM (SELECT denom, geom FROM rscarto.sic_zps) a, (SELECT ST_GeomFromEWKT('SRID=25833;".$_SESSION['geom']."') as geom) b WHERE ST_Intersects (a.geom,b.geom)";
$result_query_siczps = pg_query($conn, $query_siczps) or die('Query query_siczps failied');
if (pg_num_rows($result_query_siczps) > 0) {
while($row81 = pg_fetch_assoc($result_query_siczps)) {
$area_siczps_percent = round(($row81['areasiczps']/$area_sezione)*100,2);
if ($area_siczps_percent > 1) {
echo "\n\t\n\t\t| SIC - ZPS | \n\t\t{$row81['codice']} - {$row81['denom']} | \n\t\t ({$area_siczps_percent}%) | \n\t ";
//####### BEGIN RECORD ########
$record_vincoli[] = "SIC-ZPS (".$row81['codice']."-".$row81['denom'].")\n";
//####### END RECORD ########
}}}
// FINE DEFINIZIONE DELLA COPERTURA SIC-ZPS
// INIZIO DEFINIZIONE DELLA COPERTURA RISERVE
$query_riserve = "SELECT a.denom, ST_AREA(ST_intersection(a.geom, b.geom)) AS areariserve FROM (SELECT denom, geom FROM rscarto.riserve_sicilia) a, (SELECT ST_GeomFromEWKT('SRID=25833;".$_SESSION['geom']."') as geom) b WHERE ST_Intersects (a.geom,b.geom)";
$result_query_riserve = pg_query($conn, $query_riserve) or die('Query query_riserve failied');
if (pg_num_rows($result_query_riserve) > 0) {
while($row82 = pg_fetch_assoc($result_query_riserve)) {
$area_riserva_percent = round(($row82['areariserve']/$area_sezione)*100,2);
if ($area_riserva_percent > 1) {
echo "\n\t\n\t\t| RISERVE | \n\t\t{$row82['codice']} - {$row82['denom']} | \n\t\t ({$area_riserva_percent}%) | \n\t ";
//####### BEGIN RECORD ########
$record_vincoli[] = "RISERVE (".$row82['codice']."-".$row82['denom'].")\n";
//####### END RECORD ########
}}}
// FINE DEFINIZIONE DELLA COPERTURA RISERVE
// INIZIO DEFINIZIONE DELLA COPERTURA PAI IDRO RISCHIO
$query_idro_rischio = "SELECT a.rischio, ST_AREA(ST_intersection(a.geom, b.geom)) AS area_idro_rischio FROM (SELECT rischio, geom FROM rscarto.pai_idr_r) a, (SELECT ST_GeomFromEWKT('SRID=25833;".$_SESSION['geom']."') as geom) b WHERE ST_Intersects (a.geom,b.geom)";
$result_query_idro_rischio = pg_query($conn, $query_idro_rischio) or die('Query query_idro_rischio failied');
if (pg_num_rows($result_query_idro_rischio) > 0) {
while($row9 = pg_fetch_assoc($result_query_idro_rischio)) {
$area_idro_r_percent = round(($row9['area_idro_rischio']/$area_sezione)*100,2);
if ($area_idro_r_percent > 1) {
echo "\n\t\n\t\t| P.A.I. | \n\t\tRischio Idraulico - {$row9['rischio']} | \n\t\t ({$area_idro_r_percent}%) | \n\t ";
//####### BEGIN RECORD ########
$record_vincoli[] = "P.A.I. (Rischio Idraulico - ".$row9['rischio'].")\n";
//####### END RECORD ########
}}}
// FINE DEFINIZIONE DELLA COPERTURA PAI IDRO RISCHIO
// INIZIO DEFINIZIONE DELLA COPERTURA PAI IDRO PERICOLOSITA'
$query_idro_pericolo = "SELECT a.pericolo, ST_AREA(ST_intersection(a.geom, b.geom)) AS area_idro_pericolo FROM (SELECT pericolo, geom FROM rscarto.pai_idr_p_sa) a, (SELECT ST_GeomFromEWKT('SRID=25833;".$_SESSION['geom']."') as geom) b WHERE ST_Intersects (a.geom,b.geom)";
$result_query_idro_pericolo = pg_query($conn, $query_idro_pericolo) or die('Query query_idro_pericolo failied');
if (pg_num_rows($result_query_idro_pericolo) > 0) {
while($row10 = pg_fetch_assoc($result_query_idro_pericolo)) {
$area_idro_p_percent = round(($row10['area_idro_pericolo']/$area_sezione)*100,2);
if ($area_idro_r_percent > 1) {
echo "\n\t\n\t\t| P.A.I. | \n\t\tPericolosità Idraulica - {$row10['pericolo']} | \n\t\t ({$area_idro_p_percent}%) | \n\t ";
//####### BEGIN RECORD ########
$record_vincoli[] = "P.A.I. (Pericolosità Idraulica - ".$row10['pericolo'].")\n";
//####### END RECORD ########
}}}
// FINE DEFINIZIONE DELLA COPERTURA PAI IDRO RISCHIO
// INIZIO DEFINIZIONE DELLA COPERTURA PAI GEOMORF RISCHIO
$query_geo_rischio = "SELECT a.rischio, ST_AREA(ST_intersection(a.geom, b.geom)) AS area_geo_rischio FROM (SELECT rischio, geom FROM rscarto.pai_geo_rischio) a, (SELECT ST_GeomFromEWKT('SRID=25833;".$_SESSION['geom']."') as geom) b WHERE ST_Intersects (a.geom,b.geom)";
$result_query_geo_rischio = pg_query($conn, $query_geo_rischio) or die('Query query_geo_rischio failied');
if (pg_num_rows($result_query_geo_rischio) > 0) {
while($row11 = pg_fetch_assoc($result_query_geo_rischio)) {
$area_geo_r_percent = round(($row11['area_geo_rischio']/$area_sezione)*100,2);
if ($area_geo_r_percent > 10) {
echo "\n\t\n\t\t| P.A.I. | \n\t\tRischio Geomorfologico - {$row11['rischio']} | \n\t\t ({$area_geo_r_percent}%) | \n\t ";
//####### BEGIN RECORD ########
$record_vincoli[] = "P.A.I. (Rischio Geomorfologico - ".$row11['rischio'].")\n";
//####### END RECORD ########
}}}
// FINE DEFINIZIONE DELLA COPERTURA PAI GEOMORF RISCHIO
// INIZIO DEFINIZIONE DELLA COPERTURA PAI GEOMORF PERICOLOSITA
$query_geo_pericolo = "SELECT a.pericolo, ST_AREA(ST_intersection(a.geom, b.geom)) AS area_geo_pericolo FROM (SELECT pericolo, geom FROM rscarto.pai_geo_peric) a, (SELECT ST_GeomFromEWKT('SRID=25833;".$_SESSION['geom']."') as geom) b WHERE ST_Intersects (a.geom,b.geom)";
$result_query_geo_pericolo = pg_query($conn, $query_geo_pericolo) or die('Query query_geo_pericolo failied');
if (pg_num_rows($result_query_geo_pericolo) > 0) {
while($row12 = pg_fetch_assoc($result_query_geo_pericolo)) {
$area_geo_p_percent = round(($row12['area_geo_pericolo']/$area_sezione)*100,2);
if ($area_geo_p_percent > 1) {
echo "\n\t\n\t\t| P.A.I. | \n\t\tPericolosità Geomorfologica - {$row12['pericolo']} | \n\t\t ({$area_geo_p_percent}%) | \n\t ";
//####### BEGIN RECORD ########
$record_vincoli[] = "P.A.I. (Pericolosità Geomorfologica - ".$row12['pericolo'].")\n";
//####### END RECORD ########
}}}
// FINE DEFINIZIONE DELLA COPERTURA PAI GEOMORF PERICOLOSITA
// INIZIO DEFINIZIONE DELLA COPERTURA SIN
$query_sin = "SELECT a.denominaz, ST_AREA(ST_intersection(a.geom, b.geom)) AS area_sin FROM (SELECT denominaz, geom FROM rscarto.sin) a, (SELECT ST_GeomFromEWKT('SRID=25833;".$_SESSION['geom']."') as geom) b WHERE ST_Intersects (a.geom,b.geom)";
$result_query_sin = pg_query($conn, $query_sin) or die('Query query_sin failied');
if (pg_num_rows($result_query_sin) > 0) {
while($rowsin = pg_fetch_assoc($result_query_sin)) {
$area_sin_percent = round(($rowsin['area_sin']/$area_sezione)*100,2);
if ($area_sin_percent > 1) {
echo "\n\t\n\t\t| SIN | \n\t\tSito di Interesse Nazionale | \n\t\t ({$area_sin_percent}%) | \n\t ";
//####### BEGIN RECORD ########
$record_vincoli[] = "SIN (Sito di Interesse Nazionale)\n";
//####### END RECORD ########
}}}
// FINE DEFINIZIONE DELLA COPERTURA SIN
}
//pg_close($conn);
?>
|
