Exemple #1
0
    submitkey("write", "KEY_S_MASS_OPER");
}
//..==================================================
//=========================================
//модуль запуска
if ($write == cmsg("KEY_EXECUTE") and $prdbdata[$tbl][12] != "fdb" and $prauth[$ADM][34]) {
    //  CFG OPT FUTURE  TODO:
    if ($codekey == 7) {
        die("Disabled for secutiry reasons.");
    }
    if ($codekey == 5) {
        needupgrade();
    }
    // if (!$prauth[$ADM][2]) die ("Возможно не хватает прав ;)");
    $data = readdescripters();
    $a = prefixdecode($res16);
    //if ($data==-1) exit;
    if ($dblk) {
        $forcedb = 1;
        //echo "forced data dblk=$dblk , dbsel, tab=$tab";
        hidekey("dblk", $dblk);
        hidekey("dbselected", $dblk);
        hidekey("hidemenu", 1);
        hidekey("cmd", "sqle");
        hidekey("tab", $tab);
    }
    if ($directexecute) {
        checkbox($forcedb, "forcedb");
        lprint("FORCE_DB");
        echo ":";
        $cmd = "SHOW DATABASES";
Exemple #2
0
function search()
{
    global $go, $olddvID, $selectedfield, $field, $fields;
    global $commode, $multisearch, $vID, $adm;
    global $mode, $tbl, $desc, $pr, $review, $mv;
    global $site, $sd, $lock, $db, $totalbas, $k;
    global $filbas, $namebas, $scrdir, $formatscr, $category;
    global $tablemysqlselect, $hostmysqlselect, $categorymode, $scrcolumn;
    global $tblmysqlselect, $md1column, $md2column, $dbtype, $writeright;
    global $DBC, $vIDold, $mvcnt, $b, $dbc, $prdbdata, $scrnum, $mycol, $mycols;
    global $myrow;
    //bugs with screen without it
    global $res16;
    //maybe bug with res16 передаче
    global $vID2;
    global $limitenable, $selectenable, $field, $printlimit, $addsql, $kol, $dbtype, $xfgetlimit;
    //  глобализация как обычно млин
    global $oldmode;
    if ($oldmode > 7 and $oldmode < 8) {
        // затычка для случая с сбросом искомой колонки
        $x = explode(".", $oldmode);
        $kol = $x[1];
        $mode = 7;
        if ($debug) {
            echo "Reselect column for mode 7 : {$kol}";
        }
    }
    //echo "dbtype=$dbtype;"; тут он есть , где потерялся тогда??
    ###########################################################
    //MYSQLMODESEARCHSTART					NON-GLOBAL MODES //
    ###########################################################
    //процедура поиска по имени - mode 1 - SQL
    if ($mode == 1 and $prdbdata[$tbl][12] != "fdb") {
        @($connect = dbs_connect($prdbdata[$tbl][6], $sd[14], $sd[17], $dbtype));
        @dbs_selectdb($prdbdata[$tbl][9], $connect, $dbtype);
        $data = readdescripters();
        // получение данных заголовка массив mycol кол-во mycols
        global $query, $connect;
        global $mzdata, $mycols, $myrow, $findrecords, $scrcolumn;
        $query = "SELECT * FROM `" . $prdbdata[$tbl][5] . "` WHERE " . $mycol[$md1column] . " LIKE '%" . $vID . "%'";
        if ($prdbdata[$tbl][15] > 0 and $vID2 !== "") {
            $query = $query . " AND " . $mycol[$prdbdata[$tbl][15]] . "= '" . $vID2 . "'";
        }
        $query = $query . $addsql;
        // сортировка, лимит
        selectedprintsql($data);
        if ($multisearch == 0) {
            exit(1);
        }
    }
    //процедура поиска по коду  - mode 2 - SQL
    if ($mode == 2 and $prdbdata[$tbl][12] != "fdb") {
        $connect = dbs_connect($prdbdata[$tbl][6], $sd[14], $sd[17], $dbtype);
        dbs_selectdb($prdbdata[$tbl][9], $connect, $dbtype);
        $data = readdescripters();
        // получение данных заголовка массив mycol кол-во mycols
        global $query, $connect;
        global $mzdata, $mycols, $myrow, $findrecords, $scrcolumn;
        settype($vID, "integer");
        if ($vID == 0) {
            msgexiterror("needcode", $mode, "disable");
        }
        $query = "SELECT * FROM `" . $prdbdata[$tbl][5] . "` WHERE " . $mycol[$md2column] . "= " . $vID;
        if ($prdbdata[$tbl][15] > 0 and $vID2 !== "") {
            $query = $query . " AND " . $mycol[$prdbdata[$tbl][15]] . "= '" . $vID2 . "'";
        }
        $query = $query . $addsql;
        // сортировка, лимит
        selectedprintsql($data);
        if ($multisearch == 0) {
            exit(1);
        }
    }
    //mode 3 процедура SQL поиска по категории
    if ($mode == 3 and $prdbdata[$tbl][12] != "fdb") {
        $connect = dbs_connect($prdbdata[$tbl][6], $sd[14], $sd[17], $dbtype);
        dbs_selectdb($prdbdata[$tbl][9], $connect, $dbtype);
        if ($categorymode == false) {
            msgexiterror("nocategory", $mode, "disable");
        }
        $data = readdescripters();
        // получение данных заголовка массив mycol кол-во mycols
        $myrow = $data[0];
        global $query, $connect, $mzdata, $mycols, $myrow, $findrecords, $scrcolumn;
        $query = "SELECT * FROM `" . $prdbdata[$tbl][5] . "` WHERE " . $mycol[$category] . " LIKE '%" . $vID . "%'";
        if ($prdbdata[$tbl][15] > 0 and $vID2 !== "") {
            $query = $query . " AND " . $mycol[$prdbdata[$tbl][15]] . "= '" . $vID2 . "'";
        }
        $query = $query . $addsql;
        // сортировка, лимит
        selectedprintsql($data);
        if ($multisearch == 0) {
            exit(1);
        }
    }
    if ($mode == 9) {
        $connect = dbs_connect($prdbdata[$tbl][6], $sd[14], $sd[17], $dbtype);
        dbs_selectdb($prdbdata[$tbl][9], $connect, $dbtype);
        global $fullfield;
        if ($categorymode == false) {
            msgexiterror("nocategory", $mode, "disable");
        }
        $data = readdescripters();
        // получение данных заголовка массив mycol кол-во mycols
        $myrow = $data[0];
        // bordf\der
        $namecategorycol = $myrow[$category];
        $query = "SELECT DISTINCT {$namecategorycol} FROM `" . $prdbdata[$tbl][5] . "` WHERE " . $mycol[$category] . " LIKE '%" . $vID . "%'";
        if ($vID == "!101") {
            $query = "SELECT DISTINCT {$namecategorycol} FROM `" . $prdbdata[$tbl][5] . "`";
        }
        if ($fullfield) {
            $query = str_replace("LIKE", "=", $query);
            $query = str_replace("%", "", $query);
            //echo $query;
        }
        if (!$pr[8]) {
            echo "DEBUG - {$query}";
        }
        $result = dbs_query($query, $dbtype);
        while ($myrow = dbs_fetch_row($result, $dbtype)) {
            echo "<a href='r.php?tbl={$tbl}&mode=3&vID=" . $myrow[0] . "'> " . $myrow[0] . "</a><br>";
        }
        exit;
    }
    //mode 8 процедура SQL поиска по любой колонке
    if ($mode == 8 and $prdbdata[$tbl][12] != "fdb") {
        global $presettedmode;
        $mode = 6;
        $presettedmode = 3;
    }
    if ($mode == 7 and $prdbdata[$tbl][12] != "fdb") {
        //ubrat vse vybory polej ne svyazannye s tekushim mode==7( po menu)
        global $presettedmode, $res16, $mznumb, $codekey, $fullfield;
        echo "kol={$kol}";
        $field = $kol;
        global $prauth, $ADM;
        // добавлено для переключения продвинутого поиска
        //	echo "Field activated first $field<br>"; //TO DELETE AFTE
        $mode = 6;
        $mode7 = 1;
        //$presettedmode=1.1; bylo 1.1
        $eid = encodevID($vID);
        $eolddid = encodevID($olddvID);
        $selectedfield = "!1" . $field;
        // если field выбран то выполняется
        ?>
 	<form action="r.php" method=post>
<?php 
        if ($multisearch == 1) {
            // urlencode ($oldvID);serialize ($olddvID); $vID="!S".$vID;
            hidekey("vID", $eolddid);
        } else {
            hidekey("vID", $eid);
        }
        hidekey("mode", 7);
        hidekey("adm", $adm);
        hidekey("commode", $commode);
        hidekey("tbl", $tbl);
        hidekey("multisearch", $multisearch);
        hidekey("fullfield", $fullfield);
        hidekey("selectedfield", $selectedfield);
        hidekey("review", $review);
        hidekey("vID2", $vID2);
        hidekey("kol", $kol);
        //	submitkey ("go","R_SEL_ROW");// проверить чтобудет если искать по значению сортировки удаляем уже не нужно :))
        echo " </form> ";
    }
    //mode 6 процедура SQL поиска по выбранной колонке
    if ($mode == 6 and $prdbdata[$tbl][12] != "fdb") {
        $connect = dbs_connect($prdbdata[$tbl][6], $sd[14], $sd[17], $dbtype);
        global $categorymode, $mode, $fullfield;
        global $mode6, $m6field, $m6count;
        global $mycols, $mycol, $del, $res16, $presettedmode, $selectedfield, $fields;
        global $partquery, $vID, $mznumb;
        $res16 = $prdbdata[$tbl][16];
        // Лимит колонок
        if ($mode7 == 1) {
            $res16 = $selectedfield;
        }
        $a = prefixdecode($res16);
        //echo "PREFIX $res16";
        dbs_selectdb($prdbdata[$tbl][9], $connect, $dbtype);
        $data = readdescripters();
        // получение данных заголовка массив mycol кол-во mycols
        //$mycol[$md1column]".."
        $mode6 = array();
        global $query, $connect;
        global $mzdata, $mycols, $myrow;
        global $findrecords, $scrcolumn;
        decodecols();
        $query = "SELECT * FROM `" . $prdbdata[$tbl][5] . "` WHERE " . $partquery;
        if ($prdbdata[$tbl][15] > 0 and $vID2 !== "") {
            $query = $query . " AND " . $mycol[$prdbdata[$tbl][15]] . "= '" . $vID2 . "'";
        }
        //if (!$pr[8]) { echo "AFTER DECODE categorymode=$categorymode,mode=$mode,m6count=$m6count,	 mode6=$mode6,m6field=$m6field,mycols=$mycols,mycol=$mycol,del=$del,partquery=$partquery,vID=$vID<br>";}
        $query = $query . $addsql;
        // сортировка, лимит
        selectedprintsql($data);
        if ($multisearch == 0) {
            exit(1);
        }
    }
    //MYSQLMODESEARCHEND
    ###########################################################
    //CSVMODESEARCH						NON GLOBAL MODE		 //
    ###########################################################
    //	if (($prdbdata[$tbl][15]>0)AND ($vID2!=="")) { $query = $query." AND ".$mycol[$prdbdata[$tbl][15]]."= '".$vID2."'";}; // не внедрено т.к. есть ошибка с вызовом из screen которая заставляет правильно от 1 рез.
    // процедура поиска по имени  - mode 1 - CSV
    if ($mode == 1 and $prdbdata[$tbl][12] == "fdb") {
        $findrecords = 0;
        echo cmsg("RF_RESSRCH") . $namebas . " - " . $vID . ":\n\n";
        $vIDold = $vID;
        $vID = strtolower($vID);
        // @$f=fopen ("_data/".$filbas,"r") or die ("Файл базы не найден");
        // echo ""; $z=xfgetcsv ($f,$xfgetlimit,"¦");
        // $mycol=$z;$myrow=array ();$selected=array ();//added
        //$md1column=1;$md2column=0;
        //echo "$cfgmod=cfg;$filbas=fil;$namebas=na,;$md1column=md1;$md2column=md2;<br>";
        $data = readdescripters();
        $f = $data[4];
        //echo "$cfgmod=cfg;$filbas=fil;$namebas=na,;$md1column=md1;$md2column=md2;<br>";rd вообще не возвр данные.
        rfsysdatareq();
        // возвращаем потерянные хер знает где переменные
        for ($a = 0; $dbc = xfgetcsv($f, $xfgetlimit, "¦"); $a++) {
            $k = count($dbc);
            //echo "md1=$md1column";// dbc-стр табл  к- число кол з-заголовок
            $findid = strpos(strtolower($dbc[$md1column]), strtolower($vID));
            if ($findid !== false && $dbc[$md1column] !== "") {
                //  проверка условия, не может быть удалена
                $selected[] = $dbc;
                //added
            }
        }
        // echo "selectedprintcsv ($mycol,$selected); ".$mycol[0].$selected[0]."--".$selected[0][0]."<br>"; вывод
        selectedprintcsv($data, $mycol, $selected);
        //fclose ($f);
        if ($multisearch == 0) {
            exit(1);
        }
        // $k= count($dbc) - вычисление кол-ва столбцов
    }
    //поиск по коду - mode 2 - CSV
    if ($mode == 2 and $prdbdata[$tbl][12] == "fdb") {
        $data = readdescripters();
        $f = $data[4];
        $cfgmod = $data[5];
        rfsysdatareq();
        // возвращаем потерянные хер знает где переменные
        if (!$cfgmod) {
            // сделано только для конфигурации, в остальных случаях эти базы мало отличаются
            settype($vID, "integer");
            if ($vID == 0) {
                msgexiterror("needcode", $mode, "disable");
            }
        }
        $findrecords = 0;
        echo cmsg("RF_RESSRCH") . $namebas . " - " . $vID . ":\n\n";
        for ($a = 0; $dbc = xfgetcsv($f, $xfgetlimit, "¦"); $a++) {
            $k = count($dbc);
            // dbc-стр табл  к- число кол з-заголовок
            if ($dbc[$md2column] == $vID) {
                $selected[] = $dbc;
            }
            // c проверкой
        }
        selectedprintcsv($data, $mycol, $selected);
        if ($multisearch == 0) {
            exit(1);
        }
    }
    //mode 8 процедура CSV поиска по любой колонке
    if ($mode == 8 and $prdbdata[$tbl][12] == "fdb") {
        global $presettedmode;
        $mode = 6;
        $presettedmode = 3;
    }
    if ($mode == 7 and $prdbdata[$tbl][12] == "fdb") {
        //ubrat vse vybory polej ne svyazannye s tekushim mode==7( po menu)
        if ($debug) {
            echo "m7 Текущий vID {$vID} res16 {$res16} STR595<br>";
        }
        global $prauth, $ADM, $codekey;
        // добавлено для переключения продвинутого поиска
        global $presettedmode, $mzdata, $mzcnt, $res16, $mznumb, $mycol, $fullfield;
        if ($debug) {
            echo "kol={$kol}";
        }
        $field = $kol;
        ///	echo "encodevID  $eid;  encodevID(old) $eolddid ";
        $mode = 6;
        $mode7 = 1;
        //$presettedmode=-1; bylo 1.1
        //..	if (!$cfgmod) @$f=csvopen ("_data/".$filbas,"r","0");
        //..	if ($cfgmod==1) @$f=csvopen ("_conf/".$filbas,"r","0");echo "<br>";
        $eid = encodevID($vID);
        $eolddid = encodevID($olddvID);
        //setup id
        if ($field === false or $go == "Выбрать_колонку") {
            echo "Выберите поле для поиска:<br>";
            // Вставлено для выбора поля
            if ($debug) {
                echo "result res16={$res16} selfield {$selectedfield} STR603 a={$a} m6={$m6field['0']} , {$m6field['1']} , {$m6field['2']} <br>";
            }
            if ($debug) {
                echo " do (574) readdesc mznumb1=" . $mznumb[1] . " mycols" . $mycols . " mzdata1=" . $mzdata[1] . " plevel=" . $plevel[1] . " mycol1=" . $mycol[1] . "<br>";
            }
            $data = readdescripters();
            if ($debug) {
                echo " do (576) readdesc mznumb1=" . $mznumb[1] . " mycols" . $mycols . " mzdata1=" . $mzdata[1] . " plevel=" . $plevel[1] . " mycol1=" . $mycol[1] . "<br>";
            }
            $mznumb = $data[2];
            $mycols = $data[6];
            $mzdata = $data[0];
            $plevels = $data[1];
            $mycol = $mzdata;
            $a = prefixdecode($res16);
            decodecols($res16);
            if ($debug) {
                echo "result res16={$res16} selfield {$selectedfield} STR607 a={$a} m6={$m6field['0']} , {$m6field['1']} , {$m6field['2']} <br>";
            }
            // echo "Всего колонок $mycols - ищем значения из списка $mznumb[0];$mznumb[1];$mznumb[2];$mznumb[3]<br>";
            ?>
	<form action="r.php" method=post>
<?php 
            if ($multisearch == 1) {
                hidekey("vID", $eolddid);
            } else {
                hidekey("vID", $eid);
            }
            hidekey("mode", 7);
            hidekey("adm", $adm);
            hidekey("commode", $commode);
            hidekey("tbl", $tbl);
            hidekey("multisearch", $multisearch);
            hidekey("fullfield", $fullfield);
            //$fullfield
            hidekey("selectedfield", $selectedfield);
            hidekey("kol", $kol);
            echo " do (593) readdesc mznumb1=" . $mznumb[1] . " mycols" . $mycols . " mzdata1=" . $mzdata[1] . " plevel=" . $plevel[1] . " mycol1=" . $mycol[1] . "<br>";
            $data = readdescripters();
            //print_r ($data);
            $mznumb = $data[2];
            $mycols = $data[6];
            $mzdata = $data[0];
            $plevels = $data[1];
            //$mycol=$mzdata;
            echo "<br>do  596 readdesc mznumb1=" . $mznumb[1] . " mycols" . $mycols . " mzdata1=" . $mzdata[1] . " plevel=" . $plevel[1] . " mycol1=" . $mycol[1] . "<br>";
            echo "result res16={$res16} STR621<br>";
            $field = printfield($data, "nfield");
            ?>
	<input type = "image" name = "go" src = "_ico/find.png">
	</form><?php 
            $selectedfield = "!1" . $field;
            exit;
        } else {
            $selectedfield = "!1" . $field;
            ?>
 	<form action="r.php" method=post>
<?php 
            if ($multisearch == 1) {
                hidekey("vID", $eolddid);
            } else {
                hidekey("vID", $eid);
            }
            hidekey("mode", 7);
            hidekey("adm", $adm);
            hidekey("commode", $commode);
            hidekey("tbl", $tbl);
            hidekey("fullfield", $fullfield);
            //$fullfield
            hidekey("multisearch", $multisearch);
            hidekey("selectedfield", $selectedfield);
            hidekey("kol", $kol);
            //submitkey ("go","R_SEL_ROW");
            echo "</form> ";
        }
    }
    //mode 6 процедура CSV поиска по новой колонке  НЕ СДЕЛАНО
    // процедура поиска по имени  - mode 1 - CSV
    if ($mode == 6 and $prdbdata[$tbl][12] == "fdb") {
        if ($debug) {
            echo "m6 Текущий vID {$vID}<br>";
        }
        //echo "result res16=$res16   STR656";
        global $categorymode, $mode;
        // добавлено для совместимости с  decodecols ()
        global $mode6, $m6field, $m6count, $mycols, $mycol, $del;
        global $partquery, $vID, $mzcnt, $mznumb, $presettedmode, $xfgetlimit, $fullfield;
        $mznumb = array();
        // TEST ZONE
        $res16 = $prdbdata[$tbl][16];
        // Лимит колонок
        if ($mode7 == 1) {
            $res16 = $selectedfield;
        }
        if ($debug) {
            echo "{$res16} - ";
        }
        $a = prefixdecode($res16);
        //echo "decoded $a=$res16 $categorymode STR 668";	//декодирование строки
        $data = readdescripters();
        // получение данных заголовка массив mycol кол-во mycols
        global $mzdata;
        $mzcnt = count($mzdata);
        //$mycol[$md1column]".."
        $mycol = $mzdata;
        //echo "result res16=$res16 ?STR671";
        $mode6 = array();
        decodecols();
        //echo "result res16=$res16 STR 672";
        for ($aaa = 0; $aaa < count($mode6); $aaa++) {
            $fndcolumn = $mznumb[$aaa];
            $findrecords = 0;
            //echo "Результаты поиска в ".$namebas." - по колонке ".$mzdata[$fndcolumn]."($fndcolumn) -- ".$vID.":\n\n";
            $vIDold = $vID;
            $vID = strtolower($vID);
            if ($vID == "!0") {
                $vID == "";
                $notnull = 1;
            }
            $f = $data[4];
            $data = readdescripters();
            $f = $data[4];
            //mode 6- список всех используемых в этой сессии колонок  если есть ошибки в мультипоиске можно передавать его после первой итерации
            //echo "1count mode6 ".count ($mode6) ."count=$a of $k -- fndcol=$fndcolumn; vid=$vID ; ".$dbc[$fndcolumn]."<br>";
            //$dbc=xfgetcsv ($f,$xfgetlimit,"¦");
            //echo $dbc;echo " ($f,$xfgetlimit,¦); ";
            for ($a = 0; $dbc = xfgetcsv($f, $xfgetlimit, "¦"); $a++) {
                $k = count($dbc);
                $myrow = $dbc;
                //  echo "count=$a of $k -- fndcol=$fndcolumn; vid=$vID ; ".$dbc[$fndcolumn]."<br>";
                // for ($b=0;$b<$k;$b++) {  Бла бла бла;Фэнтэзи;Комедия;Боевик  ищет фигово переключает на 1,4 films al где то производися сброс значения и оно уже не восстанавливается
                // $mode7=1 если вход был оттуда.копать здесь надо.
                if (!$fullfield) {
                    $findid = strpos(strtolower($dbc[$fndcolumn]), $vID);
                }
                if ($fullfield) {
                    if ($dbc[$fndcolumn] == $vID) {
                        $selected[] = $dbc;
                    }
                }
                if ($fullfield) {
                    if ($dbc[$fndcolumn] == false and false == $vID) {
                        $selected[] = $dbc;
                    }
                }
                //echo "$fullfield ffM<br> $findid  id";
                if ($notnull and $dbc[$fndcolumn] != "") {
                    $findid = 1;
                }
                if ($notnull and $dbc[$fndcolumn] == "0") {
                    $findid = false;
                }
                if ($findid !== false && $dbc[$fndcolumn] !== "") {
                    if (!$fullfield) {
                        $selected[] = $dbc;
                    }
                    //added  $findid=false;
                }
            }
        }
        selectedprintcsv($data, $mycol, $selected);
        //echo "result res16=$res16 STR695 END CYCLE<br>";
        if (!$pr[8]) {
            echo "AFTER DECODE categorymode={$categorymode},mode={$mode},m6count={$m6count},\t mode6={$mode6},m6field={$m6field},mycols={$mycols},mycol={$mycol},del={$del},partquery={$partquery},vID={$vID}<br>";
        }
        //	 fclose ($f);
        if ($multisearch == 0) {
            exit(1);
        }
    }
    // поиск по категории
    // процедура ищет фразу потом ищет все коды до следующей фразы
    // проблема в $prdbdata[$a][category] - это одна и та же колонка :)
    // будет сделана после покупки
    //режим категории один - выполняется преобразование цифр
    //script update csv 2,3,4 cat to 1 else return false
    if ($mode == 3 and $categorymode == false) {
        msgexiterror("nocategory", $mode, "disable");
    }
    if ($prdbdata[$tbl][12] == "fdb") {
        if ($mode == 3 and $categorymode == 1 or $mode == 3 and $categorymode == 4) {
            echo "READFILE:OLD_CORE_MODE.<br>";
            updatedb326($filbas);
            $findrecords = 0;
            // общее количество найденных позиций
            //$category =1; категория содержится в этой переменной - this will reset category  TEST ONLY!
            if ($category === "" || $category === false) {
                msgexiterror("nocategory", $mode, "disable");
            }
            if ($vID !== "!101") {
                echo "По вашему запросу " . $vID . " было найдено:\n\n";
            }
            $vIDorig = $vID;
            $vID = strtolower($vID);
            $found = 0;
            @($f = fopen("_data/" . $filbas, "r")) or die("Не удалось выполнить подключение к базе, попробуйте позже.");
            echo "";
            $z = xfgetcsv($f, $xfgetlimit, "¦");
            // заголовок
            for ($a = 0; $dbc = xfgetcsv($f, $xfgetlimit, "¦"); $a++) {
                if ($limitenable and $findrecords > $printlimit) {
                    echo "Всего значений : {$findrecords}<br><br> ";
                    exit;
                }
                $k = count($dbc) - $tablemysqlselect;
                // удаление колонки, определено в prop
                echo "<tbody><table border=3 width=100% bgcolor=white>";
                echo "<tr>";
                for ($b = 0; $b < $k; $b++) {
                    // multithread options experimental
                    // multithread options
                    $content1 = strtolower($dbc[$category]);
                    $findid1 = strpos($content1, $vID);
                    $content2 = strtolower($dbc[$category + 1]);
                    $findid2 = strpos($content2, $vID);
                    $content1int = $content1;
                    settype($content1int, integer);
                    //	$content2int=$content2; settype ($content2int,integer);  //!!
                    if ($found == 1 and $content1 !== "" and $content1int == 0) {
                        $found = 0;
                    }
                    //	  if  (($found==2)AND($content2!=="")) { $found=0;} //OR($findid2!==false)
                    if ($findid1 !== false or $found == 1) {
                        $scrnum = $dbc[$scrcolumn];
                        $found = 1;
                        //$findrecords++; # возможно ошибка 2-раза
                        $data = wordwrap($dbc[$b], 82, "\n");
                        if ($findid1 !== false and $b == 0) {
                            echo "<bb><cite>{$data}</cite></bb></tr>";
                            continue;
                        }
                        //if (($findid2!==false)AND($b==0)) { echo "<bb><cite>$data</cite></bb></tr>"; continue; }
                        if ($hostmysqlselect == 1 && $b == 0) {
                            echo "</tr>";
                            continue;
                        }
                        if ($data == "") {
                            echo "</tr>";
                            continue;
                        }
                        echo "<td><bb>{$z[$b]}</bb>: " . "{$data}<br></td><td>";
                        //$findrecords++;
                        if ($b == 1) {
                            screen();
                        }
                        echo "</td></tr>";
                        if ($b == $k - 1) {
                            echo "<br>";
                            $findrecords++;
                        }
                    }
                    //idfound
                    if ($vID == "!101" and $content1 !== "" and $content1int == 0) {
                        $findrecords++;
                        echo "<bb><ii>" . strtoupper($content1) . "</ii></bb>";
                        ?>
				<form action="r.php" method=post><?php 
                        hidekey("go", $content1);
                        hidekey("vID", $content1);
                        hidekey("mode", 3);
                        hidekey("adm", $adm);
                        hidekey("commode", $commode);
                        hidekey("tbl", $tbl);
                        echo "</form>";
                        break;
                    }
                    //!101
                    //insertion m3c4 old
                }
                //b
            }
            // процедура сообщения об отсутствии искомого объекта  1 из 3
            // Режим категории 4 очень сильно тормозит систему. подобно основному режиму 4
            //DELETED
            if ($findrecords === 0 and $adm == 1 or $findrecords === 0 and $pr[3] == 1) {
                print "<font color=red id=errfnt><bb>Не найдено</bb><br></font>";
            }
            // restart engine m3с1
            fclose($f);
            if ($multisearch == 0) {
                echo "Всего значений : {$findrecords}<br><br> ";
                exit(1);
            }
        }
    }
    // режим категории 1  (в 4-м ищет :) )не ищет конкретные значение в отличие от режима 2 которых их пытается найти везде.
    if ($prdbdata[$tbl][12] == "fdb") {
        if ($mode == 3 and $categorymode > 1 and $categorymode !== 4) {
            updatedb326($filbas);
            // апдейтер для улучшенного формата написан
            // осталось сделать обработку файла в ноовм формате (_conv326)
            echo "READFILE:OLD_CORE_MODE.<br>";
            // общее количество найденных позиций
            //if ($vID!=="!101") { echo cmsg ("RF_RESSRCH)."".$namebas." - ".$vID.":\n\n";}
            //$category =1; категория содержится в этой переменной - this will reset category  TEST ONLY!
            if ($category === "" || $category === false) {
                msgexiterror("nocategory", $mode, "disable");
            }
            //  !101 - tablemysqlselect - hostmysqlselect - - функции из prop  потом как альт. включить  основной скрипт
            //если колонка 1findid!==false то это заголовок и он может иметь описание. только выделить его.выделяя
            //если колонка 1findid==false то проверяем колонку 2findid!==false  пишем стд модулем
            //если колонка 1==false и 2==false пишем значение 3 если уже находились такие
            //echo $findrecords;//if ($vID!=="!101") { echo "По вашему запросу ".$vID." было найдено:\n\n"; }
            $vIDorig = $vID;
            $vID = strtolower($vID);
            $found = 0;
            @($f = fopen("_data/" . $filbas, "r")) or die("Не удалось выполнить подключение к базе, попробуйте позже.");
            echo "";
            $z = xfgetcsv($f, $xfgetlimit, "¦");
            // заголовок
            for ($a = 0; $dbc = xfgetcsv($f, $xfgetlimit, "¦"); $a++) {
                if ($limitenable and $findrecords > $printlimit) {
                    echo "Всего значений : {$findrecords}<br><br> ";
                    exit;
                }
                $k = count($dbc) - $tablemysqlselect;
                // удаление колонки, определено в prop
                echo "<tbody><table border=3 width=100% bgcolor=white>";
                echo "<tr>";
                for ($b = 0; $b < $k; $b++) {
                    //	echo "_SYS_content -- ".$content." findid -- ".$findid." vID -- ".$vID."\n";
                    $content1 = strtolower($dbc[$category]);
                    $findid1 = strpos($content1, $vID);
                    $content2 = strtolower($dbc[$category + 1]);
                    $findid2 = strpos($content2, $vID);
                    if ($found == 1 and $content1 !== "") {
                        $found = 0;
                    }
                    if ($found == 2 and $content2 !== "") {
                        $found = 0;
                    }
                    if ($findid1 !== false or $found == 1) {
                        $scrnum = $dbc[$scrcolumn];
                        $found = 1;
                        //$findrecords++;
                        $data = wordwrap($dbc[$b], 82, "\n");
                        if ($findid1 !== false and $b == 0) {
                            echo "<bb><cite>{$data}</cite></bb></tr>";
                            continue;
                        }
                        if ($hostmysqlselect == 1 && $b == 0) {
                            echo "</tr>";
                            continue;
                        }
                        if ($data == "") {
                            echo "</tr>";
                            continue;
                        }
                        echo "<td><bb>{$z[$b]}</bb>: " . "{$data}<br></td><td>";
                        if ($b == 1) {
                            screen();
                        }
                        echo "</td></tr>";
                        if ($b == $k - 1) {
                            echo "<br>";
                            $findrecords++;
                        }
                    }
                    if ($vID == "!101" and $content1 !== "") {
                        $findrecords++;
                        echo "<bb><ii>" . strtoupper($content1) . "</ii></bb>";
                        ?>
				<form action="r.php" method=post> <?php 
                        hidekey("vID", $content1);
                        hidekey("mode", 3);
                        hidekey("adm", $adm);
                        hidekey("commode", $commode);
                        hidekey("tbl", $tbl);
                        hidekey("go", $content1);
                        hidekey("kol", $kol);
                        echo "</form>";
                        break;
                    }
                    // режим категории 2 позволяет смотреть колонку 2, режим 3 - не позволяет (только findid1)
                    // любое ненулевое значение первой колонки трактуется как новая категория в отличие от 1
                    if ($categorymode === 3) {
                        if ($findrecords === 0 and $adm == 1 or $findrecords === 0 and $pr[3] == 1) {
                            print "<font color=red id=errfnt><bb>Не найдено</bb><br></font>";
                            print "Среди категорий не удалось найти искомую группу.<br>Поискать среди наименований?";
                            ?>
				<form action="r.php" method=post><?php 
                            hidekey("vID", $vID);
                            hidekey("mode", 1);
                            hidekey("adm", $adm);
                            hidekey("commode", $commode);
                            hidekey("tbl", $tbl);
                            hidekey("go", $content1);
                            echo "<p align=center>";
                            submitkey("go", "YES");
                            echo "</p></form>";
                            echo "<form action=disable method=post> \t<p align=center>";
                            submitkey("go", "NO");
                            echo "</p></form>";
                        }
                    }
                    // restart engine m3с2
                    if ($categorymode == 2) {
                        if ($findid2 !== false or $found == 2) {
                            $scrnum = $dbc[$scrcolumn];
                            $found = 2;
                            $data = wordwrap($dbc[$b], 82, "\n");
                            if ($findid1 !== false and $b == 0) {
                                echo "<bb><cite>{$data}</cite></bb></tr>";
                                continue;
                            }
                            if ($hostmysqlselect == 1 && $b == 0) {
                                echo "</tr>";
                                continue;
                            }
                            if ($data == "") {
                                echo "</tr>";
                                continue;
                            }
                            echo "<td><bb>{$z[$b]}</bb>: " . "{$data}<br></td><td>";
                            if ($b == 1) {
                                screen();
                            }
                            echo "</td></tr>";
                            if ($b == $k - 1) {
                                echo "<br>";
                                $findrecords++;
                            }
                        }
                    }
                }
            }
            if ($findrecords === 0 and $adm == 1 or $findrecords === 0 and $pr[3] == 1) {
                print "<font color=red id=errfnt><bb>Не найдено</bb><br></font>";
            }
            // restart engine m3с3
            fclose($f);
            if ($multisearch == 0) {
                echo "Всего значений : {$findrecords}<br><br> ";
                exit(1);
            }
        }
    }
}