- Added keyword tagging to Wiki.

lib/WebGUI/Paginator.pm

@@ -549,7 +549,7 @@ sub getRowCount {
 
 #-------------------------------------------------------------------
 
-=head2 new ( session, currentURL [, paginateAfter, formVar, pageNumber ] )
+=head2 new ( session, baseUrl [, paginateAfter, formVar, pageNumber ] )
 
 Constructor.
 
@@ -557,7 +557,7 @@ Constructor.
 
 A reference to the current session.
 
-=head3 currentURL
+=head3 baseUrl
 
 The URL of the current page including attributes. The page number will be appended to this in all links generated by the paginator.
 
@@ -599,6 +599,24 @@ sub session {
 }
 
 
+#-------------------------------------------------------------------
+
+=head2 setBaseUrl ( url ) 
+
+Override the baseUrl set in the constructor.
+
+=head3 url
+
+The new URL.
+
+=cut
+
+sub setBaseUrl {
+    my ($self, $url) = @_;
+    $self->{_url} = $url;    
+}
+
+
 #-------------------------------------------------------------------
 
 =head2 setDataByArrayRef ( arrayRef )