/[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 60 by dpavlin, Tue Feb 12 19:25:41 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 24  if (param('search') && param('type')) { Line 27  if (param('search') && param('type')) {
27                  -select => 'select br,god,aname,nr,title from nn where __WHERE__ order by god desc,br desc,nr asc'                  -select => 'select br,god,aname,nr,title from nn where __WHERE__ order by god desc,br desc,nr asc'
28                  );                  );
29    
30          $query->prepare(param('search'));          my $s=param('search');
31            $s=~tr/šđžčćŠĐŽČĆ/šđžčćŠĐŽČĆ/;  # 1250 -> iso8859-2
32            $s=~tr/šŠđĐčČćĆžŽ/sSdDcCcCzZ/;
33            $query->prepare($s);
34    
35  #       print "--",$query->matchstring();  #       print "--",$query->matchstring();
36    
# Line 33  if (param('search') && param('type')) { Line 39  if (param('search') && param('type')) {
39          $sth->execute() || die $dbh->errstr();          $sth->execute() || die $dbh->errstr();
40          while (my $row = $sth->fetchrow_hashref()) {          while (my $row = $sth->fetchrow_hashref()) {
41                  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";
42                    $hits++;
43            }
44            if ($hits > 0) {
45                    print p,hr,"Nađeno je $hits zakona...";
46            } else {
47                    print p,"Nije nađen niti jedan zakon...";
48          }          }
49  } else {  } else {
50          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.60
  ViewVC Help
Powered by ViewVC 1.1.26