From 5126c5e20c3b0ef5a5b7948ba6a7470f9628c7be Mon Sep 17 00:00:00 2001
From: Simon Cozens <simon@simon-cozens.org>
Date: Thu, 25 Mar 2004 12:16:25 +0000
Subject: [PATCH] Do list properly after delete.

git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@90 48953598-375a-da11-a14b-00016c27c3ee
---
 lib/Maypole/Model/CDBI.pm | 1 +
 1 file changed, 1 insertion(+)

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 {
-- 
2.39.2