do_delete action now has exported attribute in ::Model::CDBI::Base

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

diff --git a/lib/Maypole/Model/CDBI/Base.pm b/lib/Maypole/Model/CDBI/Base.pm
index 2434284a032b3f62b11a793018073e09a30aacc2..ec88942762e7b58d0f0a4930484bec39be9a0d31 100644 (file)
--- a/lib/Maypole/Model/CDBI/Base.pm
+++ b/lib/Maypole/Model/CDBI/Base.pm
@@ -1,6 +1,5 @@
 package Maypole::Model::CDBI::Base;
 use strict;
-use Class::C3;
 
 =head1 NAME
 
@@ -125,7 +124,7 @@ sub _do_update_or_create {
   # update or create
   if ($obj) {
     # We have something to edit
-    eval { $obj->update_from_cgi( $r => {
+    eval { $obj->update_from_cgi( $h => {
                                         required => $required_cols,
                                         ignore => $ignored_cols,
                                        }); 
@@ -134,7 +133,7 @@ sub _do_update_or_create {
     $fatal = $@;
   } else {
        eval {
-       $obj = $self->create_from_cgi( $r => {
+       $obj = $self->create_from_cgi( $h => {
                                            required => $required_cols,
                                            ignore => $ignored_cols,
                                           } );
@@ -184,8 +183,7 @@ sub delete : Exported {
   }
 }
 
-
-sub do_delete {
+sub do_delete : Exported {
   my ( $self, $r ) = @_;
   # FIXME: handle fatal error with exception
   $_->SUPER::delete for @{ $r->objects || [] };
@@ -231,6 +229,9 @@ sub do_search : Exported {
     if ( !%values ) { return $self->list($r) }
     my $order = $self->order($r);
     $self = $self->do_pager($r);
+
+    # FIXME: use pager info to get slice of iterator instead of all the objects as array
+
     $r->objects(
         [
             $self->search_where(
@@ -756,7 +757,7 @@ sub get_classmetadata {
 
 =head1 SEE ALSO
 
-L<Maypole>, L<Maypole::Model::CDBI::Base>.
+L<Maypole>, L<Maypole::Model::Base>.
 
 =head1 AUTHOR