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

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

revision 198 by dpavlin, Sun Dec 21 06:35:43 2003 UTC revision 202 by dpavlin, Sun Jan 18 16:23:03 2004 UTC
# Line 221  sub show_results_list { Line 221  sub show_results_list {
221                  return $html;                  return $html;
222          }          }
223    
224            my $sort = 'swishrank';
225            if ($q->param("sort")) {
226                    $sort = 'headline';
227                    push @persist_vars, "sort";
228            }
229    
230          # call swish          # call swish
231          my $sh = SWISH->connect('Fork',          my $sh = SWISH->connect('Fork',
232                  prog     => $SWISH,                  prog     => $SWISH,
# Line 238  sub show_results_list { Line 244  sub show_results_list {
244    
245                  },                  },
246                  #startnum => 0,                  #startnum => 0,
247                  maxhits => $MAX_HITS                  maxhits => $MAX_HITS,
248                    sortorder => $sort,
249          );          );
250    
251          die $SWISH::errstr unless $sh;          die $SWISH::errstr unless $sh;

Legend:
Removed from v.198  
changed lines
  Added in v.202

  ViewVC Help
Powered by ViewVC 1.1.26