/[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 54 by dpavlin, Tue Feb 5 13:59:25 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    
# Line 32  if (param('search') && param('type')) { Line 33  if (param('search') && param('type')) {
33          my $sth=$dbh->prepare($query->matchstring()) || die $dbh->errstr();          my $sth=$dbh->prepare($query->matchstring()) || die $dbh->errstr();
34          $sth->execute() || die $dbh->errstr();          $sth->execute() || die $dbh->errstr();
35          while (my $row = $sth->fetchrow_hashref()) {          while (my $row = $sth->fetchrow_hashref()) {
36                  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";
37          }          }
38    } else {
39            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>');
40  }  }
   
Legend:
Removed from v.28  
changed lines
  Added in v.54
  ViewVC Help
Powered by ViewVC 1.1.26