');

$html = '';


$sbid = (int) $parm['sbid'];

// root = 'TX_P.' . $xbas_id . '.T ....
$tids = explode('.', $parm['id']);
$thid = implode('.', $tids);


$loaded = false;

try {
    $connbas = connection::getPDOConnection($sbid);
    $dbname = phrasea::sbas_names($sbid);

    $t_nrec = array();
    $lthid = strlen($thid);

    // count occurences
    if ($lthid == 1) {
        $dthid = str_replace('.', 'd', $thid);

        $sql = 'SELECT COUNT(DISTINCT record_id) AS n FROM thit WHERE value LIKE :like ';

        $stmt = $connbas->prepare($sql);
        $stmt->execute(array(':like' => $dthid . '%'));
        $rs = $stmt->fetchAll(PDO::FETCH_ASSOC);
        $stmt->closeCursor();

        if ($parm['debug'])
            printf("/*\n  thid=%s\n  %s \n */\n", $thid, $sql);

        foreach ($rs as $rowbas)
            $t_nrec[$thid] = $rowbas;

        $sql = 'SELECT SUBSTRING_INDEX(SUBSTR(value, ' . ($lthid + 1) . '), "d", 1) AS k ,
              COUNT(DISTINCT record_id) AS n
            FROM thit
            WHERE value LIKE :like
            GROUP BY k';

        $stmt = $connbas->prepare($sql);
        $stmt->execute(array(':like' => $dthid . '%'));
        $rs = $stmt->fetchAll(PDO::FETCH_ASSOC);
        $stmt->closeCursor();

        if ($parm['debug'])
            printf("/*\n  thid=%s\n  %s \n */\n", $thid, $sql);

        foreach ($rs as $rowbas)
            $t_nrec[$thid . $rowbas['k']] = $rowbas;
    }
    elseif (strlen($thid) > 1) {
        $dthid = str_replace('.', 'd', $thid);
        $sql = 'SELECT SUBSTRING_INDEX(SUBSTR(value, ' . ($lthid) . '), \'d\', 1) AS k ,
              COUNT(DISTINCT record_id) AS n
            FROM thit
            WHERE value LIKE :like
            GROUP BY k';

        $stmt = $connbas->prepare($sql);
        $stmt->execute(array(':like' => $dthid . '%'));
        $rs = $stmt->fetchAll(PDO::FETCH_ASSOC);
        $stmt->closeCursor();

        if ($parm['debug'])
            printf("/*\n  thid=%s\n  %s \n */\n", $thid, $sql);

        foreach ($rs as $rowbas)
            $t_nrec[$thid] = $rowbas;

        $sql = 'SELECT SUBSTRING_INDEX(SUBSTR(value, ' . ($lthid + 2) . '), \'d\', 1) AS k ,
              COUNT(DISTINCT record_id) AS n
            FROM thit
            WHERE value LIKE :like
            GROUP BY k';

        $stmt = $connbas->prepare($sql);
        $stmt->execute(array(':like' => $dthid . '%'));
        $rs = $stmt->fetchAll(PDO::FETCH_ASSOC);
        $stmt->closeCursor();

        if ($parm['debug'])
            printf("/*\n  thid=%s\n  %s \n */\n", $thid, $sql);

        foreach ($rs as $rowbas)
            $t_nrec[$thid . '.' . $rowbas['k']] = $rowbas;
    }

    if ($parm['debug'])
        printf("/* %s */\n", var_export($t_nrec, true));

    $databox = $appbox->get_databox($sbid);
    if ($parm['type'] == 'T') {
        $xqroot = 'thesaurus';
        $dom = $databox->get_dom_thesaurus();
    } else { // C
        $xqroot = 'cterms';
        $dom = $databox->get_dom_cterms();
    }

    if ($dom) {
        $term0 = '';
        $firstTerm0 = '';

        $xpath = new DOMXPath($dom);
        if ($thid == 'T' || $thid == 'C') {
            $q = '/' . $xqroot;
            $term0 = $dbname;
        } else {
            $q = '/' . $xqroot . '//te[@id=\'' . $thid . '\']';
        }
        if ($parm['debug'])
            print("q:" . $q . "
\n");

        $nodes = $xpath->query($q);
        if ($nodes->length > 0) {
            $node0 = $nodes->item(0);


            $key0 = null; // key of the sy in the current language (or key of the first sy if we can't find good lng)
            $nts0 = 0;  // count of ts under this term

            $label = buildLabel($node0, $key0, $nts0);

            if ($parm['debug'])
                printf("buildLabel(...)\n  label=%s\n  key0=%s\n  nts0=%s \n", $label, $key0, $nts0);

            $class = '';
            if ($nts0 > 0)
                $class .= ( $class == '' ? '' : ' ') . 'expandable';
            if ($parm['last'])
                $class .= ( $class == '' ? '' : ' ') . 'last';

            $html .= '
' . "\n";
            $html .= '  
' . "\n";
            $html .= '  ' . $label . '';

            if (isset($t_nrec[$thid]))
                $html .= ' ' . $t_nrec[$thid]['n'] . '';

            $html .= "\n";

            // on dresse la liste des termes specifiques avec comme cle le synonyme dans la langue pivot
            $nts = 0;
            $tts = array();
            for ($n = $node0->firstChild; $n; $n = $n->nextSibling) {
                if ($n->nodeName == 'te' && ! $n->getAttribute('delbranch')) {
                    $nts ++;

                    $key0 = null; // key of the sy in the current language (or key of the first sy if we can't find good lng)
                    $nts0 = 0;  // count of ts under this term

                    $label = buildLabel($n, $key0, $nts0);

                    if ($parm['debug'])
                        printf("buildLabel(...)\n  label=%s\n  key0=%s\n  nts0=%s \n", $label, $key0, $nts0);

                    for ($uniq = 0; $uniq < 9999; $uniq ++ ) {
                        if ( ! isset($tts[$key0 . '_' . $uniq]))
                            break;
                    }
                    $tts[$key0 . '_' . $uniq] = array('label' => $label, 'nts'   => $nts0, 'n'     => $n);
                }
            }

            if ($parm['debug'])
                printf("tts(%s) : 
%s

\n", $nts, var_export($tts, true));

            if ($nts > 0) {
                $field0 = $node0->getAttribute('field');
                if ($field0)
                    $field0 = 'field="' . $field0 . '"';

                $html .= '  
' . "\n";

                // dump every ts
                if ($parm['sortsy'] && $parm['lng'])
                    ksort($tts, SORT_STRING);
                elseif ($parm['type'] == 'C')
                    $tts = array_reverse($tts);
                if ($parm['debug'])
                    printf("%s: type=%s : 
%s

\n", __LINE__, $parm['type'], var_export($tts, true));

                foreach ($tts as $ts) {
                    $class = '';
                    if ($ts['nts'] > 0)
                        $class .= ( $class == '' ? '' : ' ') . 'expandable';
                    if ( -- $nts == 0)
                        $class .= ( $class == '' ? '' : ' ') . 'last';

                    $tid = $ts['n']->getAttribute('id');

                    $html .= '    
' . "\n";
                    if ($ts['nts'] > 0)
                        $html .= '      
' . "\n";
                    else
                        $html .= '      
' . "\n";
                    $html .= '      ' . $ts['label'] . '';

                    if (isset($t_nrec[$tid]))
                        $html .= ' ' . $t_nrec[$tid]['n'] . '';

                    $html .= "\n";

                    if ($ts['nts'] > 0)
                        $html .= '      
loading
' . "\n";
                    $html .= '    
' . "\n";
                }
                $html .= '  
' . "\n";
            }

            $html .= '
' . "\n";
        }
    }
} catch (Exception $e) {

}

print(p4string::jsonencode(array('parm' => $parm, 'html' => $html)));

if ($parm['debug'])
    print("