/[nn.old]/trunk/search/nn2-search.cgi
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/search/nn2-search.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 48 by dpavlin, Sat Feb 2 13:00:31 2002 UTC revision 58 by dpavlin, Mon Feb 11 11:41:18 2002 UTC
# Line 4  use strict; Line 4  use strict;
4  use CGI qw/:standard -no_xhtml/;  use CGI qw/:standard -no_xhtml/;
5  use DBI;  use DBI;
6  use Text::Query;  use Text::Query;
7    use CGI::Carp qw(fatalsToBrowser);
8    
9  my $url="http://www.nn.hr/CijeliBrojS.asp?god=%d&br=%d&mid=%d#%d";  my $url="http://www.nn.hr/CijeliBrojS.asp?god=%d&br=%d&mid=%d#%d";
10    
11  my %labels = ('Simple'=>'jednostavnim', 'Advanced'=>'naprednim');  my %labels = ('Simple'=>'jednostavnim', 'Advanced'=>'naprednim');
12    
13    my $hits=0;
14    
15  print header(-charset=>'iso-8859-2'),start_html(-title=>'NN pretrazivanje',-lang=>'hr'),start_form;  print header(-charset=>'iso-8859-2'),start_html(-title=>'NN pretrazivanje',-lang=>'hr'),start_form;
16  print "Traži zakon: ",textfield('search')," sa ";  print "Traži zakon: ",textfield('search')," sa ";
17  print popup_menu(-name=>'type',-values=>[ keys %labels ],-labels=>\%labels);  print popup_menu(-name=>'type',-values=>[ keys %labels ],-labels=>\%labels);
# Line 33  if (param('search') && param('type')) { Line 36  if (param('search') && param('type')) {
36          $sth->execute() || die $dbh->errstr();          $sth->execute() || die $dbh->errstr();
37          while (my $row = $sth->fetchrow_hashref()) {          while (my $row = $sth->fetchrow_hashref()) {
38                  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";                  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";
39                    $hits++;
40            }
41            if ($hits > 0) {
42                    print p,hr,"Nađeno je $hits zakona...";
43            } else {
44                    print p,"Nije nađen niti jedan zakon...";
45          }          }
46  } else {  } else {
47          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>');          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>');
Legend:
Removed from v.48  
changed lines
  Added in v.58
  ViewVC Help
Powered by ViewVC 1.1.26