--- trunk/WebPac.pm 2005/02/15 21:48:16 659 +++ trunk/WebPac.pm 2005/02/15 22:22:24 660 @@ -344,10 +344,13 @@ $sort = 'headline'; push @persist_vars, "sort"; } - if ($q->param("sortby")) { - $sort = $q->param("sortby"); - push @persist_vars, "sort"; + + my $sortby = $q->param("sortby"); + if ($sortby) { + $sort = $sortby; + push @persist_vars, "sortby"; } + $tmpl->param('url_params_paths',"?".join("&",@url_params).'&'.join("&",map { my $t = $_; $t =~ s/\#/%23/g; "path=$t"; } @path_arr)); # construct swish query my $sw_q = join(" and ",@s_arr); @@ -373,7 +376,6 @@ my $search = $swish->New_Search_Object; $search->SetSort($sort); -print "sort: $sort\n"; my $results = $search->Execute($sw_q); $swish_msg .= $swish->ErrorString." ".$swish->LastErrorMsg if $swish->Error;