X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=WebPac.pm;h=94d47d5c3f64c0eeb871bf6bd51599f93791a85e;hb=da4562f447dcd048e2f7d73b50038f0b8414572c;hp=800833a84376824b6bc24be536128345385e9562;hpb=21eaf02b4bd83551186bfae0d1ca42b2d6210fa5;p=webpac

diff --git a/WebPac.pm b/WebPac.pm
index 800833a..94d47d5 100644
--- 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')) {