Search - Paginate results (#713)

lib/WebGUI/Asset/Wobject/Search.pm

@@ -104,7 +104,15 @@ sub definition {
                 fieldType       => "yesNo",
                 defaultValue    => 0,
                 },
-		);
+			paginateAfter => {
+				hoverHelp       => $i18n->get("paginate after help"),
+				label           => $i18n->get("paginate after"),
+				tab             => "display",
+				fieldType       => "integer",
+				defaultValue    => 25,
+				},
+ 		);
+
 	push(@{$definition}, {
 		assetName=>$i18n->get('assetName'),
 		icon=>'search.gif',
@@ -152,9 +160,9 @@ sub view {
 	my %var;
 	
     $var{'form_header'  } = WebGUI::Form::formHeader($session, {
-        action=>$self->getUrl("doit=1")
-    });
-    #.WebGUI::Form::hidden($self->session,{name=>"doit", value=>"1"});
+        action=>$self->getUrl
+		})
+    .WebGUI::Form::hidden($self->session,{name=>"doit", value=>"1"});
 	$var{'form_footer'  } = WebGUI::Form::formFooter($session);
 	$var{'form_submit'  } = WebGUI::Form::submit($session, {
         value=>$i18n->get("search")
@@ -187,7 +195,8 @@ sub view {
 
         #Set up the paginator
         my $p         = $search->getPaginatorResultSet (
-            $self->getUrl('doit=1;keywords='.$session->url->escape($keywords))            
+            $self->getUrl('doit=1;keywords='.$session->url->escape($keywords)),
+			$self->get("paginateAfter"),
         );
 
         my @results   = ();

lib/WebGUI/i18n/English/Asset_Search.pm

@@ -3,6 +3,18 @@ use strict;
 
 our $I18N = { ##hashref of hashes
 
+	'paginate after' => {
+		message => q|Paginate After|,
+		lastUpdated => 0,
+		context => q|an asset property|
+	},
+
+	'paginate after help' => {
+		message => q|The number of items to be displayed before breaking further items into additional pages.|,
+		lastUpdated => 0,
+		context => q|an asset property help|
+	},
+
 	'useContainers' => {
 		message => q|Use container URLs in results?|,
 		lastUpdated => 0,