function abm_vocabulario($do, $vocabulario_id = "") { global $DBCFG; $arrayTesa = doArrayDatosTesauro($_POST); switch ($do) { case 'A': //Alta de vocabulario de referencia $sql = SQL("insert", "into {$DBCFG['DBprefix']}config (titulo,autor,idioma,cobertura,keywords,tipo,polijerarquia,url_base,cuando) values ('{$arrayTesa['titulo']}','{$arrayTesa['autor']}','{$arrayTesa['idioma']}','{$arrayTesa['cobertura']}','{$arrayTesa['keywords']}','{$arrayTesa['tipo']}', '{$arrayTesa['polijerarquia']}', '{$arrayTesa['url_base']}','{$arrayTesa['cuando']}')"); break; case 'M': //Modificacion de vocabulario de referencia y principal $sql = SQL("update", "{$DBCFG['DBprefix']}config SET titulo='{$arrayTesa['titulo']}',\r\n\t\t\t\tautor='{$arrayTesa['autor']}',\r\n\t\t\t\tidioma='{$arrayTesa['idioma']}',\r\n\t\t\t\tcobertura='{$arrayTesa['cobertura']}',\r\n\t\t\t\tkeywords= '{$arrayTesa['keywords']}',\r\n\t\t\t\ttipo= '{$arrayTesa['tipo']}',\r\n\t\t\t\tpolijerarquia= '{$arrayTesa['polijerarquia']}',\r\n\t\t\t\turl_base= '{$arrayTesa['url_base']}',\r\n\t\t\t\tcuando='{$arrayTesa['cuando']}'\r\n\t\t\t\twhere id='{$vocabulario_id}'"); break; case 'B': //Eliminacion de un vocabulario de REFERENCIA break; } return array("vocabulario_id" => $vocabulario_id); }
function abm_vocabulario($do, $vocabulario_id = "") { global $DBCFG; global $DB; $arrayTesa = doArrayDatosTesauro($_POST); $POSTarrayUser[orga] = trim($POSTarrayUser[orga]); $arrayTesa[titulo] = trim($arrayTesa[titulo]); $arrayTesa[autor] = trim($arrayTesa[autor]); $arrayTesa[idioma] = trim($arrayTesa[idioma]); $arrayTesa[cobertura] = trim($arrayTesa[cobertura]); $arrayTesa[keywords] = trim($arrayTesa[keywords]); $arrayTesa[tipo] = trim($arrayTesa[tipo]); $arrayTesa[polijerarquia] = trim($arrayTesa[polijerarquia]); $arrayTesa[url_base] = trim($arrayTesa[url_base]); $arrayTesa[cuando] = trim($arrayTesa[cuando]); $POSTarrayUser[orga] = $DB->qstr($POSTarrayUser[orga], get_magic_quotes_gpc()); $arrayTesa[titulo] = $DB->qstr($arrayTesa[titulo], get_magic_quotes_gpc()); $arrayTesa[autor] = $DB->qstr($arrayTesa[autor], get_magic_quotes_gpc()); $arrayTesa[idioma] = $DB->qstr($arrayTesa[idioma], get_magic_quotes_gpc()); $arrayTesa[cobertura] = $DB->qstr($arrayTesa[cobertura], get_magic_quotes_gpc()); $arrayTesa[keywords] = $DB->qstr($arrayTesa[keywords], get_magic_quotes_gpc()); $arrayTesa[tipo] = $DB->qstr($arrayTesa[tipo], get_magic_quotes_gpc()); $arrayTesa[polijerarquia] = $DB->qstr($arrayTesa[polijerarquia], get_magic_quotes_gpc()); $arrayTesa[url_base] = $DB->qstr($arrayTesa[url_base], get_magic_quotes_gpc()); $arrayTesa[cuando] = $DB->qstr($arrayTesa[cuando], get_magic_quotes_gpc()); $arrayTesa["contact_mail"] = $_POST["contact_mail"]; $vocabulario_id = secure_data($vocabulario_id, "int"); switch ($do) { case 'A': //Alta de vocabulario de referencia $sql = SQL("insert", "into {$DBCFG['DBprefix']}config (titulo,autor,idioma,cobertura,keywords,tipo,polijerarquia,url_base,cuando)\r\n\tvalues\r\n\t({$arrayTesa['titulo']},{$arrayTesa['autor']},{$arrayTesa['idioma']},{$arrayTesa['cobertura']},{$arrayTesa['keywords']},{$arrayTesa['tipo']}, {$arrayTesa['polijerarquia']}, {$arrayTesa['url_base']},{$arrayTesa['cuando']})"); break; case 'M': //Modificacion de vocabulario de referencia y principal $sql = SQL("update", "{$DBCFG['DBprefix']}config SET titulo={$arrayTesa['titulo']},\r\n\t\t\t\tautor={$arrayTesa['autor']},\r\n\t\t\t\tidioma={$arrayTesa['idioma']},\r\n\t\t\t\tcobertura={$arrayTesa['cobertura']},\r\n\t\t\t\tkeywords= {$arrayTesa['keywords']},\r\n\t\t\t\ttipo= {$arrayTesa['tipo']},\r\n\t\t\t\tpolijerarquia= {$arrayTesa['polijerarquia']},\r\n\t\t\t\turl_base= {$arrayTesa['url_base']},\r\n\t\t\t\tcuando={$arrayTesa['cuando']}\r\n\t\t\t\twhere id= '{$vocabulario_id}'"); //It is the main vocabulary => change config values if ($vocabulario_id == '1') { $sql = SQL("select", "v.value_id,v.value_type,v.value,v.value_code,v.value_order\r\n\t\t\t\t\t\tfrom {$DBCFG['DBprefix']}values v\r\n\t\t\t\t\t\twhere v.value_type='config'"); while ($array = $sql->FetchRow()) { $value_code = $_POST[$array["value"]] == '00' ? '0' : secure_data($_POST[$array[value]], "int"); $sql_update = SQL("update", "{$DBCFG['DBprefix']}values set value_code='{$value_code}' where value_type='config' and value='{$array['value']}'"); } //Update to 1.72=> check if CFG_SUGGESTxWORD is defined $ctrl = ARRAYfetchValueXValue('config', 'CFG_SUGGESTxWORD'); if (!$ctrl[value_id]) { $value_code = $_POST["CFG_SUGGESTxWORD"] == '00' ? '0' : secure_data($_POST["CFG_SUGGESTxWORD"], "int"); $sql1_6x1_7b = SQL("insert", "into `" . $DBCFG[DBprefix] . "values` (`value_type`, `value`, `value_order`, `value_code`) VALUES\r\n\t\t\t\t\t('config', 'CFG_SUGGESTxWORD', NULL, '{$value_code}')"); } //Update to 1.73=> check if CONTACT_MAIL is defined if (ARRAYfetchValue('CONTACT_MAIL')) { $ADDcontactMail = ABM_value("MOD_SINGLE_VALUE", array("value_type" => 'CONTACT_MAIL', "value_code" => 'NULL', "value" => $arrayTesa["contact_mail"])); } else { $ADDcontactMail = ABM_value("ADD_VALUE", array("value_type" => 'CONTACT_MAIL', "value_code" => 'NULL', "value" => $arrayTesa["contact_mail"])); } $MODdccontributor = ABM_value("MOD_VALUE", array("value_type" => 'METADATA', "value_code" => 'dc:contributor', "value" => $_POST["dccontributor"])); $MODdcpublisher = ABM_value("MOD_VALUE", array("value_type" => 'METADATA', "value_code" => 'dc:publisher', "value" => $_POST["dcpublisher"])); $MODdcrights = ABM_value("MOD_VALUE", array("value_type" => 'METADATA', "value_code" => 'dc:rights', "value" => $_POST["dcrights"])); } break; case 'B': //Eliminacion de un vocabulario de REFERENCIA //no es el vocabulario por defecto if ($vocabulario_id > 1) { $sql = SQLo("delete", "from {$DBCFG['DBprefix']}tema where tesauro_id=?", array($vocabulario_id)); $sql = SQLo("delete", "from {$DBCFG['DBprefix']}config where id=?", array($vocabulario_id)); } break; } return array("vocabulario_id" => $vocabulario_id); }