filter to checked documents

[webpac] / WebPac.pm

diff --git a/WebPac.pm b/WebPac.pm
index a08a711..94d47d5 100644 (file)
--- a/WebPac.pm
+++ b/WebPac.pm
@@ -344,10 +344,13 @@ sub show_results_list {
                $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 @@ sub show_results_list {
        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;