From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sat, 22 Feb 2003 21:21:35 +0000 (+0000)
Subject: allows users to enter queries with asterisk (*)
X-Git-Url: http://git.rot13.org/?a=commitdiff_plain;h=b6c4ad0d7863561df1eba82df8025432a6a79341;p=webpac

allows users to enter queries with asterisk (*)


git-svn-id: file:///home/dpavlin/private/svn/webpac/trunk@16 13eb9ef6-21d5-0310-b721-a9d68796d827
---

diff --git a/WebPac.pm b/WebPac.pm
index 11e2b27..a6f408e 100644
--- a/WebPac.pm
+++ b/WebPac.pm
@@ -91,6 +91,7 @@ sub show_results_list {
 				$s.="$_* ";
 			}
 		}
+		$s =~ s/\*+/*/g;
 
 		push @s_arr,$q->param("f$i")."_swish=($s)";
 	}
@@ -191,6 +192,11 @@ sub show_index {
 	$tmpl->param('limit',$limit);
 	$tmpl->param('total',$total);
 
+# FIX: I should set offset and leave out limit from fetch!!
+#	if (! $q->param("PAGER_offset") {
+#		$q->param("Pager_offet)
+#	}
+
 	my $pager = HTML::Pager->new(
 		query => $q,
 		get_data_callback => sub {