1 # Functions used by view_table.cgi and siblings
4 # Returns the search SQL, search URL arguments and search hidden fields
8 local ($search, $searchhids, $searchargs, @adv);
11 $search = "where "."estr($in{'field'})." ".
12 &make_like($in{'match'}, $in{'for'});
13 $searchargs = "&field=".&urlize($in{'field'}).
14 "&for=".&urlize($in{'for'}).
15 "&match=".&urlize($in{'match'});
16 $searchhids = &ui_hidden("field", $in{'field'})."\n".
17 &ui_hidden("for", $in{'for'})."\n".
18 &ui_hidden("match", $in{'match'})."\n";
20 elsif ($in{'advanced'}) {
22 for(my $i=0; defined($in{"field_$i"}); $i++) {
23 if ($in{"field_$i"}) {
24 push(@adv, "estr($in{"field_$i"})." ".
25 &make_like($in{"match_$i"}, $in{"for_$i"}));
26 $searchargs .= "&field_$i=".&urlize($in{"field_$i"}).
27 "&for_$i=".&urlize($in{"for_$i"}).
28 "&match_$i=".&urlize($in{"match_$i"});
30 &ui_hidden("field_$i", $in{"field_$i"})."\n".
31 &ui_hidden("for_$i", $in{"for_$i"})."\n".
32 &ui_hidden("match_$i", $in{"match_$i"})."\n";
36 $search = "where (".join($in{'and'} ? " and " : " or ",
38 $searchhids .= &ui_hidden("and", $in{'and'})."\n".
39 &ui_hidden("advanced", 1)."\n";
40 $searchargs .= "&and=".$in{'and'}.
44 return ($search, $searchhids, $searchargs, scalar(@adv));
47 # get_search_limit(&in)
48 # Build limiting expression
53 if ($module_name eq "mysql") {
54 return "limit $in{'start'},$displayconfig{'perpage'}";
57 return "limit $displayconfig{'perpage'} offset $in{'start'}";
61 # get_search_limit(&in)
62 # Returns an SQL expression for sorting, hidden fields for the current sort order, and
63 # URL args for the current order
67 if ($in{'sortfield'}) {
68 local ($sort, $sorthids, $sortargs);
69 $sort = "order by "."estr($in{'sortfield'})." ".($in{'sortdir'} ? "asc" : "desc");
70 $sorthids = &ui_hidden("sortfield", $in{'sortfield'})."\n".
71 &ui_hidden("sortdir", $in{'sortdir'})."\n";
72 $sortargs = "&sortfield=".&urlize($in{'sortfield'}).
73 "&sortdir=$in{'sortdir'}";
74 return ($sort, $sorthids, $sortargs);
77 return ( undef, undef, undef );
81 # make_like(mode, for)
84 local ($match, $for) = @_;
85 local $qu = $module_name eq "mysql" ? '"' : "'";
86 return $match == 0 ? "like $qu%$for%$qu" :
87 $match == 1 ? "like $qu$for$qu" :
88 $match == 2 ? "not like $qu%$for%$qu" :
89 $match == 3 ? "not like $qu$for$qu" :
90 $match == 4 ? "> $for" :
91 $match == 5 ? "< $for" :