get_parms(
"bid"
, "pid"
, 'typ'
, 'id'
// , "t"
// , "k"
, "piv"
, "debug"
);
if ($parm["debug"]) {
phrasea::headers(200, true, 'text/html', 'UTF-8', true);
} else {
phrasea::headers(200, true, 'text/xml', 'UTF-8', false);
}
$ret = new DOMDocument("1.0", "UTF-8");
$ret->standalone = true;
$ret->preserveWhiteSpace = false;
$root = $ret->appendChild($ret->createElement("result"));
$root->appendChild($ret->createCDATASection(var_export($parm, true)));
if ($parm["bid"] !== null) {
$loaded = false;
try {
$databox = $appbox->get_databox((int) $parm['bid']);
$connbas = connection::getPDOConnection($app, $parm['bid']);
$s_thits = ';';
$sql = "SELECT DISTINCT value FROM thit";
$stmt = $connbas->prepare($sql);
$stmt->execute();
$rs = $stmt->fetchAll(PDO::FETCH_ASSOC);
$stmt->closeCursor();
foreach ($rs as $rowbas) {
$s_thits .= ( str_replace('d', '.', $rowbas['value']) . ';');
}
if ($parm['typ'] == 'CT') {
$dom = $databox->get_dom_cterms();
} else {
$dom = $databox->get_dom_thesaurus();
}
if ($dom) {
$xpath = new DOMXPath($dom);
if ($parm["id"] == "T")
$q = "/thesaurus";
elseif ($parm["id"] == "C")
$q = "/cterms";
else
$q = "//te[@id='" . $parm["id"] . "']";
if (($znode = $xpath->query($q)->item(0))) {
$root->setAttribute('n_nohits', (string) (count_nohits($znode, $s_thits)));
}
}
} catch (Exception $e) {
}
}
if ($parm["debug"])
print("" . $ret->saveXML() . "
");
else
print($ret->saveXML());
function count_nohits($node, &$s_thits)
{
global $parm;
$ret = 0;
if ($node->nodeType == XML_ELEMENT_NODE) { // && $node->nodeName=='te')
$id = $node->getAttribute('id') . '.';
if ((strpos($s_thits, $id)) === false && ! $node->getAttribute('field')) {
// this id has no hits, neither any of his children
$ret = 1;
} else {
// this id (or a child) has hit, must check children
for ($n = $node->firstChild; $n; $n = $n->nextSibling)
$ret += count_nohits($n, $s_thits);
}
if ($parm['debug'])
printf("%s : %d
\n", $id, $ret);
}
return($ret);
}