+++ /dev/null
-<?\r
-@session_start();\r
-$sessionid=session_id();\r
-require_once("../../path_index.php");\r
-function isAjax() {\r
-return (isset($_SERVER['HTTP_X_REQUESTED_WITH']) && \r
- ($_SERVER['HTTP_X_REQUESTED_WITH'] == 'XMLHttpRequest'));\r
-}\r
-if (!isAjax()) {echo "No AJAX request...";} \r
-else\r
-{\r
- $conn = pg_connect(POSTGIS_CS);\r
-\r
- \r
-if (pg_ErrorMessage($conn)) \r
-{ \r
- echo "<p><b>Ocurrio un error conectando a la base de datos: .</b></p>"; \r
- }\r
- else \r
- {\r
-\r
-\r
-$user=$_GET['user'];\r
-if (!(session_is_registered($user))) {\r
-\r
-session_register($user);\r
-}\r
-else\r
-{\r
-//WE DELETE POINT_POL VALUES!!!!! (IT MUST BE IMPROVED OTHERWISE TWO USERS CANNOT ANALYZE ON THE SAME TIME)\r
-// $sql="delete from point_pol where userid='$user';vacuum analyze point_pol;";\r
- \r
- pg_exec ($conn, $sql) or die ("nooo");\r
- \r
-// echo $user." has YES been there";\r
-}\r
-\r
-\r
-$polygon=$_GET['polygon'];\r
-\r
-include 'ppol_records.php';\r
-$sxe = simplexml_load_string($xmlstr);\r
-include 'ppol_taxa_records.php';\r
-$taxa_xml = simplexml_load_string($taxa_record);\r
-include 'ppol_genera.php';\r
-$genera_xml = simplexml_load_string($xmlstr_genera);\r
-//$pol=$_GET['param'];\r
-//$user=$_GET['user'];\r
-$sld_num_regs=(rand()%3000)."_num_regs.sld";\r
-$sld_taxa_rec=(rand()%3000)."_taxa_record.sld";\r
-$sld_genera=(rand()%3000)."_genera.sld";\r
-\r
-$sld_path=DIR_PLATFORM.'/edit_wp5/geo/sld/analysis/';\r
-$regs_path=DIR_PLATFORM.'/edit_wp5/geo/sld/analysis/'.$sld_num_regs;\r
-$taxa_xml_path=DIR_PLATFORM.'/edit_wp5/geo/sld/analysis/'.$sld_taxa_rec;\r
-$gen_path=DIR_PLATFORM.'/edit_wp5/geo/sld/analysis/'.$sld_genera;\r
-\r
-\r
-\r
- $poligon_sql="DELETE FROM sld10;";\r
-\r
-\r
-$poligon_sql.="insert into point_pol (userid,code,the_geom,numreg,numtax) select p.userid, poly.code,poly.the_geom, COUNT(p.pk),count(distinct(p.genus)) from user_points p INNER JOIN $polygon poly ON p.userid='$user' and poly.the_geom && p.the_geom and CONTAINS(poly.the_geom,p.the_geom) group by p.userid,poly.code,poly.the_geom";\r
-//echo $poligon_sql;\r
- pg_exec($poligon_sql) or die ("algun errorrrr poligon_sql11"); \r
-//$update="UPDATE point_pol SET taxa_record = round2(((SELECT (CASE WHEN numtax>0 THEN numtax/numreg ELSE 1 END))),4) where userid='$user'";\r
-$update="UPDATE point_pol SET taxa_record = round2(((SELECT (CASE WHEN numtax>0 THEN numtax/numreg ELSE 1 END))),4) where userid='$user'";\r
-pg_exec($update) or die ("error in update");\r
-\r
-$r="select distinct(numreg) from point_pol where userid='$user' order by numreg";\r
-$s="select distinct(numtax) from point_pol where userid='$user' order by numtax";\r
-$tax_rec="select distinct(taxa_record) from point_pol where userid='$user' order by taxa_record";\r
-\r
-\r
-\r
-$postgis_result=pg_exec($r) or die("aixo no va be");\r
-$postgis_result2=pg_exec($s) or die("aixo no va be");\r
-$pg_tax_rec=pg_exec($tax_rec) or die("aixo no va be");\r
-//tax/rec\r
-$numFilas_tax_rec =pg_NumRows($pg_tax_rec);\r
-//records\r
-$numFilas_t =pg_NumRows($postgis_result);\r
-//genus\r
-$numFilas2 =pg_NumRows($postgis_result2);\r
-\r
-\r
-\r
-if ($numFilas_tax_rec<10)\r
-{\r
-$gml = new DOMDocument;\r
-\r
-$gml ="<?xml version=\"1.0\" encoding=\"LATIN1\"?>";\r
-$gml.="<gml><total>".$numFilas_tax_rec."</total>";\r
-\r
-for($i=0;$i<$numFilas_tax_rec;$i++)\r
-{\r
- $array = pg_Fetch_Array($pg_tax_rec,$i);\r
- $gml .="<polygon>";\r
- $gml .="<order>".$i."</order><tax_rec>".$array[0]."</tax_rec>";\r
- $gml.="</polygon>";\r
-}\r
-$gml.="</gml>";\r
-//pg_close($conn);\r
-$dom_new = new DOMDocument();\r
-$xsl = new XSLTProcessor;\r
-$xsl->setParameter( '', 'userid', $user);\r
-//if we have very few records we generate a different legend!\r
-if ($numFilas_tax_rec<6)\r
-{\r
-\r
-$style = realpath('php_xsl/pp5_tax_rec_SLD.xsl');\r
-}\r
-else \r
-{\r
- $style = realpath('php_xsl/pp10_tax_rec_SLD.xsl');\r
-}\r
-$dom_new->load($style);\r
-$xsl->importStyleSheet($dom_new);\r
-$dom_new->loadXML($gml);\r
-$out = $xsl->transformToXML($dom_new);\r
- $fp=fopen($sld_path.$sld_taxa_rec,"w");\r
- $write=fwrite($fp,$out);\r
-\r
- }\r
-$v['sld_taxa_rec']=$sld_taxa_rec; \r
-//over Genus\r
-if ($numFilas2<10)\r
-{\r
-$gml = new DOMDocument;\r
-\r
-$gml ="<?xml version=\"1.0\" encoding=\"LATIN1\"?>";\r
-$gml.="<gml><total>".$numFilas2."</total>";\r
-\r
-for($i=0;$i<$numFilas2;$i++)\r
-{\r
- $array = pg_Fetch_Array($postgis_result2,$i);\r
- $gml .="<polygon>";\r
- $gml .="<order>".$i."</order><numtax>".$array[0]."</numtax>";\r
- $gml.="</polygon>";\r
-}\r
-$gml.="</gml>";\r
-//pg_close($conn);\r
-$dom_new = new DOMDocument();\r
-$xsl = new XSLTProcessor;\r
-$xsl->setParameter( '', 'userid', $user);\r
-//if we have very few records we generate a different legend!\r
-if ($numFilas2<6)\r
-{\r
-$style = realpath('php_xsl/pp5_numgenus_SLD.xsl');\r
-}\r
-else \r
-{\r
- $style = realpath('php_xsl/pp10_numgenus_SLD.xsl');\r
-}\r
-$dom_new->load($style);\r
-$xsl->importStyleSheet($dom_new);\r
-$dom_new->loadXML($gml);\r
-$out = $xsl->transformToXML($dom_new);\r
-\r
-$v['sld_genera']=$sld_genera;\r
-\r
-\r
- $fp=fopen($sld_path.$sld_genera,"w");\r
- $write=fwrite($fp,$out);\r
- } \r
-//NOW, THE RECORDS\r
-if ($numFilas_t<10)\r
-{\r
-$gml = new DOMDocument;\r
-\r
-$gml ="<?xml version=\"1.0\" encoding=\"LATIN1\"?>";\r
-$gml.="<gml><total>".$numFilas_t."</total>";\r
-for($i=0;$i<$numFilas_t;$i++)\r
-{\r
- $array = pg_Fetch_Array($postgis_result,$i);\r
- $gml .="<polygon>";\r
- $gml .="<order>".$i."</order><numreg>".$array[0]."</numreg>";\r
- $gml.="</polygon>";\r
-}\r
-$gml.="</gml>";\r
-//pg_close($conn);\r
-$dom_new = new DOMDocument();\r
-$xsl = new XSLTProcessor;\r
-$xsl->setParameter( '', 'userid', $user);\r
-//if we have very few records we generate a different legend!\r
-if ($numFilas<6)\r
-{\r
-$style = realpath('php_xsl/pp5_numreg_SLD.xsl');\r
-}\r
-else \r
-{\r
- $style = realpath('php_xsl/pp10_numreg_SLD.xsl');\r
-}\r
-$dom_new->load($style);\r
-$xsl->importStyleSheet($dom_new);\r
-$dom_new->loadXML($gml);\r
-$out = $xsl->transformToXML($dom_new);\r
-\r
-$v['sld_num_regs']=$sld_num_regs;\r
- $fp=fopen($sld_path.$sld_num_regs,"w");\r
- $write=fwrite($fp,$out);\r
- } \r
-\r
-else\r
-{\r
-//SLD10 TABLE STORES RANGES (0-10, 10-20....) that will be used on the legend\r
-$poligon_sql3="BEGIN;INSERT INTO sld10 (categoria, userid) VALUES (1, '$user');INSERT INTO sld10 (categoria, userid) VALUES (2, '$user'); INSERT INTO sld10 (categoria, userid) VALUES (3, '$user'); INSERT INTO sld10 (categoria, userid) VALUES (4, '$user'); INSERT INTO sld10 (categoria, userid) VALUES (5, '$user'); INSERT INTO sld10 (categoria, userid) VALUES (6, '$user');INSERT INTO sld10 (categoria, userid) VALUES (7, '$user');INSERT INTO sld10 (categoria, userid) VALUES (8, '$user'); INSERT INTO sld10 (categoria, userid) VALUES (9, '$user'); INSERT INTO sld10 (categoria, userid) VALUES (10, '$user');COMMIT;"; \r
-\r
-//generate MAX and MINs for GENERA in SLD10 table\r
-$poligon_sql3.="UPDATE ONLY sld10 set max_g = (select max(numtax) from point_pol where userid='$user')*categoria/10 where userid='$user';UPDATE ONLY sld10 set min_g = ((max_g - ((select max (numtax) from point_pol where userid='$user'))/10)) where categoria = 1 and userid='$user';";\r
-\r
-//generate MAX and MINs for RECORDS in SLD10 table\r
-$poligon_sql3.="UPDATE ONLY sld10 set maximo = (select max(numreg) from point_pol where userid='$user')*categoria/10 where userid='$user';UPDATE ONLY sld10 set minimo = ((maximo - ((select max (numreg) from point_pol where userid='$user'))/10)) where categoria = 1 and userid='$user';";\r
-\r
-pg_exec($poligon_sql3) or die ("algun errorrrr333");\r
-$pol4="UPDATE ONLY sld10 set minimo = ((maximo - ((select max (numreg) from point_pol where userid='$user'))/10)+1) where categoria != 1 and userid='$user';";\r
-\r
-$pol4.="UPDATE ONLY sld10 set min_g = ((max_g - ((select max (numtax) from point_pol where userid='$user'))/10)+1) where categoria != 1 and userid='$user';";\r
-\r
-pg_exec($pol4) or die ("algun errorrrr444");\r
-\r
-\r
-$sql="select distinct(categoria) from sld10 where userid='$user'";\r
-$postgis_result=pg_query($sql) or die ("algun error");\r
-$numFilas =pg_NumRows($postgis_result);\r
-\r
-$low_taxa="select ((max(taxa_record)-min(taxa_record))/10) from point_pol where userid='$user'";\r
-$low_taxa_result=pg_query($low_taxa) or die ("algun errorxu1");\r
-$taxarec = pg_Fetch_Array($low_taxa_result,0);\r
-\r
-$min="select min(taxa_record),min(numreg) from point_pol where userid='$user'";\r
-$min_result=pg_query($min) or die ("algun errorxu2");\r
-$minimo = pg_Fetch_Array($min_result,0);\r
-\r
-\r
-\r
-for($z=0;$z<$numFilas;$z++)\r
-{\r
-$result_matriz2 = pg_Fetch_Array($postgis_result,$z);\r
-$categoria=$result_matriz2[0];\r
-\r
-$sql_min="select minimo,min_g from sld10 where userid='$user' and categoria=$categoria;";\r
-\r
-$sql_min_execute=pg_query($sql_min) or die ("no min");\r
-$sql_min_array = pg_Fetch_Array($sql_min_execute,0);\r
-\r
-$sql_max="select maximo,max_g from sld10 where userid='$user' and categoria=$categoria;";\r
-\r
-$sql_max_execute=pg_query($sql_max) or die ("no max");\r
-$sql_max_array = pg_Fetch_Array($sql_max_execute,0);\r
-\r
-$min_registros=$sql_min_array[0];\r
-$max_registros=$sql_max_array[0];\r
-\r
-$min_genera=$sql_min_array[1];\r
-$max_genera=$sql_max_array[1];\r
-\r
-\r
-$min_max=$min_registros."-".$max_registros;\r
-//CAMBIAR!!!\r
-//$min_max_genera=$min_genera."-".$max_genera;\r
-$min_max_genera=$max_genera."-".$min_genera;\r
-\r
-//WE GENERATE THE SLDs, updating XMLs coming from .php with generated SLD10 table values\r
-$sxe->NamedLayer->UserStyle->FeatureTypeStyle->Rule[$z]->Name=$min_max;\r
-//$sxe->NamedLayer->UserStyle->FeatureTypeStyle->Rule[$z]->Name=$min_max;\r
-$sxe->NamedLayer->UserStyle->FeatureTypeStyle->Rule[$z]->Filter->And->PropertyIsEqualTo->Literal=$user;\r
-$sxe->NamedLayer->UserStyle->FeatureTypeStyle->Rule[$z]->Filter->And->PropertyIsGreaterThanOrEqualTo->Literal=$min_registros;\r
-$sxe->NamedLayer->UserStyle->FeatureTypeStyle->Rule[$z]->Filter->And->PropertyIsLessThanOrEqualTo->Literal=$max_registros;\r
-\r
-$genera_xml->NamedLayer->UserStyle->FeatureTypeStyle->Rule[$z]->Name=$min_max_genera;\r
-$genera_xml->NamedLayer->UserStyle->FeatureTypeStyle->Rule[$z]->Filter->And->PropertyIsEqualTo->Literal=$user;\r
-$genera_xml->NamedLayer->UserStyle->FeatureTypeStyle->Rule[$z]->Filter->And->PropertyIsGreaterThanOrEqualTo->Literal=$max_genera;\r
-$genera_xml->NamedLayer->UserStyle->FeatureTypeStyle->Rule[$z]->Filter->And->PropertyIsLessThanOrEqualTo->Literal=$min_genera;\r
-\r
-\r
-\r
-$minimo_taxa_record=$minimo[0]+($taxarec[0]*($categoria-1));\r
-$minimo_taxa_record=round($minimo_taxa_record,4);\r
-//echo round($minimo_taxa_record,4)."<br>";\r
-\r
-$maximo_taxa_record=$minimo[0]+($taxarec[0]*($categoria));\r
-$maximo_taxa_record=round($maximo_taxa_record,4);\r
-$min_max=$minimo_taxa_record."-".$maximo_taxa_record;\r
-//echo $min_max."for taxa ".$z;\r
-\r
-$taxa_xml->NamedLayer->UserStyle->FeatureTypeStyle->Rule[$z]->Filter->And->PropertyIsEqualTo->Literal=$user;\r
-$taxa_xml->NamedLayer->UserStyle->FeatureTypeStyle->Rule[$z]->Filter->And->PropertyIsGreaterThanOrEqualTo->Literal=$minimo_taxa_record;\r
-$taxa_xml->NamedLayer->UserStyle->FeatureTypeStyle->Rule[$z]->Filter->And->PropertyIsLessThanOrEqualTo->Literal=$maximo_taxa_record;\r
-$taxa_xml->NamedLayer->UserStyle->FeatureTypeStyle->Rule[$z]->Name=$min_max;\r
-\r
-}\r
-\r
-$sxe->NamedLayer->UserStyle->FeatureTypeStyle->Rule[$numFilas]->Filter->PropertyIsEqualTo->Literal=$user;\r
-$taxa_xml->NamedLayer->UserStyle->FeatureTypeStyle->Rule[$numFilas]->Filter->PropertyIsEqualTo->Literal=$user;\r
-$genera_xml->NamedLayer->UserStyle->FeatureTypeStyle->Rule[$numFilas]->Filter->PropertyIsEqualTo->Literal=$user;\r
-\r
-\r
-$v['sld_num_regs']=$sld_num_regs;\r
-\r
-\r
-$sxe->asXML($regs_path);\r
-\r
-$taxa_xml->asXML($taxa_xml_path);\r
-\r
-$genera_xml->asXML($gen_path);\r
-\r
-}\r
-$bbox_sql="select extent(the_geom) from (Select distinct code,the_geom from point_pol where userid='$user' limit 15) as x"; \r
- $postgis_result=pg_query($bbox_sql);\r
- while ($row = pg_fetch_array($postgis_result, NULL, PGSQL_ASSOC))\r
- {\r
- $b=substr($row['extent'],4);\r
- $c=substr($b,0,-1); \r
- $bbox=str_replace(' ',',',$c);\r
- $v['bbox']=$bbox;\r
- }\r
-\r
-echo json_encode($v);\r
-}\r
-}\r
-?>
\ No newline at end of file
BGBM BDI Projects / geo.git / blobdiff