--- trunk/WebPac.pm	2003/12/21 06:35:43	198
+++ branches/tehnika/WebPac.pm	2004/03/12 15:33:13	264
@@ -221,6 +221,12 @@
 		return $html;
 	}
 
+	my $sort = 'swishrank';
+	if ($q->param("sort")) {
+		$sort = 'headline';
+		push @persist_vars, "sort";
+	}
+
 	# call swish
 	my $sh = SWISH->connect('Fork',
 		prog     => $SWISH,
@@ -238,7 +244,8 @@
 
 		},
 		#startnum => 0,
-		maxhits => $MAX_HITS
+		maxhits => $MAX_HITS,
+		sortorder => $sort,
 	);
 
 	die $SWISH::errstr unless $sh;