From 63b4616ad07c3bbbc125018b127d307568b46e25 Mon Sep 17 00:00:00 2001 From: Simon Cozens Date: Sat, 31 Jan 2004 13:27:10 +0000 Subject: [PATCH] This gets delete working, although it involves diamond inheritance. git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@21 48953598-375a-da11-a14b-00016c27c3ee --- lib/Apache/MVC/Model/CDBI.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/Apache/MVC/Model/CDBI.pm b/lib/Apache/MVC/Model/CDBI.pm index 8e0b981..88ba3da 100644 --- a/lib/Apache/MVC/Model/CDBI.pm +++ b/lib/Apache/MVC/Model/CDBI.pm @@ -1,5 +1,5 @@ package Apache::MVC::Model::CDBI; -use base 'Apache::MVC::Model::Base'; +use base qw(Apache::MVC::Model::Base Class::DBI); use Class::DBI::AsForm; use Class::DBI::FromCGI; use CGI::Untaint; @@ -38,7 +38,7 @@ sub do_edit :Exported { sub delete :Exported { my ($self, $r) = @_; - $self->delete for @{ $r->objects }; + $_->SUPER::delete for @{ $r->objects }; $r->objects([ $self->retrieve_all ]); $r->{template} = "list"; } -- 2.39.5