--- trunk/WebPac.pm	2005/02/04 15:00:24	658
+++ trunk/WebPac.pm	2005/02/15 21:48:16	659
@@ -344,6 +344,10 @@
 		$sort = 'headline';
 		push @persist_vars, "sort";
 	}
+	if ($q->param("sortby")) {
+		$sort = $q->param("sortby");
+		push @persist_vars, "sort";
+	}
 
 	# construct swish query
 	my $sw_q = join(" and ",@s_arr);
@@ -369,6 +373,7 @@
 	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;