function save_products($link, $prenote_uuid, $product, $id_employee, $lastUpdate)
{
include 'config.php';
include_once '../class.uuid.php';
$handle = $link->prepare('INSERT INTO ' . $table_prenoteDetails . ' (ID, UUID, LastUpdate, CreationUserID, LastUpdateUserID, OperationOnHoldUUID, ItemUUID, ItemCombinationID, ItemCombinationUUID, ItemSerialID, ItemBarcode, UnitID, Quantity, UnitPrice, SalesPersonUserID, ParentID) VALUES (0, :UUID, :last_update, :create_id, :update_id, :prenote_uuid, :ItemUUID, :combinationID, :combinationUUID, :serialID, :barcode, :unitID, :Quantity, :Price, :id_employee, 0)');
$handle->bindParam(':UUID', $prenoteDetails_uuid);
$handle->bindParam(':last_update', $lastUpdate);
$handle->bindParam(':id_employee', $id_employee, PDO::PARAM_INT);
$handle->bindParam(':create_id', $id_employee, PDO::PARAM_INT);
$handle->bindParam(':update_id', $id_employee, PDO::PARAM_INT);
$handle->bindParam(':prenote_uuid', $prenote_uuid);
$handle->bindParam(':ItemUUID', $UUID);
$handle->bindParam(':unitID', $UnitID, PDO::PARAM_INT);
$handle->bindParam(':Quantity', $Quantity);
$handle->bindParam(':Price', $Price);
$handle->bindParam(':serialID', $serialID);
$handle->bindParam(':barcode', $barcode);
$handle->bindParam(':combinationID', $combinationID);
$handle->bindParam(':combinationUUID', $combinationUUID);
$lenght = count($product);
for ($i = 0; $i < $lenght; $i++) {
$prenoteDetails_uuid = UUID::generate(UUID::UUID_RANDOM, UUID::FMT_STRING);
$UUID = $product[$i]->UUID;
$Quantity = $product[$i]->Quantity;
$Price = $product[$i]->Price;
$UnitID = $product[$i]->UnitID;
$serialID = $product[$i]->SerialID;
$barcode = $product[$i]->barcode;
$combinationID = $product[$i]->optionID;
$combinationUUID = $product[$i]->optionUUID;
$handle->execute();
}
}
public static function generateUUID()
{
$uuid = UUID::generate(UUID::UUID_RANDOM, UUID::FMT_STRING);
while (!self::uniqueUUID($uuid)) {
$uuid = UUID::generate(UUID::UUID_RANDOM, UUID::FMT_STRING);
}
return $uuid;
}
static function testUUID()
{
$id = UUID::generate(UUID::UUID_TIME, UUID::FMT_STRING, 'node', 'ns');
echo "{$id}\n";
$id = UUID::generate(UUID::UUID_TIME, UUID::FMT_STRING, 'node', 'ns');
echo "{$id}\n";
$id = UUID::generate(UUID::UUID_TIME, UUID::FMT_STRING, 'node', 'ns');
echo "{$id}\n";
$packid = UUID::convert($id, UUID::FMT_STRING, UUID::FMT_BINARY);
echo strlen($packid) . "\n";
echo UUID::convert($packid, UUID::FMT_BINARY, UUID::FMT_STRING) . "\n";
}
public function post_products()
{
Log::info(__METHOD__ . ": Start");
$params = Input::param();
$asin = $params['product_uid'];
$obj = new Amazon_Product(Config::get('unique.amazon.public_key'), Config::get('unique.amazon.private_key'));
$itemobj = $obj->getItemByAsin($asin);
#Log::error(var_export($itemobj['Items'],true));
$item = $itemobj['Items']['Item'];
$responce = array("asin" => $item['ASIN'], "title" => $item['ItemAttributes']['Title'], "image_url" => $item['LargeImage']['URL'], "detail_url" => "", "is_adult" => isset($item['ItemAttributes']['IsAdultProduct']) ? $item['ItemAttributes']['IsAdultProduct'] : 0);
#Log::error(var_export($responce,true));
$ins_arr = array('id' => UUID::generate(UUID::UUID_RANDOM, UUID::FMT_STRING), 'product_uid' => $responce['asin'], 'product_type' => "amazon", 'title' => $responce['title'], 'image_url' => $responce['image_url'], 'detail_url' => $responce['detail_url'], 'is_adult' => $responce['is_adult']);
$ins = new Model_Products($ins_arr);
$_res = $ins->save();
$responce = array();
$this->response($responce, 200);
}
public static function forgotPassword(Db $db, $email, $pathtoTemplates = "templates/")
{
if (!self::emailExists($db, $email)) {
return false;
}
$siteUrl = Constants::SITE_URL;
$siteName = Constants::SITE_NAME;
$newPass = UUID::generate();
$newPassHash = md5($newPass);
$pq = "update users set passhash = ? where email like ? limit 1";
$db->preparedQuery($pq, array($newPassHash, $email), "ss");
$plainMessage = "Your password has been reset to:\n\n{$newPass}\n\nPlease use this temporary password to log into the site and change it to a new, secure password of your choosing on the Edit Profile page.\n\nYou can follow this link:\n{$siteUrl}" . "admin/login.php?email={$email}&from=settings.php\n\nFrom: Automailer\n";
$htmlMessage = EmailHelper::getEmailPara("Your password has been reset to:") . EmailHelper::getEmailPara("{$newPass}") . EmailHelper::getEmailPara("Please use this temporary password to log into the site and change it to a new, secure password of your choosing on the Edit Profile page.") . EmailHelper::getEmailPara("You can follow this link: <a style='color:#6666ff;' href='{$siteUrl}" . "admin/login.php?email={$email}&from=settings.php'>{$siteUrl}" . "login.php?email={$email}&from=settings.php</a>") . EmailHelper::getEmailPara("From: Automailer");
$tHtml = new Template($pathtoTemplates . "mailers/holder.tpl.html");
$tHtml->insertSlot("TITLE", "{$siteName} - Forgot Password");
$tHtml->insertSlot("CONTENT", $htmlMessage);
// do NOT error here, the password has been reset, dont return false so they think it has not
@EmailHelper::sendHtmlEmail($tHtml->output(), $plainMessage, Constants::EMAIL_INFO, $email, "[{$siteName}] password reset");
return true;
}
public function verify_upload()
{
require APPPATH . 'libraries/uuid.php';
$_uuid = UUID::generate();
$_description = $this->input->post('inputDescription');
$_folder = $this->input->post('inputFolder');
if (!empty($_description)) {
$_description = addslashes($_description);
}
if (!isset($_folder) || empty($_folder) || $_folder == '0') {
$_folder = NULL;
}
$_added = $this->mPubuploads->createUpload(array('uploadUUID' => $_uuid, 'uploadMessage' => $_description, 'defaultFolderID' => $_folder));
if ($_added) {
$_errortype = 'success';
$_errormsg = __('uploads_msg_addedsuccess');
$this->mGlobal->log(array('type' => "info", 'message' => "Download request with id '{$_uuid}' created by user '{$this->session->userdata['companyName']}'.", 'size' => NULL));
} else {
$_errortype = 'error';
$_errormsg = __('uploads_msg_addederror');
$this->mGlobal->log(array('type' => "error", 'message' => "Download request with id '{$_uuid}' from user '{$this->session->userdata['companyName']}' could not be created.", 'size' => NULL));
}
redirect('admin/pubuploads/all_entries?errortype=' . $_errortype . '&errormsg=' . urlencode($_errormsg));
}
protected function execute($arguments = array(), $options = array())
{
// Context
$context = sfContext::createInstance(sfProjectConfiguration::getApplicationConfiguration('app', $options['env'], true));
// initialize the database connection
$databaseManager = new sfDatabaseManager($this->configuration);
$connection = $databaseManager->getDatabase($options['connection'])->getConnection();
// add your code here
// server id
$server = $arguments['server'];
$this->log("[INFO] Check status of server '{$server}'");
$etva_server = EtvaServerPeer::retrieveByPK($server);
if (!$etva_server) {
$etva_server = EtvaServerPeer::retrieveByUuid($server);
}
if (!$etva_server) {
$etva_server = EtvaServerPeer::retrieveByName($server);
}
if (!$etva_server) {
$msg_i18n = $context->getI18N()->__(EtvaServerPeer::_ERR_NOTFOUND_, array('name' => $server));
$error = array('success' => false, 'agent' => sfConfig::get('config_acronym'), 'error' => $msg_i18n, 'info' => $msg_i18n);
$this->log("[ERROR] " . $error['error']);
return $error;
} else {
if ($nid = $options['node']) {
$etva_node = EtvaNodePeer::retrieveByPK($nid);
} else {
$etva_node = $etva_server->getEtvaNode();
}
/*if(!$etva_node){
//notify event log
$msg_i18n = Etva::makeNotifyLogMessage(sfConfig::get('config_acronym'),
EtvaNodePeer::_ERR_NOTFOUND_ID_, array('id'=>$nid));
$error = array('success'=>false,'agent'=>sfConfig::get('config_acronym'),'error'=>$msg_i18n,'info'=>$msg_i18n);
$this->log("[ERROR] ".$error['error']);
return $error;
}
$server_va = new EtvaServer_VA($etva_server);
$response = $server_va->getGAInfo($etva_node); // update GA Info
*/
// TODO force check
$response = array('success' => true, 'response' => 'check ok', 'agent' => sfConfig::get('config_acronym'));
if ($etva_node) {
$response['agent'] = $etva_node->getName();
}
if ($options['check']) {
if (!$options['request_id']) {
$options['request_id'] = UUID::generate(UUID::UUID_RANDOM, UUID::FMT_STRING);
}
$response['_request_id'] = $options['request_id'];
$response['_request_status'] = EtvaAsynchronousJob::PENDING;
if ($etva_server->getVmState() == $options['check']) {
$response['_request_status'] = EtvaAsynchronousJob::FINISHED;
$msg_ok_type = '';
if ($options['check'] == EtvaServer::STATE_RUNNING) {
$msg_ok_type = EtvaServerPeer::_OK_START_;
} elseif ($options['check'] == EtvaServer::STATE_STOP) {
$msg_ok_type = EtvaServerPeer::_OK_STOP_;
}
if ($msg_ok_type) {
$response['response'] = Etva::makeNotifyLogMessage($response['agent'], $msg_ok_type, array('name' => $etva_server->getName()), null, array(), EtvaEventLogger::INFO);
}
}
//$this->log("[DEBUG] status=".$response['_request_status']." state=".$etva_server->getVmState()." == ".$options['check']);
}
if ($response['success']) {
$this->log("[INFO] " . $response['response']);
//$this->log("[DEBUG ".print_r($response,true));
} else {
$this->log("[ERROR] " . $response['error']);
}
return $response;
}
}
public function post()
{
$dbw = wfGetDB(DB_MASTER);
if (!$this->id) {
$this->id = UUID::generate();
}
$dbw->insert('FlowThread', array('flowthread_id' => $this->id->getBin(), 'flowthread_pageid' => $this->pageid, 'flowthread_userid' => $this->userid, 'flowthread_username' => $this->username, 'flowthread_text' => $this->text, 'flowthread_parentid' => $this->parentid ? $this->parentid->getBin() : null, 'flowthread_status' => $this->status, 'flowthread_like' => $this->favorCount, 'flowthread_report' => $this->reportCount));
global $wgTriggerFlowThreadHooks;
if ($wgTriggerFlowThreadHooks) {
\Hooks::run('FlowThreadPosted', array($this));
}
}
$prenote = json_decode($json_prenote);
$saved = false;
$printed = false;
if (!$prenote->folio) {
$date = new DateTime();
$prenote->date = $date->format('Y-m-d H:i:s');
$mcs = explode('.', microtime(true));
$ms = substr($mcs[1], 0, 3);
//date format for sqlite
//$lastUpdate = $date->format('Y-m-d H:i:s.'.$ms);
//date format for sqlsrv
$lastUpdate = $date->format('Y-m-d H:i:s.' . $ms);
$dte = $date->format('Y-m-d');
$tme = $date->format('H:i:s.' . $ms);
//$code = $date->format('YmdHis'.$ms);
$prenote_uuid = UUID::generate(UUID::UUID_RANDOM, UUID::FMT_STRING);
$link = new PDO($db_url, $user, $password, array(PDO::ATTR_ERRMODE => PDO::ERRMODE_EXCEPTION));
$st = $link->query('SELECT Consecutivo FROM ThoConsecutivo WHERE Tipo = \'PRENOTA\'');
if (!($result = $st->fetch())) {
throw new PDOException('Error al obtener el folio de la prenota.');
}
$code = $result['Consecutivo'];
$link->query('UPDATE ThoConsecutivo SET Consecutivo = Consecutivo + 1 WHERE Tipo = \'PRENOTA\'');
$terminalCode = ord($prenote->terminal);
$code = generate_barcode(true, $code, $terminalCode);
$link->beginTransaction();
$handle = $link->prepare('INSERT INTO ' . $table_prenote . ' (ID, UUID, LastUpdate, CreationUserID, LastUpdateUserID, Type, TypeDescription, Dte, Tme, StoreID, Workstation, Code, CustomerUUID, SalesPersonUserID, Total, Quantity, Reference, Comment) VALUES (:id, :UUID, :lastUpdate, :create_id, :update_id, 1, :type_description, :dte, :tme, :store_id, :workstation, :code, :customer_id, :id_employee, :total, :narticles, :reference, :comment)');
//$handle = $link->prepare( ' INSERT INTO ' .$table_prenote. ' ( [ID], [UUID], [LastUpdate], [CreationUserID], [LastUpdateUserID], [Type], [TypeDescription], [Dte], [Tme], [StoreID], [Workstation], [Code], [SalesPersonUserID], [Total], [Quantity] ) VALUES ( 0, :UUID, :lastUpdate, :create_id, :update_id, 1, :type_description, :dte, :tme, 2, :workstation, :code, :id_employee, :total, :narticles ) ' );
$handle->bindParam(':UUID', $prenote_uuid);
$handle->bindParam(':lastUpdate', $lastUpdate);
$handle->bindParam(':dte', $dte);
protected function _adoptRemote($iri, $parent, $ownerScheme, $ownerUUID)
{
$uuid = UUID::generate();
$this->db->insert('cluster_fs_object', array('cluster_name' => $parent['cluster_name'], 'fsobject_uuid' => $uuid, 'fsobject_parent' => $parent['fsobject_uuid'], 'fsobject_name' => null, 'fsobject_cname' => null, 'fsobject_dev' => 0, 'fsobject_ino' => 0, 'fsobject_mode' => 0120666, 'fsobject_nlink' => 1, 'fsobject_uid' => 0, 'fsobject_gid' => 0, 'fsobject_rdev' => 0, 'fsobject_size' => 0, '@fsobject_ctime' => $this->db->now(), '@fsobject_mtime' => $this->db->now(), 'fsobject_atime' => null, 'fsobject_blksize' => 4096, 'fsobject_blocks' => 0, 'fsobject_creator_scheme' => $ownerScheme, 'fsobject_creator_uuid' => $ownerUUID, 'fsobject_modifier_scheme' => $ownerScheme, 'fsobject_modifier_uuid' => $ownerUUID, 'fsobject_virtual' => 'N', 'fsobject_deleted' => 'N', 'fsobject_remote' => $iri));
return $uuid;
}
function F_GBI($p)
{
//global $DBCON;
global $db, $dsn;
$tokens = explode("|", $p);
$sAction = $tokens[0];
F_STYLE();
if (@$_SESSION["GBIMUTEREN"] == TRUE) {
if ($sAction == "CREATETREFWOORD") {
$sFilterValueTref = @$_POST["NEWTREF"];
if ($sFilterValueTref != "" and $sFilterValueTref != NULL) {
print "<div id=\"nav_path\">\n";
print "<span>> <a href=\"index.php\"> Hoofdmenu</a> > Toevoegen trefwoord </span>\n";
print "</div>\n";
print "<BR><BR><BR>\n";
print "<CENTER>\n";
print "<TABLE BORDER=\"0\" CELLSPACING=\"10\">\n";
print "<TR><TD VALIGN=\"MIDDLE\" WIDTH=\"600px\" ID=\"kopbegin\">\n";
print "<CENTER>Toevoegen trefwoord</CENTER>\n";
print "</TD></TR></TABLE></CENTER>\n";
print "<BR>\n";
print "<CENTER>\n";
print "<TABLE BORDER=\"0\" CELLSPACING=\"10\">\n";
print "<TR><TD ALIGN=\"LEFT\" VALIGN=\"MIDDLE\" WIDTH=\"600px\">\n";
$sMax = F_SELECTRECORD("SELECT MAX(TREFCODE) FROM TREFTEXT");
$sMax = $sMax + 1;
F_CREATERECORD("INSERT INTO TREFTEXT (TREFCODE, TREFWOORD) VALUES ('" . $sMax . "', '" . $sFilterValueTref . "')");
print "Trefwoord " . $sFilterValueTref . " met succes toegevoegd.<BR>";
print "<A HREF='?e=@GBI&p=ADMIN'>Terug naar administratieve taken</A>";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "</TD></TR></TABLE>\n";
print "</CENTER>\n";
}
}
if ($sAction == "DELETEDATASET") {
if (count($tokens) >= 2) {
$sDatacode = $tokens[1];
}
print "<div id=\"nav_path\">\n";
print "<span>> <a href=\"index.php\"> Hoofdmenu</a> > Verwijderen dataset </span>\n";
print "</div>\n";
print "<BR><BR><BR>\n";
print "<CENTER>\n";
print "<TABLE BORDER=\"0\" CELLSPACING=\"10\">\n";
print "<TR><TD VALIGN=\"MIDDLE\" WIDTH=\"600px\" ID=\"kopbegin\">\n";
print "<CENTER>Verwijderen dataset</CENTER>\n";
print "</TD></TR></TABLE></CENTER>\n";
print "<BR>\n";
print "<CENTER>\n";
print "<TABLE BORDER=\"0\" CELLSPACING=\"10\">\n";
print "<TR><TD ALIGN=\"LEFT\" VALIGN=\"MIDDLE\" WIDTH=\"600px\">\n";
$sNaam = F_SELECTRECORD("SELECT DATASET_TITEL FROM DATASET WHERE DATACODE = " . $sDatacode);
$sOmCode = F_SELECTRECORD("SELECT OMSCHRIJVING_CODE FROM DATASET WHERE DATACODE = " . $sDatacode);
$sType = F_SELECTRECORD("SELECT TYPE FROM DATASET WHERE DATACODE = " . $sDatacode);
F_DELETERECORD("DELETE FROM DATASET WHERE DATACODE = " . $sDatacode);
if ($sType == 1) {
F_DELETERECORD("DELETE FROM GEOGRAFISCH WHERE DATACODE = " . $sDatacode);
}
F_DELETERECORD("DELETE FROM MEMOTABEL WHERE CODE = " . $sOmCode);
if ($sType == 1) {
$sSQL = "SELECT DOMEIN FROM ITEMS WHERE DATACODE = " . $sDatacode;
unset($aRecords);
$sRecords = F_SELECTRECORD($sSQL);
$aRecords = explode("|", $sRecords);
for ($iRecord = 0; $iRecord < count($aRecords); $iRecord++) {
$sRecord = $aRecords[$iRecord];
$aRecord = explode("^", $sRecord);
F_DELETERECORD("DELETE FROM MEMOTABEL WHERE CODE = " . $aRecord[0]);
}
F_DELETERECORD("DELETE FROM ITEMS WHERE DATACODE = " . $sDatacode);
}
F_DELETERECORD("DELETE FROM TREFCODE WHERE DATACODE = " . $sDatacode);
print "Dataset " . $sNaam . " met succes verwijderd.<BR>";
print "<A HREF='?e=@GBI&p=DATASETLIST|DATASET.DATASET_TITEL'>Terug naar lijst met datasets</A>";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "</TD></TR></TABLE>\n";
print "</CENTER>\n";
}
if ($sAction == "THUMBNAIL") {
if (count($tokens) >= 2) {
$sDatacode = $tokens[1];
}
print "<div id=\"nav_path\">\n";
print "<span>> <a href=\"index.php\"> Hoofdmenu</a> > Maken van thumbnail dataset </span>\n";
print "</div>\n";
print "<BR><BR><BR>\n";
print "<CENTER>\n";
print "<TABLE BORDER=\"0\" CELLSPACING=\"10\">\n";
print "<TR><TD VALIGN=\"MIDDLE\" WIDTH=\"600px\" ID=\"kopbegin\">\n";
print "<CENTER>Maken van thumbnail dataset</CENTER>\n";
print "</TD></TR></TABLE></CENTER>\n";
print "<BR>\n";
print "<CENTER>\n";
print "<TABLE BORDER=\"0\" CELLSPACING=\"10\">\n";
print "<TR><TD ALIGN=\"LEFT\" VALIGN=\"MIDDLE\" WIDTH=\"600px\">\n";
$sAlttitel = F_SELECTRECORD("SELECT ALT_TITEL FROM DATASET WHERE DATACODE = " . $sDatacode);
$sImsid = explode(".", $sAlttitel);
$sAlttitel = $sImsid[1];
$sarxml = new ArcService("paros", "GDB_Geoportaal");
copy($sarxml->ImageLaag($sAlttitel), '../metadata/thumbs/' . $sAlttitel . '.jpg');
copy($sarxml->Legend($sAlttitel), '../metadata/legenda/' . $sAlttitel . '.jpg');
print "Thumbnail van dataset " . $sAlttitel . " met succes aangemaakt.<BR>";
print "<A HREF='?e=@GBI&p=DATASETLIST|DATASET.DATASET_TITEL'>Terug naar lijst met datasets</A>";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "</TD></TR></TABLE>\n";
print "</CENTER>\n";
}
if ($sAction == "CREATEDATASET") {
$sFilterValueNew = @$_POST["NEW"];
$sFilterValueSNew = @$_POST["SNEW"];
$sFilterValueCopy = @$_POST["COPY"];
$sFilterValueNCopy = @$_POST["NCOPY"];
if ($sFilterValueNew != "" and $sFilterValueNew != NULL and $sFilterValueSNew != "" and $sFilterValueSNew != NULL) {
print "<div id=\"nav_path\">\n";
print "<span>> <a href=\"index.php\"> Hoofdmenu</a> > Dataset aanmaken </span>\n";
print "</div>\n";
print "<BR><BR><BR>\n";
print "<CENTER>\n";
print "<TABLE BORDER=\"0\" CELLSPACING=\"10\">\n";
print "<TR><TD VALIGN=\"MIDDLE\" WIDTH=\"600px\" ID=\"kopbegin\">\n";
print "<CENTER>Dataset aanmaken</CENTER>\n";
print "</TD></TR></TABLE></CENTER>\n";
print "<BR>\n";
print "<CENTER>\n";
print "<TABLE BORDER=\"0\" CELLSPACING=\"10\">\n";
print "<TR><TD ALIGN=\"LEFT\" VALIGN=\"MIDDLE\" WIDTH=\"600px\">\n";
$sMax = F_SELECTRECORD("SELECT MAX(DATACODE) FROM DATASET");
$sMax = $sMax + 1;
$sMaxTekst = F_SELECTRECORD("SELECT MAX(CODE) FROM MEMOTABEL");
$sMaxTekst = $sMaxTekst + 1;
if ($sFilterValueSNew == "Dataset") {
$sSoortType = 1;
} elseif ($sFilterValueSNew == "CD/DVD") {
$sSoortType = 2;
} else {
$sSoortType = 3;
}
//genereren van fileidentifier UUID (ISO nr. 207)
$sha1 = UUID::generate(UUID::UUID_NAME_SHA1, UUID::FMT_STRING, $sFilterValueNew, 'www.drenthe.info');
//generenen van bronidentifier UUID (ISO nr. 2)
$sha2 = UUID::generate(UUID::UUID_NAME_SHA1, UUID::FMT_STRING, 'provincie drenthe', 'www.drenthe.info');
F_CREATERECORD("INSERT INTO DATASET (DATACODE, DATASET_TITEL, OMSCHRIJVING_CODE, TYPE, TAAL, KARAKTERSET, METADATASTD, VERSIE_METASTD, CODE_REF, ORG_NAMESPACE, UUIDBRON, UUID) VALUES ('" . $sMax . "', '" . $sFilterValueNew . "', '" . $sMaxTekst . "', '" . $sSoortType . "', 'dut', 'utf8', 'ISO 19115', 'Nederlandse metadata profiel op ISO 19115 voor geografie 1.2', '28992', 'EPSG', '" . $sha2 . "', '" . $sha1 . "')");
if ($sSoortType == 1) {
F_CREATERECORD("INSERT INTO GEOGRAFISCH (DATACODE) VALUES ('" . $sMax . "')");
}
F_CREATERECORD("INSERT INTO MEMOTABEL (CODE) VALUES ('" . $sMaxTekst . "')");
$sMaxTekst = $sMaxTekst + 1;
if ($sSoortType == 1) {
F_CREATERECORD("INSERT INTO ITEMS (DATACODE, VOLGNR, DOMEIN) VALUES ('" . $sMax . "', '1', '" . $sMaxTekst . "')");
F_CREATERECORD("INSERT INTO MEMOTABEL (CODE) VALUES ('" . $sMaxTekst . "')");
}
print "Dataset " . $sFilterValueNew . " met succes aangemaakt.<BR>";
print "<A HREF='?e=@GBI&p=DATASETEDIT|" . $sMax . "'>Klik hier om de metagegevens van de dataset te bewerken</A>";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "</TD></TR></TABLE>\n";
print "</CENTER>\n";
}
if ($sFilterValueCopy != "" and $sFilterValueCopy != NULL and $sFilterValueNCopy != "" and $sFilterValueNCopy != NULL) {
print "<div id=\"nav_path\">\n";
print "<span>> <a href=\"index.php\"> Hoofdmenu</a> > Dataset kopieëren </span>\n";
print "</div>\n";
print "<BR><BR><BR>\n";
print "<CENTER>\n";
print "<TABLE BORDER=\"0\" CELLSPACING=\"10\">\n";
print "<TR><TD VALIGN=\"MIDDLE\" WIDTH=\"600px\" ID=\"kopbegin\">\n";
print "<CENTER>Dataset kopieëren</CENTER>\n";
print "</TD></TR></TABLE></CENTER>\n";
print "<BR>\n";
print "<CENTER>\n";
print "<TABLE BORDER=\"0\" CELLSPACING=\"10\">\n";
print "<TR><TD ALIGN=\"LEFT\" VALIGN=\"MIDDLE\" WIDTH=\"600px\">\n";
$sMax = F_SELECTRECORD("SELECT MAX(DATACODE) FROM DATASET");
$sMax = $sMax + 1;
$sMaxTekst = F_SELECTRECORD("SELECT MAX(CODE) FROM MEMOTABEL");
$sMaxTekst = $sMaxTekst + 1;
$sType = F_SELECTRECORD("SELECT TYPE FROM DATASET WHERE DATACODE = " . $sFilterValueCopy);
if ($sType == 1) {
$sSQL = "SELECT a.ORGANISATIECODE, a.ALT_TITEL, a.NAAM, a.FYSIEKE_LOCATIE, a.EIGENAAR, a.CONTACTPERSOON, a.METAPERSOON, a.GEOLOKET, a.BELEIDSVELD, a.TEAM, a.INVOERDATUM, a.GROUPCODE, a.EDITGROUP, a.BITMAP, a.RSCHEMA, a.DATATYPE, a.TYPE, a.GEBRUIKSBEPERKING, a.VEILIGHEID, a.COPYRIGHT, a.STATUS, a.CONTACT_LEVERANCIER, a.BRONDATUM, a.OPBOUWDATUM, a.ACTIE, a.BIJHOUDING, a.OPMERKING, a.THEMA, a.TAAL, a.KARAKTERSET, a.AANVUL_INFO, a.KWALITEIT_BESCH, a.JURIDISCH, a.METADATASTD, a.VERSIE_METASTD, a.CODE_REF, a.ORG_NAMESPACE, a.DEKKING_BEGIN, a.DEKKING_EIND, b.SCHAAL, b.BRONVERMELDING, b.OPBOUWMETHODE, b.DEELGEBIED, b.LEGENDA_FILE, b.GEOMETRIE, b.POS_NAUWKEURIGHEID, b.MINSCHAAL, b.MAXSCHAAL, b.STD_ITEM, c.TEKST FROM DATASET a, GEOGRAFISCH b, MEMOTABEL c WHERE a.OMSCHRIJVING_CODE = c.CODE AND a.DATACODE = b.DATACODE AND a.DATACODE = " . $sFilterValueCopy;
unset($aRecords);
$sRecords = F_SELECTRECORD($sSQL);
if ($sRecords != "") {
$aRecords = explode("^", $sRecords);
if ($aRecords[37] == "") {
$aRecords[37] = '1980-1-1';
}
if ($aRecords[38] == "") {
$aRecords[38] = '1980-1-1';
}
//genereren van fileidentifier UUID (ISO nr. 2)
$sha1 = UUID::generate(UUID::UUID_NAME_SHA1, UUID::FMT_STRING, $sFilterValueNCopy, 'www.drenthe.info');
//generenen van bronidentifier UUID (ISO nr. 2)
$sha2 = UUID::generate(UUID::UUID_NAME_SHA1, UUID::FMT_STRING, 'provincie drenthe', 'www.drenthe.info');
$sSQL = "INSERT INTO DATASET (DATACODE, ORGANISATIECODE, DATASET_TITEL, ALT_TITEL, OMSCHRIJVING_CODE, NAAM, FYSIEKE_LOCATIE, EIGENAAR, CONTACTPERSOON, METAPERSOON, GEOLOKET, BELEIDSVELD, TEAM, INVOERDATUM, GROUPCODE, EDITGROUP, BITMAP, RSCHEMA, DATATYPE, TYPE, GEBRUIKSBEPERKING, VEILIGHEID, COPYRIGHT, STATUS, CONTACT_LEVERANCIER, BRONDATUM, OPBOUWDATUM, ACTIE, BIJHOUDING, OPMERKING, THEMA, TAAL, KARAKTERSET, AANVUL_INFO, KWALITEIT_BESCH, JURIDISCH, METADATASTD, VERSIE_METASTD, CODE_REF, ORG_NAMESPACE, DEKKING_BEGIN, DEKKING_EIND, UUIDBRON, UUID) VALUES ('" . $sMax . "', '" . $aRecords[0] . "', '" . $sFilterValueNCopy . "', '" . $aRecords[1] . "', '" . $sMaxTekst . "', '" . $aRecords[2] . "', '" . $aRecords[3] . "', '" . $aRecords[4] . "', '" . $aRecords[5] . "', '" . $aRecords[6] . "', '" . $aRecords[7] . "', '" . $aRecords[8] . "', '" . $aRecords[9] . "', '" . $aRecords[10] . "', '" . $aRecords[11] . "', '" . $aRecords[12] . "', '" . $aRecords[13] . "', '" . $aRecords[14] . "', '" . $aRecords[15] . "', '" . $aRecords[16] . "', '" . $aRecords[17] . "', '" . $aRecords[18] . "', '" . $aRecords[19] . "', '" . $aRecords[20] . "', '" . $aRecords[21] . "', '" . $aRecords[22] . "', '" . $aRecords[23] . "', '" . $aRecords[24] . "', '" . $aRecords[25] . "', '" . $aRecords[26] . "', '" . $aRecords[27] . "', '" . $aRecords[28] . "', '" . $aRecords[29] . "', '" . $aRecords[30] . "', '" . $aRecords[31] . "', '" . $aRecords[32] . "', '" . $aRecords[33] . "', '" . $aRecords[34] . "', '" . $aRecords[35] . "', '" . $aRecords[36] . "', '" . $aRecords[37] . "', '" . $aRecords[38] . "', '" . $sha2 . "', '" . $sha1 . "')";
F_CREATERECORD($sSQL);
if ($aRecords[46] == "") {
$aRecords[46] = 0;
}
if ($aRecords[47] == "") {
$aRecords[47] = 0;
}
if ($aRecords[16] == "1") {
$sSQL = "INSERT INTO GEOGRAFISCH (DATACODE, SCHAAL, BRONVERMELDING, OPBOUWMETHODE, DEELGEBIED, LEGENDA_FILE, GEOMETRIE, POS_NAUWKEURIGHEID, MINSCHAAL, MAXSCHAAL, STD_ITEM) VALUES ('" . $sMax . "', '" . $aRecords[39] . "', '" . $aRecords[40] . "', '" . $aRecords[41] . "', '" . $aRecords[42] . "', '" . $aRecords[43] . "', '" . $aRecords[44] . "', '" . $aRecords[45] . "', '" . $aRecords[46] . "', '" . $aRecords[47] . "', '" . $aRecords[48] . "')";
F_CREATERECORD($sSQL);
}
$sSQL = "INSERT INTO MEMOTABEL (CODE, TEKST) VALUES (" . $sMaxTekst . ", '" . $aRecords[49] . "')";
F_CREATERECORD($sSQL);
if ($aRecords[16] == "1") {
$sSQL = "SELECT VOLGNR, ITEMNAAM, ITEMDEFINITIE, EENHEID, DOMEIN, CDF_FILE FROM ITEMS WHERE DATACODE = " . $sFilterValueCopy . " ORDER BY VOLGNR";
unset($bRecords);
$sbRecords = F_SELECTRECORD($sSQL);
$bRecords = explode("|", $sbRecords);
for ($ibRecord = 0; $ibRecord < count($bRecords); $ibRecord++) {
$sbRecord = $bRecords[$ibRecord];
$bRecord = explode("^", $sbRecord);
$sMaxTekst = $sMaxTekst + 1;
$sSQL = "INSERT INTO ITEMS (DATACODE, VOLGNR, ITEMNAAM, ITEMDEFINITIE, EENHEID, DOMEIN, CDF_FILE) VALUES ('" . $sMax . "', '" . $bRecord[0] . "', '" . $bRecord[1] . "', '" . $bRecord[2] . "', '" . $bRecord[3] . "', '" . $sMaxTekst . "', '" . $bRecord[5] . "')";
F_CREATERECORD($sSQL);
F_CREATERECORD("INSERT INTO MEMOTABEL (CODE) VALUES ('" . $sMaxTekst . "')");
}
}
if ($aRecords[16] == "1") {
$sSQL = "SELECT TREFCODE FROM TREFCODE WHERE DATACODE = " . $sFilterValueCopy;
unset($bRecords);
$sbRecords = F_SELECTRECORD($sSQL);
$bRecords = explode("|", $sbRecords);
for ($ibRecord = 0; $ibRecord < count($bRecords); $ibRecord++) {
$sbRecord = $bRecords[$ibRecord];
$bRecord = explode("^", $sbRecord);
$sSQL = "INSERT INTO TREFCODE (DATACODE, TREFCODE) VALUES (" . $sMax . ", " . $bRecord[0] . ")";
F_CREATERECORD($sSQL);
}
}
}
}
if ($sType == 2 or $sType == 3) {
$sSQL = "SELECT a.ORGANISATIECODE, a.ALT_TITEL, a.NAAM, a.FYSIEKE_LOCATIE, a.EIGENAAR, a.CONTACTPERSOON, a.METAPERSOON, a.GEOLOKET, a.BELEIDSVELD, a.TEAM, a.INVOERDATUM, a.GROUPCODE, a.EDITGROUP, a.BITMAP, a.RSCHEMA, a.DATATYPE, a.TYPE, a.GEBRUIKSBEPERKING, a.VEILIGHEID, a.COPYRIGHT, a.STATUS, a.CONTACT_LEVERANCIER, a.BRONDATUM, a.OPBOUWDATUM, a.ACTIE, a.BIJHOUDING, a.OPMERKING, a.THEMA, a.TAAL, a.KARAKTERSET, a.AANVUL_INFO, a.KWALITEIT_BESCH, a.JURIDISCH, a.METADATASTD, a.VERSIE_METASTD, a.CODE_REF, a.ORG_NAMESPACE, a.DEKKING_BEGIN, a.DEKKING_EIND, c.TEKST FROM DATASET a, MEMOTABEL c WHERE a.OMSCHRIJVING_CODE = c.CODE AND a.DATACODE = " . $sFilterValueCopy;
unset($aRecords);
$sRecords = F_SELECTRECORD($sSQL);
if ($sRecords != "") {
$aRecords = explode("^", $sRecords);
if ($aRecords[37] == "") {
$aRecords[37] = '1980-1-1';
}
if ($aRecords[38] == "") {
$aRecords[38] = '1980-1-1';
}
//genereren van fileidentifier UUID (ISO nr. 2)
$sha1 = UUID::generate(UUID::UUID_NAME_SHA1, UUID::FMT_STRING, $sFilterValueNCopy, 'www.drenthe.info');
//generenen van bronidentifier UUID (ISO nr. 2)
$sha2 = UUID::generate(UUID::UUID_NAME_SHA1, UUID::FMT_STRING, 'provincie drenthe', 'www.drenthe.info');
$sSQL = "INSERT INTO DATASET (DATACODE, ORGANISATIECODE, DATASET_TITEL, ALT_TITEL, OMSCHRIJVING_CODE, NAAM, FYSIEKE_LOCATIE, EIGENAAR, CONTACTPERSOON, METAPERSOON, GEOLOKET, BELEIDSVELD, TEAM, INVOERDATUM, GROUPCODE, EDITGROUP, BITMAP, RSCHEMA, DATATYPE, TYPE, GEBRUIKSBEPERKING, VEILIGHEID, COPYRIGHT, STATUS, CONTACT_LEVERANCIER, BRONDATUM, OPBOUWDATUM, ACTIE, BIJHOUDING, OPMERKING, THEMA, TAAL, KARAKTERSET, AANVUL_INFO, KWALITEIT_BESCH, JURIDISCH, METADATASTD, VERSIE_METASTD, CODE_REF, ORG_NAMESPACE, DEKKING_BEGIN, DEKKING_EIND, UUIDBRON, UUID) VALUES ('" . $sMax . "', '" . $aRecords[0] . "', '" . $sFilterValueNCopy . "', '" . $aRecords[1] . "', '" . $sMaxTekst . "', '" . $aRecords[2] . "', '" . $aRecords[3] . "', '" . $aRecords[4] . "', '" . $aRecords[5] . "', '" . $aRecords[6] . "', '" . $aRecords[7] . "', '" . $aRecords[8] . "', '" . $aRecords[9] . "', '" . $aRecords[10] . "', '" . $aRecords[11] . "', '" . $aRecords[12] . "', '" . $aRecords[13] . "', '" . $aRecords[14] . "', '" . $aRecords[15] . "', '" . $aRecords[16] . "', '" . $aRecords[17] . "', '" . $aRecords[18] . "', '" . $aRecords[19] . "', '" . $aRecords[20] . "', '" . $aRecords[21] . "', '" . $aRecords[22] . "', '" . $aRecords[23] . "', '" . $aRecords[24] . "', '" . $aRecords[25] . "', '" . $aRecords[26] . "', '" . $aRecords[27] . "', '" . $aRecords[28] . "', '" . $aRecords[29] . "', '" . $aRecords[30] . "', '" . $aRecords[31] . "', '" . $aRecords[32] . "', '" . $aRecords[33] . "', '" . $aRecords[34] . "', '" . $aRecords[35] . "', '" . $aRecords[36] . "', '" . $aRecords[37] . "', '" . $aRecords[38] . "', '" . $sha2 . "', '" . $sha1 . "')";
F_CREATERECORD($sSQL);
$sSQL = "INSERT INTO MEMOTABEL (CODE, TEKST) VALUES ('" . $sMaxTekst . "', '" . $aRecords[39] . "')";
F_CREATERECORD($sSQL);
}
}
print "Dataset " . $sFilterValueNCopy . " met succes aangemaakt.<BR>";
print "<A HREF='?e=@GBI&p=DATASETEDIT|" . $sMax . "'>Klik hier om de metagegevens van de dataset te bewerken</A>";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "</TD></TR></TABLE>\n";
print "</CENTER>\n";
}
}
if ($sAction == "DATASETLIST") {
print "<div id=\"nav_path\">\n";
print "<span>> <a href=\"index.php\"> Hoofdmenu</a> > Lijst van alle datasets </span>\n";
print "</div>\n";
print "<BR>\n";
print "<CENTER>\n";
print "<TABLE WIDTH=\"90%\" CELLPADDING=\"5\" CELLSPACING=\"0\" CLASS=\"randtabel\">\n";
print "<TR><TD ID=\"kopbegin\">Totaal overzicht datasets</TD></TR>\n";
print "</TABLE>\n";
print "</CENTER>\n";
print "<BR>\n";
$sOrder = "DATASET.DATASET_TITEL";
if (count($tokens) >= 2) {
$sOrder = $tokens[1];
}
//$sWhere = "DATASET.DATACODE >= 0";
$sFilterValue = @$_POST["KEYWORDS"];
if ($sFilterValue != "" and $sFilterValue != NULL) {
print "<CENTER>\n";
print "Gevonden datasets die voldoen aan uw zoekopdracht: <B>" . $sFilterValue . "</B>.<BR><BR>\n";
print "</CENTER>\n";
$sWhere = "DATASET.DATASET_TITEL LIKE '%" . $sFilterValue . "%' OR MEMOTABEL.TEKST Like '%" . $sFilterValue . "%' OR TREFTEXT.TREFWOORD LIKE '%" . $sFilterValue . "%'\n";
$sSQL = "SELECT DISTINCT DATASET.DATACODE, DATASET.DATASET_TITEL FROM ((DATASET INNER JOIN MEMOTABEL ON DATASET.OMSCHRIJVING_CODE = MEMOTABEL.CODE) INNER JOIN TREFCODE ON DATASET.DATACODE = TREFCODE.DATACODE) INNER JOIN TREFTEXT \r\n\tON TREFCODE.TREFCODE = TREFTEXT.TREFCODE \r\n\tWHERE " . $sWhere . " ORDER BY " . $sOrder;
//$sWhere = "instr(DATASET.DATASET_TITEL, '" . $sFilterValue . "') OR instr(MEMOTABEL.TEKST, '" . $sFilterValue . "')\n";
} else {
$sSQL = "SELECT DISTINCT DATASET.DATACODE, DATASET.DATASET_TITEL FROM DATASET ORDER BY " . $sOrder;
}
//$sSQL = "SELECT DISTINCT DATASET.DATACODE, DATASET.DATASET_TITEL, DATASET.EIGENAAR FROM DATASET, TREFCODE, TREFTEXT, MEMOTABEL WHERE TREFCODE.DATACODE = DATASET.DATACODE AND TREFCODE.TREFCODE = TREFTEXT.TREFCODE AND DATASET.DATACODE = MEMOTABEL.CODE AND " . $sWhere . " ORDER BY " . $sOrder;
//$sSQL = "SELECT DISTINCT DATASET.DATACODE, DATASET.DATASET_TITEL FROM DATASET WHERE " . $sWhere . " ORDER BY " . $sOrder;
//$sSQL = "SELECT DISTINCT DATASET.DATACODE, DATASET.DATASET_TITEL FROM ((DATASET INNER JOIN MEMOTABEL ON DATASET.OMSCHRIJVING_CODE = MEMOTABEL.CODE) INNER JOIN TREFCODE ON DATASET.DATACODE = TREFCODE.DATACODE) INNER JOIN TREFTEXT ON TREFCODE.TREFCODE = TREFTEXT.TREFCODE WHERE " . $sWhere . " ORDER BY " . $sOrder;
//$sSQL = "SELECT DISTINCT DATASET.DATACODE, DATASET.DATASET_TITEL FROM DATASET INNER JOIN MEMOTABEL ON DATASET.OMSCHRIJVING_CODE = MEMOTABEL.CODE WHERE " . $sWhere . " ORDER BY " . $sOrder;
//$sSQL = "SELECT DISTINCT DATASET.DATACODE, DATASET.DATASET_TITEL, DATASET.EIGENAAR FROM ((TREFCODE INNER JOIN DATASET ON TREFCODE.DATACODE = DATASET.DATACODE) INNER JOIN TREFTEXT ON TREFCODE.TREFCODE = TREFTEXT.TREFCODE) INNER JOIN MEMOTABEL ON DATASET.DATACODE = MEMOTABEL.CODE WHERE " . $sWhere . " ORDER BY " . $sOrder;
$sRecords = F_SELECTRECORD($sSQL);
$aRecords = explode("|", $sRecords);
print "<CENTER>\n";
print "<TABLE WIDTH=\"90%\" CELLPADDING=\"5\" CELLSPACING=\"0\" ID=\"randtabel\">\n";
print "<TR><TD WIDTH=\"10%\" ID=\"randkop\"><A HREF='?e=@GBI&p=DATASETLIST|DATASET.DATACODE'>Datacode</A></TD><TD WIDTH=\"85%\" ID=\"randkop\"><A HREF='?e=@GBI&p=DATASETLIST|DATASET.DATASET_TITEL'>Titel dataset</A></TD><TD WIDTH=\"2%\" ID=\"randkop\"></TD><TD WIDTH=\"2%\" ID=\"randkop\"></TD></TR>\n";
for ($iRecord = 0; $iRecord < count($aRecords); $iRecord++) {
$sRecord = $aRecords[$iRecord];
$aRecord = explode("^", $sRecord);
print "<TR>\n";
for ($iField = 0; $iField < count($aRecord); $iField++) {
$sValue = $aRecord[$iField];
if ($sValue == "") {
$sValue = "-";
}
if ($iField == 0) {
print "<TD VALIGN=top ID=\"rand\"><A HREF='?e=@GBI&p=DATASETEDIT|" . $sValue . "'>" . $sValue . "</A></TD>\n";
$sDC = $sValue;
} else {
print "<TD VALIGN=top ID=\"rand\">" . $sValue . "</TD>\n";
}
}
print "<TD VALIGN=top ID=\"rand\"><A HREF='?e=@GBI&p=DELETEDATASET" . "|" . $sDC . "'>";
print "<IMG SRC='images\\wissen1.png' ALT='Verwijderen dataset' BORDER=0 HEIGHT=20 WIDTH=20></A></TD>\n";
print "<TD VALIGN=top ID=\"rand\"><A HREF='?e=@GBI&p=THUMBNAIL" . "|" . $sDC . "'>";
print "<IMG SRC='images\\globe.png' ALT='Maak een thumbnail' BORDER=0 HEIGHT=20 WIDTH=20></A></TD>\n";
print "</TR>\n";
}
print "</TABLE>\n";
print "</CENTER>\n";
print "</BODY>\n";
}
if ($sAction == "DATASETEDIT") {
//$sDatacode = "-1";
if (count($tokens) >= 2) {
$sDatacode = $tokens[1];
$sType = F_SELECTRECORD("SELECT TYPE FROM DATASET WHERE DATACODE = " . $sDatacode);
}
$sFilterValueIms = @$_POST["txtIMSCODE"];
if ($sFilterValueIms != NULL) {
F_SELECTRECORD("UPDATE GEOGRAFISCH SET IMSCODE = '" . $sFilterValueIms . "' WHERE DATACODE = " . $sDatacode);
}
if (@$_SESSION["GBIMUTEREN"] == TRUE) {
if (count($tokens) > 3) {
$_SESSION["GBIPRO"] = $tokens[2];
} else {
$_SESSION["GBIPRO"] = "";
}
} else {
$_SESSION["GBIPRO"] = "RO";
}
print "<IFRAME ID='WAITFRAME' NAME='WAITFRAME' style='z-index:100; position: absolute; width=300px; height: 100px; top:40%; left:40%;' src='' frameBorder='0' scrolling='no' onload=\"initPopup();\"></IFRAME>\n";
print "<BR>\n";
print "<div id=\"nav_path\">\n";
print "<span>> <a href=\"index.php\"> Hoofdmenu</a> > <a href=\"index.php?e=@GBI&p=DATASETLIST|DATASET.DATASET_TITEL\"> Lijst van alle datasets </a> </span>\n";
print "</div>\n";
print "<BR>\n";
print "<CENTER>\n";
print "<TABLE WIDTH=\"95%\" CELLPADDING=\"5\" CELLSPACING=\"0\" CLASS=\"randtabel\">\n";
$naam = F_SELECTRECORD("SELECT DATASET_TITEL FROM DATASET WHERE DATACODE = " . $sDatacode);
print "<TR><TD ID=\"kopbegin\">Gegevens dataset {$naam}</TD></TR>\n";
print "</TABLE>\n";
print "</CENTER>\n";
print "<BR>\n";
print "<CENTER>\n";
print "<TABLE WIDTH=\"95%\" CELLPADDING=\"5\" CELLSPACING=\"0\" CLASS=\"randtabel\">\n";
print "<TR><TD WIDTH=\"59%\"></TD><TD VALIGN=\"RIGHT\" WIDTH=\"12%\" ID=\"randkaartvol\"><A HREF='?e=@EXPORT&p=PDFDATASET|" . $sDatacode . "'> Exporteer PDF</A></TD><TD VALIGN=\"RIGHT\" WIDTH=\"12%\" ID=\"randkaartvol\"><A HREF='?e=@EXPORT&p=XMLDATASET|" . $sDatacode . "'>Exporteer XML</A></TD><TD VALIGN=\"RIGHT\" WIDTH=\"12%\" ID=\"randkaartvol\"><A HREF='?e=@EXPORT&p=PDFITEMSDATASET|" . $sDatacode . "'> Exporteer Items PDF</A></TD></TR>\n";
print "</TABLE>\n";
print "</CENTER>\n";
print "<CENTER>\n";
print "<TABLE WIDTH=95% cellpadding=5 CELLSPACING=\"3\" ID=\"randtabel2\">\n";
print "<TR><TD COLSPAN=\"2\" ID=\"randeditkop\">Algemeen:</TD></TR>\n";
print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Naam van de dataset, CD/DVD of Kaartservice', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\" >Titel dataset</TD><TD ID=\"randedit\">\n";
print F_GBITEXTBOX("DATASET" . "|" . "DATASET_TITEL" . "|" . "DATACODE=" . $sDatacode . "|90%");
print "</TD></TR>\n";
print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Vertaling van de dataset titel in een andere taal of een aanvulling op de dataset titel (ondertitel). Wordt binnen de provincie gebruikt als dataset naam in de ruimtelijke dataset. Zie woordenlijst voor de naamgeving', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\" >Alternatieve titel</TD><TD ID=\"randedit\">\n";
print F_GBITEXTBOX("DATASET" . "|" . "ALT_TITEL" . "|" . "DATACODE=" . $sDatacode . "|90%");
print "</TD></TR>\n";
print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Korte beschrijving van de inhoud van de dataset, CD/DVD of Kaartservice, CD/DVD of Kaartservice', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Omschrijving dataset</TD><TD ID=\"randedit\">\n";
$sCode = F_SELECTRECORD("SELECT OMSCHRIJVING_CODE FROM DATASET WHERE DATACODE = " . $sDatacode);
print F_GBIMEMOBOX("MEMOTABEL" . "|" . "TEKST" . "|" . "CODE=" . $sCode);
print "</TD></TR>\n";
print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Algemene beschrijving of opmerking, betreffend de geschiedenis van een item in zoverre deze niet te plaatsen zijn in de overige kwaliteitsvelden. Dit kunnen ook beschrijvingen of opmerkingen zijn over de brongegevens en/of het productieproces.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\" >Algemene opmerking</TD><TD ID=\"randedit\">\n";
print F_GBIMEMOBOX("DATASET" . "|" . "OPMERKING" . "|" . "DATACODE=" . $sDatacode);
print "</TD></TR>\n";
print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Referentie datum van de dataset.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Referentie datum</TD><TD ID=\"randedit\">\n";
print F_GBITEXTDATEBOX("DATASET" . "|" . "BRONDATUM" . "|" . "DATACODE=" . $sDatacode . "|90%");
print "</TD></TR>\n";
print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('De datum waar de laatste gebeurtenis betrekking op heeft.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Wijzigingsdatum</TD><TD ID=\"randedit\">\n";
print F_GBITEXTDATEBOX("DATASET" . "|" . "OPBOUWDATUM" . "|" . "DATACODE=" . $sDatacode . "|90%");
print "</TD></TR>\n";
if ($sType == 1) {
print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Dit veld kan gebruikt worden om een algemene beschrijving of opmerking te geven betreft de kwaliteit van de (verschillende) brongegevens.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Bronvermelding</TD><TD ID=\"randedit\" ALIGN=\"LEFT\">\n";
print F_GBIMEMOBOX("GEOGRAFISCH" . "|" . "BRONVERMELDING" . "|" . "DATACODE=" . $sDatacode);
print "</TD></TR>\n";
}
if ($sType == 1) {
print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Methode die gebruikt is om de brongegevens in te winnen.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Opbouwmethode</TD><TD ID=\"randedit\">\n";
print F_GBILISTBOXTYPE("GEOGRAFISCH" . "|" . "OPBOUWMETHODE" . "|" . "DATACODE=" . $sDatacode . "|" . "OPBOUWMETHODE");
print "</TD></TR>\n";
}
print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Gebeurtenis waar de wijzigingsdatum betrekking op heeft.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Gebeurtenis</TD><TD ID=\"randedit\">\n";
print F_GBILISTBOXTYPE("DATASET" . "|" . "ACTIE" . "|" . "DATACODE=" . $sDatacode . "|" . "ACTIE");
print "</TD></TR>\n";
print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Status van de dataset.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Status</TD><TD ID=\"randedit\">\n";
print F_GBILISTBOXTYPE("DATASET" . "|" . "STATUS" . "|" . "DATACODE=" . $sDatacode . "|" . "STATUS");
print "</TD></TR>\n";
print "</TABLE>\n";
print "<TABLE WIDTH=95% cellpadding=5 ID=\"randtabel3\">\n";
print "<TR><TD WIDTH=\"25%\" COLSPAN=\"2\"><BR></TD></TR>\n";
print "</TABLE>\n";
print "<TABLE WIDTH=95% cellpadding=5 CELLSPACING=\"3\" ID=\"randtabel2\">\n";
print "<TR><TD COLSPAN=\"2\" ID=\"randeditkop\">Inhoud:</TD></TR>\n";
print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Naam van de verantwoordelijke organisatie of persoon die inhoudelijk verantwoordelijk is voor deze dataset, CD/DVD of kaartservice.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Contactpersoon inhoud</TD><TD ID=\"randedit\" ALIGN=\"LEFT\">\n";
print F_GBILISTBOX("DATASET" . "|" . "CONTACTPERSOON" . "|" . "DATACODE=" . $sDatacode . "|" . "CONTACT");
print "</TD></TR>\n";
print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Beleidsterrein waar de dataset, CD/DVD of kaartservice betrekking op heeft.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Beleidsterrein</TD><TD ID=\"randedit\" ALIGN=\"LEFT\">\n";
print F_GBILISTBOXTYPE("DATASET" . "|" . "BELEIDSVELD" . "|" . "DATACODE=" . $sDatacode . "|" . "BELEIDSTERREIN");
print "</TD></TR>\n";
print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Naam van het verantwoordelijke team van de dataset, CD/DVD of kaartservice.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Team</TD><TD ID=\"randedit\" ALIGN=\"LEFT\">\n";
print F_GBILISTBOXTYPE("DATASET" . "|" . "TEAM" . "|" . "DATACODE=" . $sDatacode . "|" . "TEAM");
print "</TD></TR>\n";
print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Hoofdthema van de dataset, CD/DVD of kaartservice.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Thema</TD><TD ID=\"randedit\" ALIGN=\"LEFT\">\n";
print F_GBILISTBOXTYPE("DATASET" . "|" . "THEMA" . "|" . "DATACODE=" . $sDatacode . "|" . "THEMA");
print "</TD></TR>\n";
print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Toepassingen waarvoor de data niet geschikt is. Bijvoorbeeld: \\'Niet te gebruiken voor navigatie.\\' of \\'Dataset niet gebruiken bij een schaal groter dan 1:50.000.\\'', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Gebruiksbeperking</TD><TD ID=\"randedit\">\n";
print F_GBITEXTBOX("DATASET" . "|" . "GEBRUIKSBEPERKING" . "|" . "DATACODE=" . $sDatacode . "|90%");
print "</TD></TR>\n";
print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Beperkingen die op een dataset, CD/DVD of kaartservice zijn opgelegd.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Veligheidsrestricties</TD><TD ID=\"randedit\" ALIGN=\"LEFT\">\n";
print F_GBILISTBOXTYPE("DATASET" . "|" . "VEILIGHEID" . "|" . "DATACODE=" . $sDatacode . "|" . "BEPERKING");
print "</TD></TR>\n";
print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Toegangseisen die er zorg voor dragen dat privacy of intellectueel eigendom gewaarborgd zijn en elke andere speciale beperkingen voor het verkrijgen van de metadata of data.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Toegangsrestricties</TD><TD ID=\"randedit\" ALIGN=\"LEFT\">\n";
print F_GBILISTBOXTYPE("DATASET" . "|" . "JURIDISCH" . "|" . "DATACODE=" . $sDatacode . "|" . "JURIDISCH");
print "</TD></TR>\n";
print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Persoon of organisatie die eigenaar is van de dataset.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Copyright</TD><TD ID=\"randedit\" ALIGN=\"LEFT\">\n";
print F_GBITEXTBOX("DATASET" . "|" . "COPYRIGHT" . "|" . "DATACODE=" . $sDatacode . "|90%");
print "</TD></TR>\n";
print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Frequentie waarmee de data herzien wordt.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Herzienings frequentie</TD><TD ID=\"randedit\" ALIGN=\"LEFT\">\n";
print F_GBILISTBOXTYPE("DATASET" . "|" . "BIJHOUDING" . "|" . "DATACODE=" . $sDatacode . "|" . "HERZIENING");
print "</TD></TR>\n";
if ($sType == 1) {
print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('De beoogde schaal waarop het bestand waarheidsgetrouw gebruikt mag worden. Dit moet een positief numeriek getal zijn.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Toepassingsschaal</TD><TD ID=\"randedit\" ALIGN=\"LEFT\">\n";
print F_GBILISTBOXTYPE("GEOGRAFISCH" . "|" . "SCHAAL" . "|" . "DATACODE=" . $sDatacode . "|" . "SCHAAL");
print "</TD></TR>\n";
}
print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Als de dataset, CD/DVD of kaartservice door een leverancier wordt geleverd, kunnen hier de gegevens van de desbetreffende leverancier worden ingevuld.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Contact leverancier</TD><TD ID=\"randedit\" ALIGN=\"LEFT\">\n";
print F_GBIMEMOBOX("DATASET" . "|" . "CONTACT_LEVERANCIER" . "|" . "DATACODE=" . $sDatacode);
print "</TD></TR>\n";
print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Inhoudelijke geldigheid van de data, gespecificeerd naar begin- en eindatum.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Temporele dekking (begin)</TD><TD ID=\"randedit\" ALIGN=\"LEFT\">\n";
print F_GBITEXTDATEBOX("DATASET" . "|" . "DEKKING_BEGIN" . "|" . "DATACODE=" . $sDatacode . "|90%");
print "</TD></TR>\n";
print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Inhoudelijke geldigheid van de data, gespecificeerd naar begin- en eindatum.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Temporele dekking (eind)</TD><TD ID=\"randedit\" ALIGN=\"LEFT\">\n";
print F_GBITEXTDATEBOX("DATASET" . "|" . "DEKKING_EIND" . "|" . "DATACODE=" . $sDatacode . "|90%");
print "</TD></TR>\n";
print "</TABLE>\n";
print "<TABLE WIDTH=95% cellpadding=5 ID=\"randtabel3\">\n";
print "<TR><TD WIDTH=\"25%\" COLSPAN=\"2\"><BR></TD></TR>\n";
print "</TABLE>\n";
print "<TABLE WIDTH=95% cellpadding=5 CELLSPACING=\"3\" ID=\"randtabel2\">\n";
print "<TR><TD COLSPAN=\"2\" ID=\"randeditkop\">Specifiek:</TD></TR>\n";
if ($sType == 1) {
print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Gebied waarbinnen de dataset valt.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Geografisch gebied</TD><TD ID=\"randedit\" ALIGN=\"LEFT\">\n";
print F_GBILISTBOXTYPE("GEOGRAFISCH" . "|" . "DEELGEBIED" . "|" . "DATACODE=" . $sDatacode . "|" . "GEBIED");
print "</TD></TR>\n";
}
print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Methode die gebruikt wordt om de geografische informatie ruimtelijk te representeren.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Ruimtelijk schema</TD><TD ID=\"randedit\" ALIGN=\"LEFT\">\n";
print F_GBILISTBOXTYPE("DATASET" . "|" . "RSCHEMA" . "|" . "DATACODE=" . $sDatacode . "|" . "RSCHEMA");
print "</TD></TR>\n";
print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Aanvullende informatie over de data, bijvoorbeeld documentatie of handleiding.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Aanvullende informatie</TD><TD ID=\"randedit\" ALIGN=\"LEFT\">\n";
print F_GBITEXTBOX("DATASET" . "|" . "AANVUL_INFO" . "|" . "DATACODE=" . $sDatacode . "|90%");
print "</TD></TR>\n";
print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('De naam van de ArcGIS layerfile zoals deze voor de dataset is aangemaakt.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Bestandsnaam</TD><TD ID=\"randedit\" ALIGN=\"LEFT\">\n";
print F_GBITEXTBOX("DATASET" . "|" . "NAAM" . "|" . "DATACODE=" . $sDatacode . "|90%");
print "</TD></TR>\n";
print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Map op de E: schijf waar het ArcGIS layerbestand is opgeslagen.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Fysieke locatie</TD><TD ID=\"randedit\" ALIGN=\"LEFT\">\n";
print F_GBITEXTBOX("DATASET" . "|" . "FYSIEKE_LOCATIE" . "|" . "DATACODE=" . $sDatacode . "|90%");
print "</TD></TR>\n";
print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Het datatype van de dataset, zoals: gdb polygon feature class, gdb line feature class, etc..', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Datatype</TD><TD ID=\"randedit\" ALIGN=\"LEFT\">\n";
print F_GBILISTBOXTYPE("DATASET" . "|" . "DATATYPE" . "|" . "DATACODE=" . $sDatacode . "|" . "DATATYPE");
print "</TD></TR>\n";
if ($sType == 1) {
print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Soort van geometrie van de dataset, zoals vlakken, lijnen, punten, etc..', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Geometrie</TD><TD ID=\"randedit\" ALIGN=\"LEFT\">\n";
print F_GBITEXTBOX("GEOGRAFISCH" . "|" . "GEOMETRIE" . "|" . "DATACODE=" . $sDatacode . "|90%");
print "</TD></TR>\n";
}
if ($sType == 1) {
print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Nauwkeurigheid waarmee de dataset is opgebouwd, dit kan zijn topografisch bij gebruik van topografische ondergrond.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Nauwkeurigheid</TD><TD ID=\"randedit\" ALIGN=\"LEFT\">\n";
print F_GBITEXTBOX("GEOGRAFISCH" . "|" . "POS_NAUWKEURIGHEID" . "|" . "DATACODE=" . $sDatacode . "|90%");
print "</TD></TR>\n";
}
print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Niveau (dataset, serie of service) waar de kwaliteitsbeschrijving betrekking op heeft.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Hiërarchieniveau:</TD><TD ID=\"randedit\" ALIGN=\"LEFT\">\n";
print F_GBILISTBOXTYPE("DATASET" . "|" . "KWALITEIT_BESCH" . "|" . "DATACODE=" . $sDatacode . "|" . "SCOPECODE");
print "</TD></TR>\n";
print "<FORM NAME=FRMLEG METHOD=POST ACTION=\"?e=@GBI&p=DATASETEDIT|" . $sDatacode . "\">\n";
print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('ArcIMS opmaakcode voor de dataset legenda.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Legenda Kaartviewer</TD><TD ID=\"randedit\" ALIGN=\"LEFT\">\n";
print F_GBIMEMOIMS("GEOGRAFISCH" . "|" . "IMSCODE" . "|" . "DATACODE=" . $sDatacode);
print "</TD></TR>\n";
print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\"></TD><TD ID=\"randedit\" ALIGN=\"LEFT\">\n";
print "<input id=submit1 type=submit value='Legenda opslaan' name=submit1></input>\n";
print "</TD></TR>\n";
print "</FORM><BR>\n";
if ($sType == 1) {
$sGebied = F_SELECTRECORD("SELECT DEELGEBIED FROM GEOGRAFISCH WHERE DATACODE = " . $sDatacode);
print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\">Minimale x-coördinaat:</TD><TD ID=\"randedit\" ALIGN=\"LEFT\">\n";
print F_GBITEXTBOXVAST("GEBIED" . "|" . "MIN_X" . "|" . "GEBIED= '" . $sGebied . "'");
print "</TD></TR>\n";
print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\">Maximale x-coördinaat:</TD><TD ID=\"randedit\" ALIGN=\"LEFT\">\n";
print F_GBITEXTBOXVAST("GEBIED" . "|" . "MAX_X" . "|" . "GEBIED= '" . $sGebied . "'");
print "</TD></TR>\n";
print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\">Minimale y-coördinaat:</TD><TD ID=\"randedit\" ALIGN=\"LEFT\">\n";
print F_GBITEXTBOXVAST("GEBIED" . "|" . "MIN_Y" . "|" . "GEBIED= '" . $sGebied . "'");
print "</TD></TR>\n";
print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\">Maximale y-coördinaat:</TD><TD ID=\"randedit\" ALIGN=\"LEFT\">\n";
print F_GBITEXTBOXVAST("GEBIED" . "|" . "MAX_Y" . "|" . "GEBIED= '" . $sGebied . "'");
print "</TD></TR>\n";
}
print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('In het algemeen gebruikte woorden om een onderwerp te beschrijven.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Trefwoorden</TD><TD ALIGN=\"LEFT\">\n";
print "<TABLE cellpadding=\"10\" width=\"100%\">\n";
if (@$_SESSION["GBIPRO"] == "") {
print "<TR><TD VALIGN=top>Gekoppeld</TD><TD VALIGN=top>Niet gekoppeld</TD></TR>\n";
} else {
print "<TR><TD VALIGN=top></TD><TD VALIGN=top></TD></TR>\n";
}
print "<TR><TD ID=\"randedit\" VALIGN=top>\n";
$sTrefwoorden = F_SELECTRECORD("SELECT TREFTEXT.TREFCODE, TREFTEXT.TREFWOORD FROM TREFCODE INNER JOIN TREFTEXT ON TREFCODE.TREFCODE = TREFTEXT.TREFCODE WHERE TREFCODE.DATACODE=" . $sDatacode . " ORDER BY TREFTEXT.TREFWOORD");
$aRecords = explode("|", $sTrefwoorden);
if (@$_SESSION["GBIPRO"] == "") {
print "<SELECT STYLE=" . "\"" . "{width: 300px}" . "\"" . " NAME=" . "PVVPS1" . " SIZE=5 ONKEYUP=" . "\"" . "if(event.keyCode==13 && this.selectedIndex >=0) { execserver('?e=@GBIEXEC&p=DELETE" . "|" . "TREFCODE" . "|" . "TREFCODE=' + this.value + ' AND DATACODE=" . $sDatacode . "'); var optObj = document.createElement('option'); optObj.text=this(selectedIndex).text; optObj.value=this(selectedIndex).value; PVVPS2.options.add(optObj); this.remove(this.selectedIndex); } " . "\"" . ">\n";
}
for ($iRecord = 0; $iRecord < count($aRecords); $iRecord++) {
$sRecord = $aRecords[$iRecord];
$aRecord = explode("^", $sRecord);
if (@$_SESSION["GBIPRO"] == "") {
print "<OPTION VALUE=" . "\"" . $aRecord[0] . "\"" . ">" . $aRecord[1] . "</OPTION>\n";
} else {
print $aRecord[1] . "<BR>\n";
}
}
print "</SELECT>\n";
print "</TD><TD ID=\"randedit\" VALIGN=top>\n";
$sTrefwoorden = F_SELECTRECORD("SELECT TREFTEXT.TREFCODE, TREFTEXT.TREFWOORD FROM TREFTEXT ORDER BY TREFTEXT.TREFWOORD");
$aRecords = explode("|", $sTrefwoorden);
if (@$_SESSION["GBIPRO"] == "") {
print "<SELECT STYLE=" . "\"" . "{width: 300px}" . "\"" . " NAME=" . "PVVPS2" . " SIZE=5 ONKEYUP=" . "\"" . "if(event.keyCode==13 && this.selectedIndex >=0) { execserver('?e=@GBIEXEC&p=LINK" . "|" . "TREFCODE" . "|" . "TREFCODE" . "|" . "DATACODE" . "|" . "' + this.value + '" . "|" . $sDatacode . "'); var optObj = document.createElement('option'); optObj.text=this(selectedIndex).text; optObj.value=this(selectedIndex).value; PVVPS1.options.add(optObj); this.remove(this.selectedIndex); } " . "\"" . ">\n";
}
for ($iRecord = 0; $iRecord < count($aRecords); $iRecord++) {
$sRecord = $aRecords[$iRecord];
$aRecord = explode("^", $sRecord);
if (@$_SESSION["GBIPRO"] == "") {
print "<OPTION VALUE=" . "\"" . $aRecord[0] . "\"" . ">" . $aRecord[1] . "</OPTION>\n";
}
}
if (@$_SESSION["GBIPRO"] == "") {
print "</SELECT>\n";
}
print "</TD></TR></TABLE>\n";
print "</TD></TR>\n";
print "</TABLE>\n";
if ($sType == 1) {
print "<TABLE WIDTH=95% cellpadding=5 ID=\"randtabel3\">\n";
print "<TR><TD WIDTH=\"25%\" COLSPAN=\"2\"><BR></TD></TR>\n";
print "</TABLE>\n";
print "<TABLE WIDTH=95% cellpadding=5 CELLSPACING=\"3\" ID=\"randtabel2\">\n";
print "<TR><TD COLSPAN=\"2\" ID=\"randeditkop\">Items:</TD></TR>\n";
print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Standaarditem van de dataset.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Standaarditem</TD><TD ID=\"randedit\" ALIGN=\"LEFT\">\n";
print F_GBITEXTBOX("GEOGRAFISCH" . "|" . "STD_ITEM" . "|" . "DATACODE=" . $sDatacode . "|90%");
print "</TD></TR>\n";
$sItem = F_SELECTRECORD("SELECT STD_ITEM FROM GEOGRAFISCH WHERE DATACODE = " . $sDatacode);
$sCode = F_SELECTRECORD("SELECT ITEMDEFINITIE FROM ITEMS WHERE ITEMS.DATACODE = " . $sDatacode . " AND ITEMS.ITEMNAAM = '" . $sItem . "'");
print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('De items van een dataset, gebruik het plusje of kruisje voor het toevoegen of verwijderen van een item.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Items</TD><TD>\n";
$sRecords = F_SELECTRECORD("SELECT a.VOLGNR, a.ITEMNAAM, a.ITEMDEFINITIE, a.EENHEID, b.TEKST FROM ITEMS a, MEMOTABEL b WHERE a.DOMEIN = b.CODE AND DATACODE =" . $sDatacode . " ORDER BY VOLGNR");
//$sRecords = F_SELECTRECORD("SELECT VOLGNR, ITEMNAAM, ITEMDEFINITIE FROM ITEMS WHERE DATACODE=" . $sDatacode . " ORDER BY VOLGNR");
unset($aRecords);
if ($sRecords != "") {
$aRecords = explode("|", $sRecords);
}
print "<TABLE WIDTH=100% CELLSPACING=\"2\">\n";
print "<TR><TD WIDTH=\"5%\" ALIGN=\"LEFT\" ID=\"randedit\">Nr</TD><TD WIDTH=\"15%\" ALIGN=\"LEFT\" ID=\"randedit\" onmouseover=\"Tip('Naam van een item.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Itemnaam</TD><TD WIDTH=\"20%\" ALIGN=\"LEFT\" ID=\"randedit\" onmouseover=\"Tip('Definitie van een item.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Itemdefinitie</TD><TD WIDTH=\"5%\" ALIGN=\"LEFT\" ID=\"randedit\" onmouseover=\"Tip('Eenheid van een item.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Eenheid</TD><TD WIDTH=\"50%\" ALIGN=\"LEFT\" ID=\"randedit\" onmouseover=\"Tip('Mogelijke waarden van een item.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Waarden</TD><TD ></TD></TR>\n";
if (isset($aRecords)) {
for ($iRecord = 0; $iRecord < count($aRecords); $iRecord++) {
$sRecord = $aRecords[$iRecord];
$aRecord = explode("^", $sRecord);
$sVolgnr = $aRecord[0];
$sKolomnaam = $aRecord[1];
$sKolomdef = $aRecord[2];
$sEenheid = $aRecord[3];
$sTekst = $aRecord[4];
$sWaarde = F_SELECTRECORD("SELECT DOMEIN FROM ITEMS WHERE DATACODE = " . $sDatacode . " AND VOLGNR = " . $sVolgnr);
print "<TR>\n";
print "<TD ALIGN=\"LEFT\" VALIGN=top>" . F_GBITEXTBOX("ITEMS" . "|" . "VOLGNR" . "|" . "VOLGNR=" . $sVolgnr . " AND DATACODE=" . $sDatacode . "|60%") . "</TD><TD ALIGN=\"LEFT\" VALIGN=top>" . F_GBITEXTBOX("ITEMS" . "|" . "ITEMNAAM" . "|" . "VOLGNR=" . $sVolgnr . " AND DATACODE=" . $sDatacode . "|90%") . "</TD><TD ALIGN=\"LEFT\" VALIGN=top>" . F_GBITEXTBOX("ITEMS" . "|" . "ITEMDEFINITIE" . "|" . "VOLGNR=" . $sVolgnr . " AND DATACODE=" . $sDatacode . "|95%") . "</TD><TD ALIGN=\"LEFT\" VALIGN=top>" . F_GBITEXTBOX("ITEMS" . "|" . "EENHEID" . "|" . "VOLGNR=" . $sVolgnr . " AND DATACODE=" . $sDatacode . "|80%") . "</TD><TD ALIGN=\"LEFT\" VALIGN=top>" . F_GBIMEMOBOX("MEMOTABEL" . "|" . "TEKST" . "|" . "CODE=" . $sWaarde) . "</TD><TD VALIGN=top ALIGN=\"LEFT\">\n";
if (@$_SESSION["GBIPRO"] == "") {
print "<A HREF='#' ONCLICK=\"execserver('?e=@GBIEXEC&p=DELETEITEM" . "|" . $sDatacode . "|" . $sVolgnr . "');\">";
print "<IMG SRC='images\\wissen1.png' ALT='Verwijderen item' BORDER=0 HEIGHT=20 WIDTH=20></A>\n";
}
print "</TD>\n";
print "</TR>\n";
print "</TR>\n";
}
}
if (@$_SESSION["GBIPRO"] == "") {
print "<TR><TD ALIGN=\"LEFT\">\n";
print "<A HREF='#' ONCLICK=" . "\"" . "execserver('?e=@GBIEXEC&p=INSERTITEM" . "|" . $sDatacode . "');" . "\"" . ">\n";
print "<IMG SRC='images\\maak.png' ALT='Toevoegen item' BORDER=0 HEIGHT=20 WIDTH=20></A>\n";
print "</TD><TD></TD><TD></TD><TD></TD></TR>\n";
}
print "</TABLE>\n";
print "</TD></TR>\n";
print "</TABLE>\n";
}
print "<TABLE WIDTH=95% cellpadding=5 ID=\"randtabel3\">\n";
print "<TR><TD WIDTH=\"25%\" COLSPAN=\"2\"><BR></TD></TR>\n";
print "</TABLE>\n";
print "<TABLE WIDTH=95% cellpadding=5 CELLSPACING=\"3\" ID=\"randtabel2\">\n";
print "<TR><TD COLSPAN=\"2\" ID=\"randeditkop\">Metadata:</TD></TR>\n";
print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Contactpersoon van de metagegevens van een dataset, CD/DVD of kaartservice.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Contactpersoon metadata</TD><TD ALIGN=\"LEFT\">\n";
print F_GBILISTBOXMETA("DATASET" . "|" . "METAPERSOON" . "|" . "DATACODE=" . $sDatacode . "|" . "CONTACT");
print "</TD></TR>\n";
print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Datum waarop de metadata is gecreëerd.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Metadata datum</TD><TD ID=\"randedit\">\n";
print F_GBITEXTDATEBOX("DATASET" . "|" . "INVOERDATUM" . "|" . "DATACODE=" . $sDatacode . "|90%");
print "</TD></TR>\n";
print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\">Taal dataset</TD><TD ID=\"randedit\" >\n";
print F_GBITEXTBOXVAST("DATASET" . "|" . "TAAL" . "|" . "DATACODE=" . $sDatacode);
print "</TD></TR>\n";
print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\">Karakterset</TD><TD ID=\"randedit\" >\n";
print F_GBITEXTBOXVAST("DATASET" . "|" . "KARAKTERSET" . "|" . "DATACODE=" . $sDatacode);
print "</TD></TR>\n";
print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\">Metadatastandaard</TD><TD ID=\"randedit\">\n";
print F_GBITEXTBOXVAST("DATASET" . "|" . "METADATASTD" . "|" . "DATACODE=" . $sDatacode);
print "</TD></TR>\n";
print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\">Versie metadatastandaard</TD><TD ID=\"randedit\">\n";
print F_GBITEXTBOXVAST("DATASET" . "|" . "VERSIE_METASTD" . "|" . "DATACODE=" . $sDatacode);
print "</TD></TR>\n";
print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\">Code referentiesysteem</TD><TD ID=\"randedit\">\n";
print F_GBITEXTBOXVAST("DATASET" . "|" . "CODE_REF" . "|" . "DATACODE=" . $sDatacode);
print "</TD></TR>\n";
print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\">Organisatie referentiesysteem</TD><TD ID=\"randedit\">\n";
print F_GBITEXTBOXVAST("DATASET" . "|" . "ORG_NAMESPACE" . "|" . "DATACODE=" . $sDatacode);
print "</TD></TR>\n";
print "<TR><TD WIDTH=25% VALIGN=top ID=\"randedit\" onmouseover=\"Tip('Contactpersoon voor de distributie van een dataset, CD/DVD of kaartservice.', BGCOLOR, '#CCE3EF', WIDTH, 250)\" onmouseout=\"UnTip()\">Contactpersoon ditributie</TD><TD ALIGN=\"LEFT\">\n";
print F_GBILISTBOXGEO("DATASET" . "|" . "GEOLOKET" . "|" . "DATACODE=" . $sDatacode . "|" . "CONTACT");
print "</TD></TR>\n";
print "</TABLE>\n";
print "</CENTER>\n";
print "<BR>\n";
}
if ($sAction == "NEWDATASET") {
print "<div id=\"nav_path\">\n";
print "<span>> <a href=\"index.php\"> Hoofdmenu</a> > Nieuwe dataset aanmaken </span>\n";
print "</div>\n";
print "<BR><BR><BR>\n";
print "<CENTER>\n";
print "<TABLE BORDER=\"0\" CELLSPACING=\"10\">\n";
print "<TR><TD VALIGN=\"MIDDLE\" WIDTH=\"600px\" ID=\"kopbegin\">\n";
print "<CENTER>Nieuwe dataset aanmaken</CENTER>\n";
print "</TD></TR></TABLE></CENTER>\n";
print "<BR>\n";
print "<CENTER>\n";
print "<TABLE BORDER=\"0\" CELLSPACING=\"10\">\n";
print "<TR><TD ALIGN=\"LEFT\" VALIGN=\"MIDDLE\" WIDTH=\"600px\">\n";
if (@$_SESSION["GBIMUTEREN"] == TRUE) {
print "<FORM NAME=FRMNEW METHOD=POST ACTION=\"?e=@GBI&p=CREATEDATASET\">\n";
print "<LI><B>Dataset aanmaken</B></A><BR><BR>\n";
print "Titel dataset: <INPUT SIZE=70 TYPE=TEXT NAME='NEW'><BR><BR>\n";
print "Type dataset: <SELECT NAME='SNEW'>\n";
print "<OPTION>Dataset</OPTION>\n";
print "<OPTION>CD/DVD</OPTION>\n";
print "<OPTION>Service</OPTION></SELECT>\n";
print " <input id=submit1 type=submit value=Aanmaken name=submit1></input>\n";
print "</FORM>\n";
print "<BR><BR>";
print "<FORM NAME=FRMCOPY METHOD=POST ACTION=\"?e=@GBI&p=CREATEDATASET\">\n";
print "<LI><B>Dataset kopieëren</B><BR><BR>";
print "Titel dataset: <INPUT SIZE=70 TYPE=TEXT NAME='NCOPY'><BR><BR>\n";
$sQuery = F_SELECTRECORD("SELECT DATACODE, DATASET_TITEL FROM DATASET ORDER BY DATASET_TITEL");
$aRecords = explode("|", $sQuery);
print "<SELECT NAME='COPY'>\n";
for ($iRecord = 0; $iRecord < count($aRecords); $iRecord++) {
$sRecord = $aRecords[$iRecord];
$aRecord = explode("^", $sRecord);
$sDC = $aRecord[0];
$sDT = $aRecord[1];
print "<OPTION VALUE=" . "\"" . $sDC . "\"" . ">" . $sDT . "</OPTION>\n";
}
print "</SELECT>\n";
print "<BR>\n";
print "<BR>\n";
print "<input id=submit type=submit value=Kopieëren name=submit></input>\n";
print "</FORM>\n";
}
print "<BR>\n";
print "<BR>\n";
print "</TD></TR></TABLE>\n";
print "</CENTER>\n";
}
if ($sAction == "AFDRUK") {
print "<div id=\"nav_path\">\n";
print "<span>> <a href=\"index.php\"> Hoofdmenu</a> > Afdrukopties </span>\n";
print "</div>\n";
print "<BR><BR><BR>\n";
print "<CENTER>\n";
print "<TABLE BORDER=\"0\" CELLSPACING=\"10\">\n";
print "<TR><TD VALIGN=\"MIDDLE\" WIDTH=\"600px\" ID=\"kopbegin\">\n";
print "<CENTER>Afdrukopties</CENTER>\n";
print "</TD></TR></TABLE></CENTER>\n";
print "<BR>\n";
print "<CENTER>\n";
print "<TABLE BORDER=\"0\" CELLSPACING=\"10\">\n";
print "<TR><TD ALIGN=\"LEFT\" VALIGN=\"MIDDLE\" WIDTH=\"600px\">\n";
if (@$_SESSION["GBIMUTEREN"] == TRUE) {
print "<LI><A HREF='?e=@PRINT&p=TOTAL' TARGET='_blank'>PDF met alle datasets</A><BR><BR>\n";
print "<LI><A HREF='?e=@PRINT&p=OPENBAAR' TARGET='_blank'>PDF met openbare datasets</A><BR><BR>\n";
print "<LI><A HREF='?e=@PRINT&p=NIETOPENBAAR' TARGET='_blank'>PDF met niet openbare datasets</A><BR><BR>\n";
print "<FORM NAME=FRMPRINT METHOD=POST ACTION=\"?e=@PRINT&p=DATASET\">\n";
print "<LI>Selecteer een dataset ";
$sQuery = F_SELECTRECORD("SELECT DATACODE, DATASET_TITEL FROM DATASET ORDER BY DATASET_TITEL");
$aRecords = explode("|", $sQuery);
print "<SELECT NAME='PRINT'>\n";
for ($iRecord = 0; $iRecord < count($aRecords); $iRecord++) {
$sRecord = $aRecords[$iRecord];
$aRecord = explode("^", $sRecord);
$sDC = $aRecord[0];
$sDT = $aRecord[1];
print "<OPTION VALUE=" . "\"" . $sDC . "\"" . ">" . $sDT . "</OPTION>\n";
}
print "</SELECT>\n";
print "<BR>\n";
print "<BR>\n";
print "<input id=submit type=submit value=\"Maak PDF\" name=submit></input>\n";
print "</FORM>\n";
}
print "<BR>\n";
print "<BR>\n";
print "</TD></TR></TABLE>\n";
print "</CENTER>\n";
}
if ($sAction == "ADMIN") {
print "<div id=\"nav_path\">\n";
print "<span>> <a href=\"index.php\"> Hoofdmenu</a> > Administratieve taken </span>\n";
print "</div>\n";
print "<BR><BR><BR>\n";
print "<CENTER>\n";
print "<TABLE BORDER=\"0\" CELLSPACING=\"10\">\n";
print "<TR><TD VALIGN=\"MIDDLE\" WIDTH=\"800px\" ID=\"kopbegin\">\n";
print "<CENTER>Administratieve taken</CENTER>\n";
print "</TD></TR></TABLE></CENTER>\n";
print "<BR>\n";
print "<CENTER>\n";
print "<TABLE BORDER=\"0\" CELLSPACING=\"10\">\n";
print "<TR><TD ALIGN=\"LEFT\" VALIGN=\"MIDDLE\" WIDTH=\"600px\">\n";
if (@$_SESSION["GBIMUTEREN"] == TRUE) {
print "<FORM NAME=FRMTREF METHOD=POST ACTION=\"?e=@GBI&p=CREATETREFWOORD\">\n";
print "<LI><B>Trefwoord toevoegen</B></A><BR><BR>\n";
print "Trefwoord: <INPUT SIZE=30 TYPE=TEXT NAME='NEWTREF'>\n";
print " <input id=submit1 type=submit value=Toevoegen name=submit1></input>\n";
print "</FORM><BR>\n";
print "<LI><B>Kopie van database maken</B><BR><BR>\n";
print "<A HREF='http://paros/website/databases/gdb_database.mdb'>Database kopieëren</A><BR><BR>";
}
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "</TD></TR></TABLE>\n";
print "</CENTER>\n";
}
if ($sAction == "EXPORT") {
print "<div id=\"nav_path\">\n";
print "<span>> <a href=\"index.php\"> Hoofdmenu</a> > Exporteren Geo-Portaal </span>\n";
print "</div>\n";
print "<BR><BR><BR>\n";
print "<CENTER>\n";
print "<TABLE BORDER=\"0\" CELLSPACING=\"10\">\n";
print "<TR><TD VALIGN=\"MIDDLE\" WIDTH=\"800px\" ID=\"kopbegin\">\n";
print "<CENTER>Exporteren Geo-Portaal</CENTER>\n";
print "</TD></TR></TABLE></CENTER>\n";
print "<BR>\n";
print "<CENTER>\n";
print "<TABLE BORDER=\"0\" CELLSPACING=\"10\">\n";
print "<TR><TD ALIGN=\"LEFT\" VALIGN=\"MIDDLE\" WIDTH=\"600px\">\n";
if (@$_SESSION["GBIMUTEREN"] == TRUE) {
print "<LI><B>PDF</B><BR>\n";
print "<A HREF='?e=@EXPORT&p=PDFOPENBAAR'>Exporteren PDF datasets</A><BR>\n";
print "<LI><B>XML</B><BR>\n";
print "<A HREF='?e=@EXPORT&p=XMLOPENBAAR'>Exporteren XML datasets</A><BR>\n";
print "<LI><B>PDF Items</B><BR>\n";
print "<A HREF='?e=@EXPORT&p=PDFITEMS'>Exporteren PDF items datasets</A><BR>\n";
print "<LI><B>DDE config XML</B><BR>\n";
print "<A HREF='?e=@EXPORT&p=DDEOPENBAAR'>Exporteren DDE XML gegevens</A><BR>\n";
print "<LI><B>AXL</B><BR>\n";
print "<A HREF='?e=@EXPORT&p=IMSOPENBAAR'>Exporteren ArcIMS AXL gegevens</A><BR>\n";
print "<LI><B>Legend XML</B><BR>\n";
print "<A HREF='?e=@EXPORT&p=LEGENDOPENBAAR'>Exporteren ArcIMS Legend XML gegevens</A><BR>\n";
print "<LI><B>ID's generen</B><BR>\n";
print "<A HREF='?e=@EXPORT&p=IDGENEREREN'>ID's genereren</A><BR>\n";
}
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "</TD></TR></TABLE>\n";
print "</CENTER>\n";
}
} else {
print "<BR>\n";
print "U bent niet ingelogd. Klik <A HREF=\"?e=@GBIEXEC&p=MENU\"> hier</A> om u aan te melden.\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
print "<BR>\n";
}
F_ENDSTYLE();
}
public function __construct($steamDocument = null)
{
if ($steamDocument && $steamDocument->get_attribute("DOC_FILE_PERSISTENCE") === 1) {
$this->uuid = $steamDocument->get_content_internal();
$this->folder = FILE_PERSISTENCE_PATH . $uuid[0] . "/" . $uuid[1] . "/" . $uuid[2] . "/" . $uuid[3] . "/" . $uuid[4] . "/" . $uuid[5] . "/" . $uuid[6] . "/" . substr($uuid, 7) . "/";
$this->fileContent = $folder . "content";
} else {
$this->uuid = UUID::generate(UUID::UUID_RANDOM, UUID::FMT_STRING);
}
$this->folder = FILE_PERSISTENCE_PATH . $uuid[0] . "/" . $uuid[1] . "/" . $uuid[2] . "/" . $uuid[3] . "/" . $uuid[4] . "/" . $uuid[5] . "/" . $uuid[6] . "/" . substr($uuid, 7) . "/";
$this->fileContent = $this->folder . "content";
$this->fileIds = $this->folder . "ids";
}
public function createClassificationPath($scheme, $path)
{
$parent = $scheme->uuid;
$kind = $scheme->singular;
$path = explode('/', $path);
foreach ($path as $p) {
if (!strlen($p)) {
continue;
}
$rs = $this->query(array('kind' => $kind, 'parent' => $parent, 'tag' => $p, 'limit' => 1));
if ($rs->EOF && $parent == $scheme->uuid) {
$rs = $this->query(array('kind' => $kind, 'parent' => null, 'tag' => $p, 'limit' => 1));
}
$data = $rs->next();
if ($data) {
if (!isset($data->title) && isset($data->slug)) {
$data->title = ucwords($data->slug);
$data['parent'] = $parent;
$data->store();
}
$parent = $data->uuid;
continue;
}
$data = array('uuid' => UUID::generate(), 'kind' => $kind, 'parent' => $parent, 'slug' => $p);
if ($parent !== null) {
$data['_refs'][] = 'parent';
}
$this->setData($data);
$parent = $data['uuid'];
}
return $parent;
}
/**
* 检查行id，无自动生成
* @param $type
* @param $data
* @param $id
* @param $idname
* @return unknown_type
*/
protected function checkid($type, &$data, $id = null, $idname = 'id')
{
if (!$id) {
$id = $data[$idname];
if (!$id) {
if ($type == self::CT_TimeUUIDType || $type == self::CT_LexicalUUIDType) {
$id = UUID::generate(UUID::UUID_TIME, UUID::FMT_STRING, $this->column_family, $this->column_type);
} else {
$id = uniqid();
}
}
}
$data[$idname] = $id;
// unset($data[$idname]);
return $id;
}
echo $GENERATED;
?>
</textarea></div></td>
</tr>
</table></td>
</tr>
</table>
<BR>
<?
}
?>
<form name="form1" method="POST" action="index.php?page=region-generate">
<TABLE width="80%" border=0 align=center cellpadding="0" cellspacing="0">
<TR>
<TD width="221" height="40" align="center" valign="bottom" background="images/main/regions_middle.jpg"><b>Region UUID</b></a></TD>
<TD width="221" height="40" align="center" valign="bottom" background="images/main/regions_middle.jpg"><b><input type=text name=region_uuid size=80 readonly value=<?$str = UUID::generate(UUID::UUID_TIME, UUID::FMT_STRING, "osgrid");echo $str;?>></b></a></TD>
</TR>
<TR style='BACKGROUND-COLOR: #e8eff5'>
<TD width="221" height="40" align="center" valign="middle" bgcolor="#FFFFFF"><b>Region - Name</b></a></TD>
<TD width="221" height="40" align="center" valign="middle" bgcolor="#FFFFFF"><input type=text name=region_name size=80></TD>
</TR>
<TR style='BACKGROUND-COLOR: #e8eff5'>
<TD width="221" height="40" align="center" valign="middle" bgcolor="#FFFFFF"><b>Region - Location X</b></a></TD>
<TD width="221" height="40" align="center" valign="middle" bgcolor="#FFFFFF"><input type=text name=region_location_x size=80></TD>
</TR>
<TR style='BACKGROUND-COLOR: #e8eff5'>
<TD width="221" height="40" align="center" valign="middle" bgcolor="#FFFFFF"><b>Region - Location Y</b></a></TD>
<TD width="221" height="40" align="center" valign="middle" bgcolor="#FFFFFF"><input type=text name=region_location_y size=80></TD>
</TR>
<TR style='BACKGROUND-COLOR: #e8eff5'>
<TD width="221" height="40" align="center" valign="middle" bgcolor="#FFFFFF"><b>Region - IP Port</b></a></TD>
function getUuid()
{
include_once PHPLIB_DIR . "/Uuid/Uuid.php";
$uuid = new UUID();
$uuid->generate();
return $uuid->toRFC4122String();
}
public function create($URI, &$data)
{
switch ($URI['concept']) {
case 'labeled':
if (isset($data['folderName']) && isset($data['messageNumber']) && isset($data['labelId'])) {
$this->mbox = $this->open_mbox($data['folderName']);
imap_setflag_full($this->mbox, $data['messageNumber'], '$Label' . $data['labelId'], ST_UID);
return array('id' => $data['folderName'] . '/' . $data['messageNumber'] . '#' . $data['labelId']);
}
return array();
case 'followupflagged':
//deve ser gravado primeiro no imap, obtido o message-id e, depois gravado no banco
if (isset($data['folderName']) && isset($data['messageNumber'])) {
$this->mbox = $this->open_mbox($data['folderName']);
$s = imap_setflag_full($this->mbox, $data['messageNumber'], '$Followupflagged', ST_UID);
$headers = imap_fetch_overview($this->mbox, $data['messageNumber'], FT_UID);
$data['messageId'] = $headers[0]->message_id;
/*
* TODO
* Verificar erro ao tentar setar uma flag com o limite de flags atingido
* onde o status retornado pelo imap_setflag_full é true mesmo não sendo possível
* a inserção da flag.
*/
return $s && imap_last_error() != 'Too many user flags in mailbox' ? $data : array();
} else {
if (isset($data['messageId'])) {
/**
* Busca pela mensagem com o messageId dado. Se uma pasta foi passada, busca nela,
* senão busca em todas.
*/
$folders = array();
if (isset($data['folderName'])) {
$folders = array($data['folderName']);
} else {
$folder_list = $this->get_folders_list();
foreach ($folder_list as $folder) {
if (isset($folder['folder_id'])) {
$folders[] = $folder['folder_id'];
}
}
}
foreach ($folders as $folder) {
$this->mbox = $this->open_mbox($folder);
if ($messages = imap_search($this->mbox, 'ALL TEXT "Message-Id: ' . $data['messageId'] . '"', SE_UID)) {
$s = imap_setflag_full($this->mbox, $messages[0], '$Followupflagged', ST_UID);
/**
* Stop searching in all folders
*/
return $data;
}
}
}
}
return array();
case 'message':
require_once ROOTPATH . '/library/uuid/class.uuid.php';
$GLOBALS['phpgw_info']['flags'] = array('noheader' => true, 'nonavbar' => true, 'currentapp' => 'expressoMail', 'enable_nextmatchs_class' => True);
$return = array();
require_once dirname(__FILE__) . '/../../services/class.servicelocator.php';
$mailService = ServiceLocator::getService('mail');
$msg_uid = $data['msg_id'];
$body = $data['body'];
$body = str_replace("<", "&yzwkx;", $body);
//Alterar as Entities padrão das tags < > para compatibilizar com o Expresso
$body = str_replace(">", "&xzwky;", $body);
$body = str_replace("%nbsp;", " ", $body);
$body = html_entity_decode($body, ENT_QUOTES, 'ISO-8859-1');
$body = str_replace("&yzwkx;", "<", $body);
$body = str_replace("&xzwky;", ">", $body);
$folder = mb_convert_encoding($data['folder'], "UTF7-IMAP", "ISO-8859-1, UTF-8");
$folder = @preg_replace('/INBOX[\\/.]/i', "INBOX" . $this->imap_delimiter, $folder);
/**
* Gera e preenche o field Message-Id do header
*/
$mailService->addHeaderField('Message-Id', UUID::generate(UUID::UUID_RANDOM, UUID::FMT_STRING) . '@Draft');
$mailService->addHeaderField('Reply-To', mb_convert_encoding($data['input_reply_to'], 'ISO-8859-1', 'UTF-8,ISO-8859-1'));
$mailService->addHeaderField('Date', date("d-M-Y H:i:s"));
$mailService->addTo(mb_convert_encoding($data['input_to'], 'ISO-8859-1', 'UTF-8,ISO-8859-1'));
$mailService->addCc(mb_convert_encoding($data['input_cc'], 'ISO-8859-1', 'UTF-8,ISO-8859-1'));
$mailService->addBcc(mb_convert_encoding($data['input_cco'], 'ISO-8859-1', 'UTF-8,ISO-8859-1'));
$mailService->setSubject(mb_convert_encoding($data['input_subject'], 'ISO-8859-1', 'UTF-8,ISO-8859-1'));
if (isset($data['input_important_message'])) {
$mailService->addHeaderField('Importance', 'High');
}
if (isset($data['input_return_receipt'])) {
$mailService->addHeaderField('Disposition-Notification-To', Config::me('mail'));
}
$this->rfc2397ToEmbeddedAttachment($mailService, $body);
$isHTML = isset($data['type']) && $data['type'] == 'html' ? true : false;
if (!$body) {
$body = ' ';
}
$mbox_stream = $this->open_mbox($folder);
$attachment = json_decode($data['attachments'], TRUE);
if (!empty($attachment)) {
foreach ($attachment as &$value) {
if ((int) $value > 0) {
$att = Controller::read(array('id' => $value, 'concept' => 'mailAttachment'));
if ($att['disposition'] == 'embedded' && $isHTML) {
$body = str_replace('"../prototype/getArchive.php?mailAttachment=' . $att['id'] . '"', '"' . mb_convert_encoding($att['name'], 'ISO-8859-1', 'UTF-8,ISO-8859-1') . '"', $body);
$mailService->addStringImage(base64_decode($att['source']), $att['type'], mb_convert_encoding($att['name'], 'ISO-8859-1', 'UTF-8,ISO-8859-1'));
} else {
$mailService->addStringAttachment(base64_decode($att['source']), mb_convert_encoding($att['name'], 'ISO-8859-1', 'UTF-8,ISO-8859-1'), $att['type'], 'base64', isset($att['disposition']) ? $att['disposition'] : 'attachment');
}
unset($att);
} else {
$value = json_decode($value, true);
switch ($value['type']) {
case 'imapPart':
$att = $this->getForwardingAttachment($value['folder'], $value['uid'], $value['part']);
if (strstr($body, 'src="./inc/get_archive.php?msgFolder=' . $value['folder'] . '&msgNumber=' . $value['uid'] . '&indexPart=' . $value['part'] . '"') !== false) {
$body = str_ireplace('src="./inc/get_archive.php?msgFolder=' . $value['folder'] . '&msgNumber=' . $value['uid'] . '&indexPart=' . $value['part'] . '"', 'src="' . $att['name'] . '"', $body);
$mailService->addStringImage($att['source'], $att['type'], mb_convert_encoding($att['name'], 'ISO-8859-1', 'UTF-8,ISO-8859-1'));
} else {
$mailService->addStringAttachment($att['source'], mb_convert_encoding($att['name'], 'ISO-8859-1', 'UTF-8,ISO-8859-1'), $att['type'], 'base64', isset($att['disposition']) ? $att['disposition'] : 'attachment');
}
unset($att);
break;
case 'imapMSG':
$mbox_stream = $this->open_mbox($value['folder']);
$rawmsg = $this->getRawHeader($value['uid']) . "\r\n\r\n" . $this->getRawBody($value['uid']);
$mailService->addStringAttachment($rawmsg, mb_convert_encoding(base64_decode($value['name']), 'ISO-8859-1', 'UTF-8,ISO-8859-1'), 'message/rfc822', '7bit', 'attachment');
unset($rawmsg);
break;
default:
break;
}
}
}
}
if ($isHTML) {
$mailService->setBodyHtml($body);
} else {
$mailService->setBodyText(mb_convert_encoding($body, 'ISO-8859-1', 'UTF-8,ISO-8859-1'));
}
if (imap_append($mbox_stream, "{" . $this->imap_server . ":" . $this->imap_port . "}" . $folder, $mailService->getMessage(), "\\Seen \\Draft")) {
$status = imap_status($mbox_stream, "{" . $this->imap_server . ":" . $this->imap_port . "}" . $folder, SA_UIDNEXT);
$return['id'] = $status->uidnext - 1;
if ($data['uidsSave']) {
$this->delete_msgs(array('folder' => $folder, 'msgs_number' => $data['uidsSave']));
}
Logger::info('expressomail', 'SAVEMSG', 'ID: ' . $return['id'] . ' # ' . 'Subject:' . $data['input_subject']);
}
return $return;
}
}
public function addEvent($name, $data, $lazy = false, $cascade = false)
{
if (!($target = $this->sinkWithName($name))) {
return false;
}
$kind = null;
if (is_array($data) || is_object($data)) {
$json = json_encode($data);
if (isset($data['kind'])) {
$kind = $data['kind'];
}
} else {
if (!strlen($data)) {
$json = json_encode(array());
$data = array();
} else {
$json = $data;
$data = json_decode($json, true);
}
}
$now = time();
$uuid = UUID::generate();
$fields = array('_uuid' => $uuid, '_timestamp' => gmstrftime('%Y-%m-%d %H:%M:%S', $now), '_year' => gmstrftime('%Y', $now), '_month' => gmstrftime('%m', $now), '_day' => gmstrftime('%d', $now), '_weekday' => gmstrftime('%w', $now), '_yearweek' => gmstrftime('%V', $now), '_yearday' => gmstrftime('%j', $now), '_hour' => gmstrftime('%H', $now), '_minute' => gmstrftime('%M', $now), '_second' => gmstrftime('%S', $now), '_dirty' => 'Y', '_kind' => $kind, '_data' => $json);
$this->db->insert('lens_' . $target['name'], $fields);
if (!$lazy) {
$this->indexEvent($target, $uuid, $now, $data, $fields, $lazy, $cascade);
}
return $uuid;
}
<?php include_once "../include/library/Uuid/Uuid.php"; $uuid = new UUID(); $uuid->generate(); echo $uuid->toRFC4122String();
public function test_uuid()
{
$errors = array();
$this->assertTrue(PandraValidator::check(UUID::generate(), 'timeuuid', 'uuid', $errors));
$this->assertFalse(PandraValidator::check('foobar', 'timeuuid', 'uuid', $errors));
$this->assertTrue(!empty($errors));
}
protected function verifyClassificationList(&$list, $kind, $root)
{
if (!is_array($list)) {
if ($list === null) {
$list = array();
return;
}
$list = array($list);
}
$model = self::$models[get_class($this)];
foreach ($list as $k => $item) {
if (null == ($uuid = UUID::isUUID($item))) {
echo "[kind={$kind}, iri={$item}]\n";
$rs = $model->query(array('kind' => $kind, 'iri' => $item));
if ($obj = $rs->next()) {
$uuid = $obj->uuid;
}
}
if ($uuid === null) {
if (strpos($item, ':') !== false) {
$data = array('uuid' => UUID::generate(), 'kind' => $kind, 'uri' => $item, 'title' => $item, 'sameAs' => array($item));
$model->setData($data);
$uuid = $data['uuid'];
} else {
return $kind . ' "' . $item . '" does not exist';
}
}
$list[$k] = $uuid;
}
return true;
}
public static function uuid1($node = "", $ns = "")
{
return UUID::generate(UUID::UUID_TIME, UUID::FMT_STRING, $node, $ns);
}
public function submit($queueId, $jobRequest, $request, $objectUuid = null, $scheduleDate = null, $restrictInstance = null, $restrictCluster = null)
{
$userScheme = null;
$userUuid = null;
if (isset($request->session->user)) {
$userScheme = $request->session->user['scheme'];
$userUuid = $request->session->user['uuid'];
}
if ($this->cluster) {
if ($restrictInstance) {
$restrictCluster = $this->cluster->clusterNameOfInstance($restrictInstance);
}
}
if (is_array($jobRequest) || is_object($jobRequest)) {
$jobRequest = json_encode($jobRequest);
}
$uuid = UUID::generate();
$this->db->insert('mq_q_' . $queueId, array('msg_uuid' => $uuid, 'msg_object_uuid' => $objectUuid, 'msg_state' => 'wait', 'msg_request' => $jobRequest, 'msg_process_at' => $scheduleDate, 'msg_submitter_scheme' => $userScheme, 'msg_submitter_uuid' => $userUuid, 'msg_restrict_cluster' => $restrictCluster, 'msg_restrict_instance' => $restrictInstance));
return $uuid;
}
public function createpublic()
{
require APPPATH . 'libraries/uuid.php';
$_return = array();
if ($this->input->is_ajax_request()) {
$_all_get = $this->input->get(NULL, TRUE);
if (count($_all_get['mFile']) != 0) {
$_uuid = UUID::generate();
$_pubid = uniqid('pub_', true);
$_set_pass = isset($_all_get['optPubPassword']) && $_all_get['optPubPassword'] == 'activate' ? true : false;
$_pass = NULL;
$_set_time = isset($_all_get['optPubOpen']) && $_all_get['optPubOpen'] == 'activate' ? true : false;
$_time = NULL;
$_set_limit = isset($_all_get['optPubLimit']) && $_all_get['optPubLimit'] == 'activate' ? true : false;
$_limit = NULL;
$_set_message = isset($_all_get['optPubMessage']) && $_all_get['optPubMessage'] == 'activate' ? true : false;
$_message = NULL;
if ($_set_time) {
$_time = strtotime($_all_get['inputPublicDay'] . '.' . $_all_get['inputPublicMonth'] . '.' . $_all_get['inputPublicYear']);
}
if ($_set_pass) {
$_pass = !empty($_all_get['inputPublicPassword']) ? md5($_all_get['inputPublicPassword']) : NULL;
}
if ($_set_limit) {
$_limit = $_all_get['inputPublicLimit'] != 0 ? $_all_get['inputPublicLimit'] : 0;
}
if ($_set_message) {
$_message = !empty($_all_get['inputPublicMessage']) ? addslashes($_all_get['inputPublicMessage']) : NULL;
}
$_insert = array('id' => NULL, 'publicUniqueID' => $_pubid, 'publicUUID' => $_uuid, 'publicMessage' => $_message, 'userUniqueID' => $this->session->userdata['userUnique'], 'publicPassword' => $_pass, 'publicLimit' => $_time, 'published' => '1');
$_inserted = $this->mFiles->createPublic($_insert);
$this->mGlobal->log(array('type' => "info", 'message' => "User '{$this->session->userdata['companyName']}' created public link '{$_uuid}'.", 'size' => NULL));
if ($_inserted) {
$_error = false;
for ($i = 0; $i < count($_all_get['mFile']); $i++) {
$_fileDetails = $this->mFiles->getFiles($_all_get['mFile'][$i]);
if ($_fileDetails != false) {
if ($_limit == 0 or $_limit == NULL) {
$_downloadCounter = NULL;
} else {
$_downloadCounter = '0';
}
$_f2p_insert = array('id' => NULL, 'publicUniqueID' => $_pubid, 'fileUniqueID' => $_fileDetails->fileUniqueID, 'allowedCount' => $_limit, 'downloadCount' => $_downloadCounter);
$_file2public = $this->mFiles->createPublic($_f2p_insert, 'public2file');
$this->mGlobal->log(array('type' => "info", 'message' => "Added file '{$_fileDetails->fileName}' to public link '{$_uuid}'.", 'data' => $_fileDetails->fileUniqueID, 'size' => NULL));
if ($_file2public == false) {
$_error = true;
}
}
}
if ($_error) {
$_return = array('type' => 'error', 'message' => __('files_msg_releaseproblems'));
} else {
$_return = array('type' => 'success', 'message' => __('files_msg_pubcreatesuccess', array(site_url('public/' . $_uuid), site_url('public/' . $_uuid))) . '<br /><small><a id="copy-button" data-clipboard-text="' . site_url('public/' . $_uuid) . '" title="' . __('copy_to_clipboard') . '">' . __('copy_to_clipboard') . '</a></small>');
}
} else {
$_return = array('type' => 'error', 'message' => __('files_msg_pubcreateproblems'));
}
} else {
$_return = array('type' => 'error', 'message' => __('files_msg_transmitproblem'));
}
} else {
$_return = array('type' => 'error', 'message' => __('files_msg_noajaxrequest'));
}
$this->output->set_content_type('application/json')->set_output(json_encode($_return));
}
protected static function generateUUID()
{
return UUID::generate(UUID::UUID_TIME, UUID::FMT_BINARY);
}
