get_parms(
"bid"
, "id"
, "typ" // "TH" (thesaurus) ou "CT" (cterms)
, "piv" // lng de consultation (pivot)
, "dir"
, "debug"
);
if($parm["debug"])
{
header("Content-Type: text/html; charset=UTF-8");
header("Expires: Mon, 26 Jul 1997 05:00:00 GMT"); // Date in the past
header("Last-Modified: " . gmdate("D, d M Y H:i:s") . " GMT"); // always modified
header("Cache-Control: no-store, no-cache, must-revalidate"); // HTTP/1.1
header("Cache-Control: post-check=0, pre-check=0", false);
header("Pragma: no-cache"); // HTTP/1.0
?>
standalone = true;
$ret->preserveWhiteSpace = false;
$root = $ret->appendChild($ret->createElement("result"));
$root->appendChild($ret->createCDATASection( var_export($parm, true) ));
$refresh_list = $root->appendChild($ret->createElement("refresh_list"));
if($parm["bid"] !== null)
{
$loaded = false;
$connbas = connection::getInstance($parm['bid']);
if($connbas)
{
if($parm["typ"]=="CT")
$xqroot = "cterms";
else
$xqroot = "thesaurus";
$sql = "SELECT value AS xml FROM pref WHERE prop='".$xqroot."'";
if($rsbas = $connbas->query($sql))
{
if($rowbas = $connbas->fetch_assoc($rsbas))
{
$xml = trim($rowbas["xml"]);
if(($dom = @DOMDocument::loadXML($xml)))
{
$xpath = new DOMXPath($dom);
$q = "/$xqroot//sy[@id='".$parm["id"]."']";
if($parm["debug"])
print("q:".$q."
\n");
$sy0 = $xpath->query($q)->item(0);
if($sy0)
{
if($parm["dir"]==1 && $sy0 && $sy0->previousSibling)
{
$sy0->parentNode->insertBefore($sy0, $sy0->previousSibling);
}
elseif($parm["dir"]== -1 && $sy0 && $sy0->nextSibling)
{
$sy0->parentNode->insertBefore($sy0->nextSibling, $sy0);
}
$dom->documentElement->setAttribute("modification_date", $now = date("YmdHis"));
$sql = "UPDATE pref SET value='" . $connbas->escape_string($dom->saveXML()) . "'" ;
$sql .= ", updated_on='" .$connbas->escape_string($now). "'";
$sql .= " WHERE prop='".$xqroot."'";
if($parm["debug"])
; // printf("sql: %s
\n", htmlentities($sql));
else
$connbas->query($sql);
if($xqroot == 'thesaurus')
{
$cache_abox = cache_appbox::getInstance();
$cache_abox->delete('thesaurus_'.$parm['bid']);
}
$url = "./getterm.x.php";
$url .= "?bid=" . urlencode($parm["bid"]);
$url .= "&typ=" . urlencode($parm["typ"]);
$url .= "&piv=" . urlencode($parm["piv"]);
$url .= "&id=" . urlencode($sy0->parentNode->getAttribute("id"));
$url .= "&sel=" . urlencode($parm["id"]);
$url .= "¬s=1"; // liste des ts inutile
if($parm["debug"])
{
printf("url: %s
\n", $url);
// printf("" . htmlentities($gt->saveXML()) . "
");
}
$ret = xmlhttp($url); // �crase le ret inital !
$root = $ret->getElementsByTagName("result")->item(0);
$refresh_list = $root->appendChild($ret->createElement("refresh_list"));
$r = $refresh_list->appendChild($ret->createElement("refresh"));
// $r->setAttribute("id", $parm["id"]);
$r->setAttribute("id", $sy0->parentNode->parentNode->getAttribute("id"));
$r->setAttribute("type", $parm["typ"]);
}
}
}
$connbas->free_result($rsbas);
}
}
}
if($parm["debug"])
print("" . $ret->saveXML() . "
");
else
print($ret->saveXML());
?>