Do list properly after delete.

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

diff --git a/lib/Maypole/Model/CDBI.pm b/lib/Maypole/Model/CDBI.pm
index e7330e48abeafe98fe9ae807f5313cc13ee2e930..6671d09cb5c7ff06859be39735ca44acd255b5de 100644 (file)
--- a/lib/Maypole/Model/CDBI.pm
+++ b/lib/Maypole/Model/CDBI.pm
@@ -59,6 +59,7 @@ sub delete :Exported {
     $_->SUPER::delete for @{ $r->objects || [] };
     $r->objects([ $self->retrieve_all ]);
     $r->{template} = "list";
+    $self->list;
 }
 
 sub stringify_column {