/[webpac]/branches/hidra/WebPac.pm
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 /branches/hidra/WebPac.pm

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

revision 731 by dpavlin, Thu Apr 13 19:47:32 2006 UTC revision 790 by dpavlin, Sun Jan 22 18:46:24 2012 UTC
# Line 63  sub suff2file($$$$) { Line 63  sub suff2file($$$$) {
63    
64          return $tpl if (! $base_path);          return $tpl if (! $base_path);
65    
66            #warn "base_path: $base_path, p: $p, path: $path, tpl: $tpl\n";
67    
68            $p =~ s#/[^/]*$##;
69    
70          # strip everything to and including base path, leaving only          # strip everything to and including base path, leaving only
71          # additional (virtual) path          # additional (virtual) path
72          if ($base_path eq "/") {          if ($base_path eq "/") {
# Line 417  sub show_results_list { Line 421  sub show_results_list {
421          my $hits = $results->Hits;          my $hits = $results->Hits;
422    
423          $tmpl->param('hits',$hits);          $tmpl->param('hits',$hits);
424            $tmpl->param('hits_gt_2',$hits > 2);
425          my $search_msg = $sw_q;          my $search_msg = $sw_q;
426          $search_msg .= '<em>'.$swish_msg.'</em>' if ($swish_msg);          $search_msg .= '<em>'.$swish_msg.'</em>' if ($swish_msg);
427          $tmpl->param('search', $search_msg);          $tmpl->param('search', $search_msg);
Legend:
Removed from v.731  
changed lines
  Added in v.790
  ViewVC Help
Powered by ViewVC 1.1.26