entries per page

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@1240 07558da8-63fa-0310-ba24-9fe276d99e06

diff --git a/vhost/webpac2.cgi b/vhost/webpac2.cgi
index e59820e..67c2c4f 100755 (executable)
--- a/vhost/webpac2.cgi
+++ b/vhost/webpac2.cgi
@@ -13,7 +13,7 @@ use SWISH::API;
 use JSON;
 
 my $range_around = 5;
-my $entries_per_page = 30;
+my @entries_per_page = ( 30, 50, 100, 500 );
 my $debug = param('debug');
 
 print header(
@@ -159,8 +159,9 @@ sub search_form {
                ),
                textfield( -name => 'search' ),
                $attr_operators ? popup_menu( -name => 'attr_operator', %$attr_operators ) : '',
-               submit,
-               hidden( -name => 'entries_per_page', -default => $entries_per_page ),
+               submit( -value => 'Search' ),
+#              hidden( -name => 'entries_per_page', -default => $entries_per_page ),
+               popup_menu( -name => 'entries_per_page', -values => [ @entries_per_page ], -title => 'entries per page' ),
                # we need current_page fixed at 1 so that every submit through form will reset it
                qq|<input type=hidden name=current_page value=1 >|,
                checkbox( -name => 'debug', -default => 0 ), # FIXME hidden?