Maypole::CLI and the beginnings of a test suite.

[maypole.git] / lib / Maypole / Model / CDBI.pm

diff --git a/lib/Maypole/Model/CDBI.pm b/lib/Maypole/Model/CDBI.pm
index 052ebc9e1c0ea56530b30ac27915160ed005bcc7..8b753df5432b058f53b5e56a353a4f06b55fcc00 100644 (file)
--- a/lib/Maypole/Model/CDBI.pm
+++ b/lib/Maypole/Model/CDBI.pm
@@ -90,8 +90,8 @@ sub search :Exported {
 
     $r->template("list");
     if (!%values) { return $self->list($r) }
-    $self = $self->do_pager($r);
     my $order = $self->order($r);
+    $self = $self->do_pager($r);
     $r->objects([ $self->search_where(\%values), 
                   ($order ? { order => $order } : ())  
                 ]);
@@ -117,8 +117,8 @@ sub order {
 
 sub list :Exported {
     my ($self, $r) = @_;
-    $self = $self->do_pager($r);
     my $order = $self->order($r);
+    $self = $self->do_pager($r);
     if ($order) { 
         $r->objects([ $self->retrieve_all_sorted_by( $order )]);
     } else {