don't use deprecated CDBI::ContextualSearch param

git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@290 48953598-375a-da11-a14b-00016c27c3ee

diff --git a/lib/Maypole/Model/CDBI.pm b/lib/Maypole/Model/CDBI.pm
index 618076f3502741dc2c6e2654803e1baeb33ece23..14f2f0b8ca3e6e60751c722ddef578f80996b79f 100644 (file)
--- a/lib/Maypole/Model/CDBI.pm
+++ b/lib/Maypole/Model/CDBI.pm
@@ -167,7 +167,7 @@ sub search : Exported {
     $r->objects(
         [
             $self->search_where(
-                \%values, ( $order ? { order => $order } : () )
+                \%values, ( $order ? { order_by => $order } : () )
             )
         ]
     );