/[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

Contents of /inc/search.php

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.9 - (show 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 <?php
2 $basic_logic = "AND";
3 function Search($fields, $q1_fields, $q2_fields, $def_field = "") {
4 global $go;
5 $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 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 array_push($search, array(
24 "field" => ${"field_".$i},
25 "not" => ${"not_".$i},
26 "query" => MyEscape(${"query_".$i}, true),
27 "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 $go = false;
36 $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 "field" => $def_field ? $def_field : "",
42 "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 // Nothing.
53 }
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 $not = ${"not_".$i} ? " NOT" : "";
64 $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 if (${"case_".$i}) $qq = "(".$fields[$field]["dbname"]."$not LIKE '%".$qry1[$k]."%')";
70 else $qq = "(UPPER(".$fields[$field]["dbname"].")$not LIKE '%".MyUpper($qry1[$k])."%')";
71 $is_q1 = false;
72 for ($j = 0; $j < count($q1_fields); $j++)
73 if ($q1_fields[$j] == $field) $is_q1 = true;
74 $is_q2 = false;
75 for ($j = 0; $j < count($q2_fields); $j++)
76 if ($q2_fields[$j] == $field) $is_q2 = true;
77 if ($is_q1) $qry2[$k] = $qq;
78 if ($is_q2) $qry3[$k] = $qq;
79 }
80 $qry1 = implode(" ".${"concat_".$i}." ", $qry2);
81 if ($qry1) {
82 if ($logic) $qry_1 .= " $logic ";
83 $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 $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 }
121 $qry_1 = implode(" AND ", $qry_1);
122 $qry_2 = implode(" AND ", $qry_2);
123 }
124 }
125 $flds = array();
126 reset($fields);
127 while (list($k, $v) = each($fields)) {
128 $var = "query_".$v["dbname"];
129 global $$var;
130 array_push($flds, array(
131 "name" => MyEscape($k, true),
132 "caption" => MyEscape($v["caption"]),
133 "query" => MyEscape($$var)
134 ));
135 }
136 $tp->assign("fields", $flds);
137 global $section, $section_menu;
138 $tp->assign("section", $section);
139 $tp->assign("section_menu", $section_menu);
140 $tp->assign("FORM_ACTION", HTMLSpecialChars("?section=$section&section_menu={$section_menu}&stype=$stype"));
141 $form = $tp->fetch("search.tpl");
142 return array($form, $qry_1, $qry_2);
143 }
144 ?>

  ViewVC Help
Powered by ViewVC 1.1.26