From: Aaron Trevena <aaron.trevena@gmail.com>
Date: Sun, 15 Oct 2006 14:03:33 +0000 (+0000)
Subject: fixed DFV model
X-Git-Tag: 2.12~44
X-Git-Url: https://git.decadent.org.uk/gitweb/?a=commitdiff_plain;h=9359c5412f34be76c0672fe320729d60f96a2c3e;p=maypole.git

fixed DFV model

git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@530 48953598-375a-da11-a14b-00016c27c3ee
---

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} } ];