19 |
|
|
20 |
if (param('search')) { |
if (param('search')) { |
21 |
|
|
22 |
my $s=param('search'); |
my $s; |
23 |
|
# re-write query from +/- to and/and not |
24 |
|
foreach (split(/\s+/,param('search'))) { |
25 |
|
if (m/^([+-])(\S+)/) { |
26 |
|
$s.= ($s) ? "and " : ""; |
27 |
|
$s.="not " if ($1 eq "-"); |
28 |
|
$s.="$2 "; |
29 |
|
} else { |
30 |
|
$s .= "$_ "; |
31 |
|
} |
32 |
|
} |
33 |
$s=~tr/ščęŠČĘ/¹š¾čę©Š®ČĘ/; # 1250 -> iso8859-2 |
$s=~tr/ščęŠČĘ/¹š¾čę©Š®ČĘ/; # 1250 -> iso8859-2 |
34 |
$s=~tr/¹©šŠčČęĘ¾®/sSdDcCcCzZ/; |
$s=~tr/¹©šŠčČęĘ¾®/sSdDcCcCzZ/; |
35 |
|
|
58 |
$hits = $sh->query("naslov_czs=($s)"); |
$hits = $sh->query("naslov_czs=($s)"); |
59 |
|
|
60 |
if ($hits > 0) { |
if ($hits > 0) { |
61 |
print p,hr,"Našeno je $hits zakona..."; |
print p,hr,"Našeno je $hits zakona... <small>($s)</small>"; |
62 |
} else { |
} else { |
63 |
print p,"Nije našen niti jedan zakon... (",$sh->errstr,")"; |
print p,"Nije našen niti jedan zakon... <small>($s, ",$sh->errstr,")</small>"; |
64 |
} |
} |
65 |
} else { |
} else { |
66 |
print p('Kod pretra¾ivanja pretra¾ivač pronalazi sve zakone u kojima se pojavljuju <b>sve upisanje riječi</b>.',br,'Ako ispred riječi upi¹ete minus (-) neęe se prikazivati zakoni koji imaju takvu riječ. Npr. <tt>+kava +zakon -dopunama</tt>'); |
print p('Kod pretra¾ivanja pretra¾ivač pronalazi sve zakone u kojima se pojavljuju <b>sve upisanje riječi</b>.',br,'Ako ispred riječi upi¹ete minus (-) neęe se prikazivati zakoni koji imaju takvu riječ. Npr. <tt>+kava +zakon -dopunama</tt>'); |