/[health_html]/inc/search.php
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Annotation of /inc/search.php

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.9 - (hide annotations)
Sat Oct 27 16:54:50 2001 UTC (22 years, 6 months ago) by ravilov
Branch: MAIN
Changes since 1.8: +33 -25 lines
Rearranged the menu system on plivamed.net. Other fixes/improvements.

1 ravilov 1.1 <?php
2 ravilov 1.3 $basic_logic = "AND";
3 ravilov 1.4 function Search($fields, $q1_fields, $q2_fields, $def_field = "") {
4 ravilov 1.3 global $go;
5 ravilov 1.1 $tp = new Smarty();
6     $qry_1 = "";
7     $qry_2 = "";
8     $form = "";
9     global $stype;
10     if ($stype) {
11     $search = array();
12     $i = 1;
13     while (true) {
14     global ${"search_".$i};
15     if (!${"search_".$i}) break;
16     global ${"delete_".$i}, ${"and_".$i}, ${"or_".$i},
17     ${"field_".$i}, ${"not_".$i},
18     ${"query_".$i}, ${"logic_".$i},
19     ${"concat_".$i}, ${"case_".$i};
20 ravilov 1.3 if (${"delete_".$i}) { $go = false; $i++; continue; }
21     if (${"and_".$i}) { $go = false; ${"logic_".$i} = "AND"; }
22     if (${"or_".$i}) { $go = false; ${"logic_".$i} = "OR"; }
23 ravilov 1.1 array_push($search, array(
24     "field" => ${"field_".$i},
25     "not" => ${"not_".$i},
26 ravilov 1.8 "query" => MyEscape(${"query_".$i}, true),
27 ravilov 1.1 "logic" => ${"logic_".$i},
28     "concat" => ${"concat_".$i},
29     "case" => ${"case_".$i}
30     ));
31     $i++;
32     }
33     global ${"and_".($i - 1)}, ${"or_".($i - 1)};
34     if (count($search) == 0 || ${"and_".($i - 1)} || ${"or_".($i - 1)}) {
35 ravilov 1.3 $go = false;
36 ravilov 1.1 $log = "";
37     if (${"and_".($i - 1)}) $log = "AND";
38     if (${"or_".($i - 1)}) $log = "OR";
39     if (count($search) > 0) $search[count($search) - 1]["logic"] = $log;
40     array_push($search, array(
41 ravilov 1.4 "field" => $def_field ? $def_field : "",
42 ravilov 1.1 "not" => "",
43     "query" => "",
44     "logic" => "",
45     "concat" => "OR",
46     "case" => ""
47     ));
48     }
49     $search[count($search) - 1]["logic"] = "";
50     $tp->assign("search", $search);
51     } else {
52 ravilov 1.9 // Nothing.
53 ravilov 1.1 }
54     if (!$stype) $stype = 0;
55     $tp->assign("stype", $stype);
56     if ($go) {
57     if ($stype) {
58     $qry = "";
59     $logic = "";
60     $i = 1;
61     while (${"search_".$i}) {
62     $field = ${"field_".$i};
63 ravilov 1.5 $not = ${"not_".$i} ? " NOT" : "";
64 ravilov 1.1 $qry1 = preg_split('/\s+/', ${"query_".$i});
65     $qry2 = array();
66     $qry3 = array();
67     while (list($k, $v) = each($qry1)) {
68     if (!$qry1[$k]) continue;
69 ravilov 1.5 if (${"case_".$i}) $qq = "(".$fields[$field]["dbname"]."$not LIKE '%".$qry1[$k]."%')";
70     else $qq = "(UPPER(".$fields[$field]["dbname"].")$not LIKE '%".MyUpper($qry1[$k])."%')";
71 ravilov 1.1 $is_q1 = false;
72 ravilov 1.4 for ($j = 0; $j < count($q1_fields); $j++)
73     if ($q1_fields[$j] == $field) $is_q1 = true;
74 ravilov 1.1 $is_q2 = false;
75 ravilov 1.4 for ($j = 0; $j < count($q2_fields); $j++)
76     if ($q2_fields[$j] == $field) $is_q2 = true;
77 ravilov 1.1 if ($is_q1) $qry2[$k] = $qq;
78     if ($is_q2) $qry3[$k] = $qq;
79     }
80     $qry1 = implode(" ".${"concat_".$i}." ", $qry2);
81     if ($qry1) {
82 ravilov 1.4 if ($logic) $qry_1 .= " $logic ";
83 ravilov 1.1 $qry_1 .= "($qry1)";
84     $logic = ${"logic_".$i};
85     }
86     $qry1 = implode(" ".${"concat_".$i}." ", $qry3);
87     if ($qry1) {
88     if ($logic) $qry_2 .= " $logic ";
89     $qry_2 .= "($qry1)";
90     $logic = ${"logic_".$i};
91     }
92     $i++;
93     }
94     } else {
95 ravilov 1.9 $qry_1 = array();
96     $qry_2 = array();
97     reset($fields);
98     while (list($k, $v) = each($fields)) {
99     $field = $k;
100     $var = "query_".$field; global $$var;
101     $query = $$var;
102     $q = preg_split('/\s+/', $query);
103     $q2 = array();
104     $q3 = array();
105     while (list($k, $v) = each($q)) {
106     if (!$q[$k]) continue;
107     $qq = "(UPPER(".$fields[$field]["dbname"].") LIKE '%".MyUpper($q[$k])."%')";
108     $is_q1 = false;
109     for ($i = 0; $i < count($q1_fields); $i++)
110     if ($q1_fields[$i] == $field) $is_q1 = true;
111     $is_q2 = false;
112     for ($i = 0; $i < count($q2_fields); $i++)
113     if ($q2_fields[$i] == $field) $is_q2 = true;
114     if ($is_q1) $q2[$k] = $qq;
115     if ($is_q2) $q3[$k] = $qq;
116     }
117     global $basic_logic;
118     if (count($q2) > 0) array_push($qry_1, "(".implode(" ".$basic_logic." ", $q2).")");
119     if (count($q3) > 0) array_push($qry_2, "(".implode(" ".$basic_logic." ", $q3).")");
120 ravilov 1.1 }
121 ravilov 1.9 $qry_1 = implode(" AND ", $qry_1);
122     $qry_2 = implode(" AND ", $qry_2);
123 ravilov 1.1 }
124     }
125     $flds = array();
126 ravilov 1.9 reset($fields);
127 ravilov 1.1 while (list($k, $v) = each($fields)) {
128 ravilov 1.9 $var = "query_".$v["dbname"];
129     global $$var;
130 ravilov 1.1 array_push($flds, array(
131 ravilov 1.8 "name" => MyEscape($k, true),
132 ravilov 1.9 "caption" => MyEscape($v["caption"]),
133     "query" => MyEscape($$var)
134 ravilov 1.1 ));
135     }
136     $tp->assign("fields", $flds);
137 ravilov 1.7 global $section, $section_menu;
138 ravilov 1.1 $tp->assign("section", $section);
139 ravilov 1.2 $tp->assign("section_menu", $section_menu);
140 ravilov 1.7 $tp->assign("FORM_ACTION", HTMLSpecialChars("?section=$section&section_menu={$section_menu}&stype=$stype"));
141 ravilov 1.1 $form = $tp->fetch("search.tpl");
142     return array($form, $qry_1, $qry_2);
143     }
144     ?>

  ViewVC Help
Powered by ViewVC 1.1.26