r11190@llin: dpavlin | 2005-11-27 06:05:22 +0100

[webpac2] / lib / WebPAC / Search / Estraier.pm

diff --git a/lib/WebPAC/Search/Estraier.pm b/lib/WebPAC/Search/Estraier.pm
index 85480c7..1647953 100644 (file)
--- a/lib/WebPAC/Search/Estraier.pm
+++ b/lib/WebPAC/Search/Estraier.pm
@@ -154,6 +154,10 @@ sub search {
 
        my $max = $args->{max} || 7;
        my $page = $args->{page} || 1;
+       if ($page < 1) {
+               $log->warn("page number $page < 1");
+               $page = 1;
+       }
 
        $cond->set_max( $page * $max );