From 9359c5412f34be76c0672fe320729d60f96a2c3e Mon Sep 17 00:00:00 2001 From: Aaron Trevena Date: Sun, 15 Oct 2006 14:03:33 +0000 Subject: [PATCH] fixed DFV model git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@530 48953598-375a-da11-a14b-00016c27c3ee --- lib/Maypole/Model/CDBI/DFV.pm | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/lib/Maypole/Model/CDBI/DFV.pm b/lib/Maypole/Model/CDBI/DFV.pm index 3afb985..61ab5a6 100644 --- a/lib/Maypole/Model/CDBI/DFV.pm +++ b/lib/Maypole/Model/CDBI/DFV.pm @@ -36,11 +36,13 @@ of CGI::Untaint. For teh win!! =cut use Class::C3; -use Maypole::Config; use Data::FormValidator; +use Data::Dumper; + +use Maypole::Config; use Maypole::Model::CDBI::AsForm; -use base qw(Maypole::Model::Base); +use base qw(Maypole::Model::CDBI::Base); Maypole::Config->mk_accessors(qw(table_to_class _COLUMN_INFO)); @@ -61,7 +63,9 @@ Maypole::Config->mk_accessors(qw(table_to_class _COLUMN_INFO)); sub setup_database { my ( $self, $config, $namespace, $classes ) = @_; $config->{classes} = $classes; - foreach my $class (@$classes) { $namespace->load_model_subclass($class); } + foreach my $class (@$classes) { + $namespace->load_model_subclass($class); + } $namespace->model_classes_loaded(1); $config->{table_to_class} = { map { $_->table => $_ } @$classes }; $config->{tables} = [ keys %{ $config->{table_to_class} } ]; -- 2.39.2