filter to checked documents

[webpac] / WebPac.pm

diff --git a/WebPac.pm b/WebPac.pm
index 800833a..94d47d5 100644 (file)
--- a/WebPac.pm
+++ b/WebPac.pm
@@ -345,6 +345,13 @@ sub show_results_list {
                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);
        if (@path_arr && $q->param('show_full')) {