Phraseanet/www/thesaurus2/xmlhttp/openbranches.x.php

<?php

/*
 * This file is part of Phraseanet
 *
 * (c) 2005-2012 Alchemy
 *
 * For the full copyright and license information, please view the LICENSE
 * file that was distributed with this source code.
 */

use Alchemy\Phrasea\Application;
use Alchemy\Phrasea\Core\Configuration;

/**
 *
 * @license     http://opensource.org/licenses/gpl-3.0 GPLv3
 * @link        www.phraseanet.com
 */
require_once __DIR__ . "/../../../lib/bootstrap.php";
$app = new Application();
$appbox = $app['phraseanet.appbox'];
$registry = $app['phraseanet.registry'];


$request = http_request::getInstance();
$parm = $request->get_parms(
    "bid"
    , "id"
    , "typ"  // "TH" (thesaurus) ou "CT" (cterms)
    , "t"
    , "method" // "equal", "begins", "contains"
    , "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)));
$html = $root->appendChild($ret->createElement("html"));
$unicode = new unicode();

if ($parm["bid"] !== null) {
    $loaded = false;
    try {
        $databox = $appbox->get_databox((int) $parm['bid']);
        if ($parm["typ"] == "CT") {
            $xqroot = "cterms";
            $dom = $databox->get_dom_cterms();
        } else {
            $xqroot = "thesaurus";
            $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 = "/$xqroot//te[@id='" . $parm["id"] . "']";

            if ($parm["debug"])
                print("q:" . $q . "<br/>\n");
            if (($znode = $xpath->query($q)->item(0))) {
                if ($parm["t"]) {
                    $t = splitTermAndContext($parm["t"]);
                    //    $q2 = "@w='" . thesaurus::xquery_escape($unicode->remove_indexer_chars($t[0])) . "'";
                    switch ($parm["method"]) {
                        case "begins":
                            $q2 = "starts-with(@w, '" . thesaurus::xquery_escape($unicode->remove_indexer_chars($t[0])) . "')";
                            if ($t[1])
                                $q2 .= " and starts-with(@k, '" . thesaurus::xquery_escape($unicode->remove_indexer_chars($t[1])) . "')";
                            break;
                        case "contains":
                            $q2 = "contains(@w, '" . thesaurus::xquery_escape($unicode->remove_indexer_chars($t[0])) . "')";
                            if ($t[1])
                                $q2 .= " and contains(@k, '" . thesaurus::xquery_escape($unicode->remove_indexer_chars($t[1])) . "')";
                            break;
                        case "equal":
                        default:
                            $q2 = "(@w='" . thesaurus::xquery_escape($unicode->remove_indexer_chars($t[0])) . "')";
                            if ($t[1])
                                $q2 .= " and (@k='" . thesaurus::xquery_escape($unicode->remove_indexer_chars($t[1])) . "')";
                            break;
                    }
                    $q2 = "//sy[" . $q2 . "]";
                }
                if ($parm["debug"])
                    print("q2:" . $q2 . "<br/>\n");

                $nodes = $xpath->query($q2, $znode);
                for ($i = 0; $i < $nodes->length; $i ++ ) {
                    for ($n = $nodes->item($i)->parentNode; $n && $n->nodeType == XML_ELEMENT_NODE && $n->nodeName == "te"; $n = $n->parentNode) {
                        $n->setAttribute("open", "1");
                        if ($parm["debug"])
                            printf("opening node te id=%s<br/>\n", $n->getAttribute("id"));
                    }
                }

                getHTML2($znode, $ret, $html, 0);
            }
        }
    } catch (Exception $e) {

    }
}
if ($parm["debug"])
    print("<pre>" . $ret->saveXML() . "</pre>");
else
    print($ret->saveXML());

function getHTML2($srcnode, $dstdom, $dstnode, $depth)
{
    global $parm;
    // printf("in: depth:%s<br/>\n", $depth);

    $allsy = "";
    $nts = 0;
    for ($n = $srcnode->firstChild; $n; $n = $n->nextSibling) {
        if ($n->nodeType == XML_ELEMENT_NODE) {
            if ($n->nodeName == "te") {
                $nts ++;
                if ($n->getAttribute("open")) {
                    $id = $n->getAttribute("id");
                    $div_the = $dstnode->appendChild($dstdom->createElement("div"));
                    $div_the->setAttribute("id", "THE_" . $id);
                    $div_the->setAttribute("class", "s_");

                    $u = $div_the->appendChild($dstdom->createElement("u"));
                    $u->setAttribute("id", "THP_" . $id);

                    $div_thb = $dstnode->appendChild($dstdom->createElement("div"));
                    $div_thb->setAttribute("id", "THB_" . $id);

                    $t = getHTML2($n, $dstdom, $div_thb, $depth + 1);
                    if ($t["nts"] == 0) {
                        $u->setAttribute("class", "nots");
                        $div_thb->setAttribute("class", "ob");
                    } else {
                        $u->appendChild($dstdom->createTextNode("..."));
                        $div_thb->setAttribute("class", "hb");
                    }

                    $div_the->appendChild($dstdom->createTextNode($t["allsy"]));

                    if ($parm["debug"])
                        printf("explored node te id=%s : nts=%s<br/>\n", $n->getAttribute("id"), $t["nts"]);
                }
            }
            elseif ($n->nodeName == "sy") {
                $t = $n->getAttribute("v");
                if ($k = $n->getAttribute("k")) {
                    //        $t .= " ($k)";
                }
                $allsy .= ( $allsy ? " ; " : "") . $t;
            }
        }
    }
    if ($allsy == "") {
        if ($parm["typ"] == "TH")
            $allsy = "THESAURUS";
        elseif ($parm["typ"] == "CT")
            $allsy = $srcnode->getAttribute("field");
    }

    return(array("allsy" => $allsy, "nts"   => $nts));
}

function splitTermAndContext($word)
{
    $term = trim($word);
    $context = "";
    if (($po = strpos($term, "(")) !== false) {
        if (($pc = strpos($term, ")", $po)) !== false) {
            $context = trim(substr($term, $po + 1, $pc - $po - 1));
            $term = trim(substr($term, 0, $po));
        }
    }

    return(array($term, $context));
}