From: Simon Cozens Date: Thu, 25 Mar 2004 12:16:25 +0000 (+0000) Subject: Do list properly after delete. X-Git-Tag: 2.10~272 X-Git-Url: https://git.decadent.org.uk/gitweb/?a=commitdiff_plain;h=5126c5e20c3b0ef5a5b7948ba6a7470f9628c7be;p=maypole.git 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 e7330e4..6671d09 100644 --- 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 {