");

$dbname = null;

$result = array('n_recsChanged' => 0); // , 'n_termsDeleted'=>0, 'n_termsReplaced'=>0);

try {

    $databox = databox::get_instance((int) $parm['sbid']);
    $domth = $databox->get_dom_thesaurus();
    $domct = $databox->get_dom_cterms();

    if ($domth && $domct) {
        $xpathct = new DOMXPath($domct);

        $field = null;
        $x = null;

        $xp = '//te[@id="' . $parm['cid'] . '"]/sy';
        $nodes = $xpathct->query($xp);
        if ($nodes->length == 1) {
            $sy = $term = $nodes->item(0);

            $candidate = array('a' => $sy->getAttribute('v'), 'u' => $sy->getAttribute('w'));
            if (($k = $sy->getAttribute('k')))
                $candidate['u'] .= ' (' . $k . ')';
            if ($parm['debug'])
                printf("%s : candidate = %s \n", __LINE__, var_export($candidate, true));

            $syid = str_replace('.', 'd', $sy->getAttribute('id')) . 'd';
            $field = $sy->parentNode->parentNode->getAttribute('field');

            // remove candidate from cterms
            $te = $sy->parentNode;
            $te->parentNode->removeChild($te);

            $databox->saveCterms($domct);

            $sql = 'SELECT t.record_id, r.xml
              FROM thit AS t INNER JOIN record AS r USING(record_id)
              WHERE t.value = :syn_id
              ORDER BY record_id';

            $stmt = $connbas->prepare($sql);
            $stmt->execute(array(':syn_id' => $syid));
            $rs = $stmt->fetchAll(PDO::FETCH_ASSOC);
            $stmt->closeCursor();

            if ($parm['debug'])
                printf("%s : %s \n", __LINE__, $sql);

            $t_rid = array();
            foreach ($rs as $rowbas) {
                $rid = $rowbas['record_id'];
                if ( ! array_key_exists('' . $rid, $t_rid))
                    $t_rid['' . $rid] = $rowbas['xml'];
            }
            if ($parm['debug'])
                printf("%s : %s \n", __LINE__, var_export($t_rid, true));

            $replacing = array();
            $parm['t'] = explode(';', $parm['t']);
            foreach ($parm['t'] as $t)
                $replacing[] = simplified($t);
            if ($parm['debug'])
                printf("%s : replacing=%s \n", __LINE__, var_export($replacing, true));


            foreach ($t_rid as $rid => $xml) {
                if ($parm['debug'])
                    printf("%s rid=%s \n", __LINE__, $rid);
                $dom = new DOMDocument();
                $dom->preserveWhiteSpace = false;
                $dom->formatOutput = true;
                if ( ! ($dom->loadXML($xml)))
                    continue;

                if ($parm['debug'])
                    printf("AVANT:\n%s \n", htmlentities($dom->saveXML()));

                // $existed = false;
                $nodetoreplace = null;
                $nodestodelete = array();
                $xp = new DOMXPath($dom);

                $x = '/record/description/' . $field;
                if ($parm['debug'])
                    printf("%s x=%s \n", __LINE__, $x);
                $nodes = $xp->query($x);

                $insertBefore = null;
                if ($nodes->length <= 0)
                    continue;
//        {
                $insertBefore = $nodes->item($nodes->length - 1);
                if ($parm['debug'])
                    printf("%s nodes->length=%s  - insertBefore=%s, nn=%s\n", __LINE__, $nodes->length, var_export($insertBefore, true), $insertBefore->nodeName);
                while (($insertBefore = $insertBefore->nextSibling) && $insertBefore->nodeType != XML_ELEMENT_NODE);
                if ($parm['debug'] && $insertBefore)
                    printf("%s insertBefore=%s , nn=%s \n", __LINE__, var_export($insertBefore, true), $insertBefore->nodeName);

                $t_mval = array();
                foreach ($nodes as $n) {
                    $value = simplified($n->textContent);
                    if (in_array($value['a'], $t_mval))  // a chance to delete doubles
                        continue;
                    for ($i = 0; $i < 9999 && array_key_exists($value['u'] . '_' . $i, $t_mval); $i ++ )
                        ;
                    $t_mval[$value['u'] . '_' . $i] = $value['a'];
                    $nodestodelete[] = $n;
                }
                if ($parm['debug'])
                    printf("%s : t_mval AVANT = %s \n", __LINE__, var_export($t_mval, true));

                if (($k = array_search($candidate['a'], $t_mval)) !== false) {
                    unset($t_mval[$k]);
                    if ($parm['debug'])
                        printf("%s : after unset %s from t_mval %s \n", __LINE__, $k, var_export($t_mval, true));
                    foreach ($replacing as $r) {
                        if (in_array($r['a'], $t_mval))
                            continue;
                        for ($i = 0; $i < 9999 && array_key_exists($r['u'] . '_' . $i, $t_mval); $i ++ )
                            ;
                        $t_mval[$r['u'] . '_' . $i] = $r['a'];
                    }
                    if ($parm['debug'])
                        printf("%s : after replace to t_mval %s \n", __LINE__, var_export($t_mval, true));
                }

                foreach ($nodestodelete as $n)
                    $n->parentNode->removeChild($n);

                ksort($t_mval, SORT_STRING);

                if ($insertBefore) {
                    array_reverse($t_mval);
                    foreach ($t_mval as $t)
                        $insertBefore->parentNode->insertBefore($dom->createElement($field), $insertBefore)->appendChild($dom->createTextNode($t));
                } else {
                    $desc = $xp->query('/record/description')->item(0);
                    foreach ($t_mval as $t)
                        $desc->appendChild($dom->createElement($field))->appendChild($dom->createTextNode($t));
                }


                if ($parm['debug'])
                    printf("%s : t_mval APRES = %s \n", __LINE__, var_export($t_mval, true));


                if ($parm['debug'])
                    printf("APRES:\n%s \n", htmlentities($dom->saveXML()));

                if ( ! $parm['debug']) {
                    $sql = 'DELETE FROM idx  WHERE record_id = :record_id';
                    $stmt = $connbas->prepare($sql);
                    $stmt->execute(array(':record_id' => $rid));
                    $stmt->closeCursor();

                    $sql = 'DELETE FROM prop WHERE record_id = :record_id';
                    $stmt = $connbas->prepare($sql);
                    $stmt->execute(array(':record_id' => $rid));
                    $stmt->closeCursor();

                    $sql = 'DELETE FROM thit WHERE record_id = :record_id';
                    $stmt = $connbas->prepare($sql);
                    $stmt->execute(array(':record_id' => $rid));
                    $stmt->closeCursor();

                    $sql = 'UPDATE record
                  SET status=(status & ~3)|4, jeton=' . (JETON_WRITE_META_DOC | JETON_WRITE_META_SUBDEF) . '
                    , xml = :xml
                  WHERE record_id =  :record_id';
                    $stmt = $connbas->prepare($sql);
                    $stmt->execute(array(':record_id' => $rid, ':xml'       => $dom->saveXML()));
                    $stmt->closeCursor();
                }
                $result['n_recsChanged'] ++;
            }
        }
    }
} catch (Exception $e) {

}

function simplified($t)
{
    $t = splitTermAndContext($t);
    $unicode = new unicode();
    $su = $unicode->remove_indexer_chars($sa = $t[0]);
    if ($t[1]) {
        $sa .= ' (' . ($t[1]) . ')';
        $su .= ' (' . $unicode->remove_indexer_chars($t[1]) . ')';
    }

    return(array('a' => $sa, 'u' => $su));
}
print(p4string::jsonencode(array('parm'   => $parm, 'result' => $result)));

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