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