/[nn.old]/trunk/search/nn-swish.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/nn-swish.cgi

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

revision 94 by dpavlin, Sun Sep 28 02:19:59 2003 UTC revision 95 by dpavlin, Mon Sep 29 09:39:33 2003 UTC
# Line 19  my $max_hits=100; Line 19  my $max_hits=100;
19  my %labels = (100=>' 100', 200=>' 200', 500=>' 500', 0=>'neograničeno');  my %labels = (100=>' 100', 200=>' 200', 500=>' 500', 0=>'neograničeno');
20  my %index = ('title'=>'naslovu', 'text'=>'tekstu');  my %index = ('title'=>'naslovu', 'text'=>'tekstu');
21    
22  my %brs_labels;  my %god_lables;
23    
24  my %brzakona;  my %brzakona;
25  tie %brzakona, 'GDBM_File', "$dir/swish/brzakona.gdbm", &GDBM_READER, 0640 || die "tie: $!";  tie %brzakona, 'GDBM_File', "$dir/swish/brzakona.gdbm", &GDBM_READER, 0640 || die "tie: $!";
26  foreach (sort keys %brzakona) {  foreach (sort keys %brzakona) {
27          $brs_labels{$_} = sprintf("%-8s (%d zakona)",$_,$brzakona{$_});          $god_lables{$_} = sprintf("%-8s (%d zakona)",$_,$brzakona{$_});
28  }  }
29  untie %brzakona;  untie %brzakona;
30    
# Line 34  tie %file2title, 'GDBM_File', "$dir/swis Line 34  tie %file2title, 'GDBM_File', "$dir/swis
34  my $hr = new Lingua::Spelling::Alternative( DEBUG => 0 );  my $hr = new Lingua::Spelling::Alternative( DEBUG => 0 );
35  $hr->load_findaffix("$dir/prvih_50.txt");  $hr->load_findaffix("$dir/prvih_50.txt");
36    
37  print header(-charset=>'iso-8859-2'),start_html(-title=>'NN pretrazivanje',-lang=>'hr'),start_form;  print header(-charset=>'iso-8859-2'),start_html(-title=>'Narodne Novine pretrazivanje',-lang=>'hr'),start_form(-name=>'search_form');
38  print "Potraži ",popup_menu(-name=>'max_hits',-values=>[ sort keys %labels ],-labels=>\%labels,-default=>$max_hits)," zakona sa riječima: ",textfield('search');  print "Potraži ",popup_menu(-name=>'max_hits',-values=>[ sort keys %labels ],-labels=>\%labels,-default=>$max_hits)," zakona sa riječima: ",textfield('search');
39  print " u ",popup_menu(-name=>'index',-values=>[ sort keys %index ],-labels=>\%index,-default=>'title')," zakona ";  print " u ",popup_menu(-name=>'index',-values=>[ sort keys %index ],-labels=>\%index,-default=>'title')," zakona ";
40  print submit(-value=>'prikaži');  print submit(-value=>'prikaži');
41  print br,checkbox(-name=>'br_limit', -checked=>0, -label=>"ograniči pretraživanje samo na godinu "),popup_menu(-name=>'br',-values=>[sort keys %brs_labels],-labels=>\%brs_labels);  print br,checkbox(-name=>'god_limit', -checked=>0, -label=>"ograniči pretraživanje samo na godinu "),popup_menu(-name=>'god',-values=>[sort keys %god_lables],-labels=>\%god_lables,-onChange=>'this.form.god_limit.checked=true');
42  print end_form,hr;  print end_form,hr;
43    
44  if (param('search')) {  if (param('search')) {
# Line 86  if (param('search')) { Line 86  if (param('search')) {
86                  die $SWISH::errstr unless $sh;                  die $SWISH::errstr unless $sh;
87    
88                  $sw_q = "naslov_czs=($s)";                  $sw_q = "naslov_czs=($s)";
89                  if (param('br_limit')) {                  if (param('god_limit')) {
90                          $sw_q .= " and god=".int(param('br')) if (param('br'));                          $sw_q .= " and god=".int(param('god')) if (param('god'));
91                  }                  }
92    
93          } else {          } else {
# Line 115  if (param('search')) { Line 115  if (param('search')) {
115                  die $SWISH::errstr unless $sh;                  die $SWISH::errstr unless $sh;
116    
117                  $sw_q = $s;                  $sw_q = $s;
118                  if (param('br_limit')) {                  if (param('god_limit')) {
119                          $sw_q .= " and swishdocpath=".int(param('br')) if (param('br'));                          $sw_q .= " and swishdocpath=".int(param('god')) if (param('god'));
120                  }                  }
121    
122          }          }
# Line 127  if (param('search')) { Line 127  if (param('search')) {
127    
128          if ($hits > 0) {          if ($hits > 0) {
129                  print p,hr,"Prikazujem $hits zakona";                  print p,hr,"Prikazujem $hits zakona";
130                  print " iz broja ",param('br') if (param('br_limit'));                  print " iz godine ",param('god') if (param('god_limit'));
131                  print " (maks. ",param('max_hits') || $max_hits,")... <small>($s)</small>";                  print " (maks. ",param('max_hits') || $max_hits,")... <small>($s)</small>";
132          } else {          } else {
133                  print p,"Nije nađen niti jedan zakon... <small>($s, ",$sh->errstr,")</small>";                  print p,"Nije nađen niti jedan zakon... <small>($s, ",$sh->errstr,")</small>";
134          }          }
135  } else {  } else {
136          print p('Kod pretraživanja pretraživač pronalazi sve zakone u kojima se pojavljuju <b>sve upisanje riječi</b>.',br,'Ako ispred riječi upišete minus (-) neće se prikazivati zakoni koji imaju takvu riječ. Npr. <tt>+kava +zakon -dopunama</tt>');          my $dir=$0;
137          print p("Možete pročitati i <a href=\"http://www.rot13.org/~dpavlin/nn.html\">članak</a> o tome kako je ovaj pretraživač napravljen i zašto."),p("Ovo je <i>nova i brža verzija pretraživača</i> o kojoj <a href=\"http://www.rot13.org/~dpavlin/nn.html#buducnost\">više možete saznati</a> iz članka."),p("Novosti od rujna 2003.: pretraživanje po godinama i po punom tekstu zakona!");          $dir=~s,(^.*?)/[^/]+$,$1,g;
138            open(HELP, "$dir/nn-help.html") || die "can't open '$dir/nn-help.html'";
139            while(<HELP>) {
140                    print;
141            }
142            close(HELP);
143  }  }
144    
145  untie %file2title;  untie %file2title;
Legend:
Removed from v.94  
changed lines
  Added in v.95
  ViewVC Help
Powered by ViewVC 1.1.26