From: Simon Cozens <simon@simon-cozens.org>
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/?p=maypole.git;a=commitdiff_plain;h=5126c5e20c3b0ef5a5b7948ba6a7470f9628c7be

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 {