/[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 28 by dpavlin, Fri Jan 25 18:56:17 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#%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 32  if (param('search') && param('type')) { Line 38  if (param('search') && param('type')) {
38          my $sth=$dbh->prepare($query->matchstring()) || die $dbh->errstr();          my $sth=$dbh->prepare($query->matchstring()) || die $dbh->errstr();
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->{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 {
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>');
51  }  }
   
Legend:
Removed from v.28  
changed lines
  Added in v.60
  ViewVC Help
Powered by ViewVC 1.1.26