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

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

revision 15 by dpavlin, Sat Feb 22 13:22:09 2003 UTC revision 16 by dpavlin, Sat Feb 22 21:21:35 2003 UTC
# Line 91  sub show_results_list { Line 91  sub show_results_list {
91                                  $s.="$_* ";                                  $s.="$_* ";
92                          }                          }
93                  }                  }
94                    $s =~ s/\*+/*/g;
95    
96                  push @s_arr,$q->param("f$i")."_swish=($s)";                  push @s_arr,$q->param("f$i")."_swish=($s)";
97          }          }
# Line 191  sub show_index { Line 192  sub show_index {
192          $tmpl->param('limit',$limit);          $tmpl->param('limit',$limit);
193          $tmpl->param('total',$total);          $tmpl->param('total',$total);
194    
195    # FIX: I should set offset and leave out limit from fetch!!
196    #       if (! $q->param("PAGER_offset") {
197    #               $q->param("Pager_offet)
198    #       }
199    
200          my $pager = HTML::Pager->new(          my $pager = HTML::Pager->new(
201                  query => $q,                  query => $q,
202                  get_data_callback => sub {                  get_data_callback => sub {

Legend:
Removed from v.15  
changed lines
  Added in v.16

  ViewVC Help
Powered by ViewVC 1.1.26