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, |
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; |