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";
}
}
