Parent Directory | Revision Log | Patch
revision 1.1 by dpavlin, Fri Jan 25 18:56:18 2002 UTC | revision 1.3 by dpavlin, Sat Feb 2 13:00:31 2002 UTC | |
---|---|---|
# | Line 5 use CGI qw/:standard -no_xhtml/; | Line 5 use CGI qw/:standard -no_xhtml/; |
5 | use DBI; | use DBI; |
6 | use Text::Query; | use Text::Query; |
7 | ||
8 | my $url="http://www.nn.hr/CijeliBrojS.asp?god=%d&br=%d#%d"; | my $url="http://www.nn.hr/CijeliBrojS.asp?god=%d&br=%d&mid=%d#%d"; |
9 | ||
10 | my %labels = ('Simple'=>'jednostavnim', 'Advanced'=>'naprednim'); | my %labels = ('Simple'=>'jednostavnim', 'Advanced'=>'naprednim'); |
11 | ||
# | Line 32 if (param('search') && param('type')) { | Line 32 if (param('search') && param('type')) { |
32 | my $sth=$dbh->prepare($query->matchstring()) || die $dbh->errstr(); | my $sth=$dbh->prepare($query->matchstring()) || die $dbh->errstr(); |
33 | $sth->execute() || die $dbh->errstr(); | $sth->execute() || die $dbh->errstr(); |
34 | while (my $row = $sth->fetchrow_hashref()) { | while (my $row = $sth->fetchrow_hashref()) { |
35 | print br,"<tt><a href=\"",sprintf($url,$row->{god},$row->{br},$row->{aname}),"\">NN",$row->{god},"/",$row->{br},"</a> ",$row->{nr},"</tt> ",$row->{title},"\n"; | print br,"<tt><a href=\"",sprintf($url,$row->{god},$row->{br},$row->{nr},$row->{aname}),"\">NN",$row->{god},"/",$row->{br},"</a> ",$row->{nr},"</tt> ",$row->{title},"\n"; |
36 | } | } |
37 | } else { | |
38 | print p('U jednostavnom pretraživanju pretraživač pronalazi sve zakone u kojima se pojavljuje <b>bilo koja</b> od tih riječi. Da bi našli sve zakone u kojima se pojavljuju <b>sve upisane riječi</b>, upišite ispred svake riječi znak plus (+). Npr: <tt>+zakon +kava</tt>',br,'Ako ispred riječi upišete minus (-) neće se prikazivati zakoni koji imaju takvu riječ. Npr. <tt>+kava +zakon -dopunama</tt>'); | |
39 | } | } |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |