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 (file)
--- 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 {