From 078bc0e16261db9df511b6d42ea97dca9f8cd7d8 Mon Sep 17 00:00:00 2001
From: khenn <frank@plainblack.com>
Date: Tue, 27 Jul 2010 11:20:30 -0500
Subject: [PATCH] fixed #11745: Pagination doesn't work in DataForm list mode

---
 docs/changelog/7.x.x.txt             | 1 +
 lib/WebGUI/Asset/Wobject/DataForm.pm | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
index 63f1a2e18..d2ece54d8 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -1,6 +1,7 @@
 7.9.10
  - fixed #11721: spamStopWords not in WebGUI.conf.original
  - fixed #11729: Trash your User Function Style, and WebGUI locks you out
+ - fixed #11745: Pagination doesn't work in DataForm list mode
 
 7.9.9
  - fixed #11693: Shopping cart does not show for visitor user
diff --git a/lib/WebGUI/Asset/Wobject/DataForm.pm b/lib/WebGUI/Asset/Wobject/DataForm.pm
index ccb7c4846..9e9107e21 100644
--- a/lib/WebGUI/Asset/Wobject/DataForm.pm
+++ b/lib/WebGUI/Asset/Wobject/DataForm.pm
@@ -727,7 +727,7 @@ sub getListTemplateVars {
     } @{ $self->getFieldOrder };
     $var->{field_loop} = \@fieldLoop;
     my @recordLoop;
-    my $p = WebGUI::Paginator->new($session);
+    my $p = WebGUI::Paginator->new($session,$self->getUrl("mode=list"));
     $p->setDataByCallback(sub { return $self->entryClass->iterateAll($self, { offset => $_[0], limit => $_[1], }); });
     my $entryIter = $p->getPageIterator();
     while ( my $entry = $entryIter->() ) {