From 3d3116de5f0d454ad77e059517fe686a5e69b4bb Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Sun, 12 Jul 2009 17:23:47 +0000 Subject: [PATCH] entries per page git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@1240 07558da8-63fa-0310-ba24-9fe276d99e06 --- vhost/webpac2.cgi | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/vhost/webpac2.cgi b/vhost/webpac2.cgi index e59820e..67c2c4f 100755 --- 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||, checkbox( -name => 'debug', -default => 0 ), # FIXME hidden? -- 2.20.1