function F_GBIKAART($p) { $tokens = explode("|", $p); if (count($tokens) >= 2) { $sWaarde = $tokens[0]; $sDatacode = $tokens[1]; $sKaart = $tokens[2]; $sPosition = $tokens[3]; $sLaag = $tokens[4]; $sImglink = $tokens[5]; $sSearch = $tokens[6]; } F_LOG("Bekijk kaart :" . $sKaart); F_STYLE(); print "<div class=\"linkerkolom\">\n"; if ($sWaarde == "DATASETLIST") { print "<div class=\"broodkruimel\">\n"; print "<a href=\"http://www.provincie.drenthe.nl\">Home</a><span class=\"tussenteken\"> </span><a href=\"index.php\">Geoportaal</a><span class=\"tussenteken\"> </span><a href=\"?e=@GBI&p=DATASETEDIT|" . $sDatacode . "|" . $sKaart . "|" . $sPosition . "|" . $sLaag . "|" . "\">Gegevens kaartlaag</A><span class=\"tussenteken\"> </span>Kaart: {$sKaart}\n"; print "</div>\n"; print "<br>\n"; } else { print "<div class=\"broodkruimel\">\n"; print "<a href=\"http://www.provincie.drenthe.nl\">Home</a><span class=\"tussenteken\"> </span><a href=\"index.php\">Geoportaal</a><span class=\"tussenteken\"> </span><a href=\"?e=@GBI&p=SEARCHLIST|" . $sPosition . "|next|" . $sSearch . "\">Zoeken op trefwoord</a><span class=\"tussenteken\"> </span><a href=\"?e=@GBI&p=DATASETEDIT|" . $sDatacode . "|" . $sKaart . "|" . $sPosition . "|" . $sLaag . "|" . $sSearch . "\">Gegevens kaartlaag</A><span class=\"tussenteken\"> </span>Kaart: {$sKaart}\n"; print "</div>\n"; print "<br>\n"; } print "</div>\n"; print "<script type=\"text/javascript\" src=\"js/swfobject.js\"></script>\n"; //print("<script type=\"text/javascript\" src=\"js/layers.js\"></script>\n"); print "<script type=\"text/javascript\" src=\"js/fscripts10.js\"></script>\n"; print "<style type=\"text/css\">\n"; print "#flashcontent { height: 100%; width: 100%; }\n"; print "</style>\n"; print "<body>\n"; print "<br>\n"; print "<center>\n"; print "<table class=\"tabelkader\">\n"; print "<tr>\n"; print "<td class=\"tabelkop\">\n"; $sImsid = explode(".", $sLaag); print "<div class=\"nieuwsberichten\">\n"; print "<div class=\"geo\">\n"; $sAltTitel = F_SELECTRECORD("SELECT ALT_TITEL FROM DATASET WHERE DATACODE = " . $sDatacode); print "<A HREF=\"kaart.php?e=@KAART&p=" . $sAltTitel . "\" TARGET=\"_blank\">Kaart in volledig scherm</A>"; //print("<A HREF=\"?e=@GBIKAARTFULL&laag=geoportaal&vis=" . $sImsid[1] . "&gdb=" . $sKaart . "&gdb_legend=" . $sImglink . "&full=true" . "\" TARGET=\"_blank\">Kaart in volledig scherm</A>"); print "</div>\n"; print "</td>\n"; print "</tr>\n"; print "<tr>\n"; print "<td class=\"tabelflash\">\n"; print "<div id=\"flashcontent\">\n"; print "</div>\n"; print "</td>\n"; print "</tr>\n"; print "</table>\n"; print "</center>\n"; print "<script type=\"text/javascript\">\n"; print "goFlamingo(\"../config\",\"geoportaal,locationfinder\");\n"; print "</script>"; //print("<script type=\"text/javascript\">\n"); //print("var so = new SWFObject(\"flamingo/flamingo.swf?config=../config/test.xml\", \"flamingo\", \"100%\", \"100%\", \"8\", \"#eaeaea\");\n"); //print("so.write(\"flashcontent\");\n"); //print("</script>\n"); print "<br>\n"; F_ENDSTYLE(); }
function F_GBILISTBOXGEO($p) { $tokens = explode("|", $p); $sTable = $tokens[0]; $sField = $tokens[1]; $sWhere = $tokens[2]; $sLookup = $tokens[3]; $sRecordValue = F_SELECTRECORD("SELECT " . $sField . " FROM " . $sTable . " WHERE " . $sWhere); if (@$_SESSION["GBIPRO"] != "") { if ($sRecordValue == "") { return "-"; } else { $sQuery = F_SELECTRECORD("SELECT CONTACTPERSOON FROM " . $sLookup . " WHERE CONTACT_ID = " . $sRecordValue); return $sQuery; } } else { $sQuery = F_SELECTRECORD("SELECT CONTACT_ID, CONTACTPERSOON FROM " . $sLookup); $aRecords = explode("|", $sQuery); print "<SELECT onchange=" . "\"" . "execserver('?e=@GBIEXEC&p=UPDATE" . "|" . $sTable . "|" . $sField . "|" . $sWhere . "|" . "' + this.value);" . "\"" . ">\n"; print "<OPTION VALUE=" . "\"" . "\"" . "></OPTION>\n"; for ($iRecord = 0; $iRecord < count($aRecords); $iRecord++) { $sRecord = $aRecords[$iRecord]; $aRecord = explode("^", $sRecord); $sId = $aRecord[0]; $sSoort = $aRecord[1]; if ($sRecordValue == $sId) { print "<OPTION VALUE=" . "\"" . $sId . "\"" . " SELECTED>" . $sSoort . "</OPTION>\n"; } elseif ($sId == 36) { print "<OPTION VALUE=" . "\"" . $sId . "\"" . ">" . $sSoort . "</OPTION>\n"; } elseif ($sId == 68) { print "<OPTION VALUE=" . "\"" . $sId . "\"" . ">" . $sSoort . "</OPTION>\n"; } } print "</SELECT>\n"; } }