Oops, I changed the interface, didn't I?

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

diff --git a/lib/Apache/MVC/Model/CDBI.pm b/lib/Apache/MVC/Model/CDBI.pm
index 833550d5a059a0297973069bb144d80adb89685d..86b2d344c23f93d284a4d53336fb6eddef0d3ab9 100644 (file)
--- a/lib/Apache/MVC/Model/CDBI.pm
+++ b/lib/Apache/MVC/Model/CDBI.pm
@@ -34,7 +34,7 @@ sub do_edit :Exported {
     } else {
         $r->{template} = "view";
     }
-    return $obj;
+    $r->objects([ $obj ]);
 }
 
 sub delete :Exported {