From 58c9595d95477fa806c7876aa7bf80d1908bd22d Mon Sep 17 00:00:00 2001
From: biopete <biopete@invalid>
Date: Mon, 12 Jun 2006 20:34:32 +0000
Subject: [PATCH] Now request model_class is not set unless the model class is
 a Maypole::Model::Base.

git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@494 48953598-375a-da11-a14b-00016c27c3ee
---
 lib/Maypole.pm | 10 +++++++++-
 t/01basics.t   |  2 +-
 2 files changed, 10 insertions(+), 2 deletions(-)

diff --git a/lib/Maypole.pm b/lib/Maypole.pm
index 770467a..19e9cec 100644
--- a/lib/Maypole.pm
+++ b/lib/Maypole.pm
@@ -652,9 +652,17 @@ sub __get_mime_type {
 sub __load_request_model
 {
     my ($self) = @_;
-    $self->model_class( $self->config->model->class_of($self, $self->table) );
+	# We may get a made up class from class_of
+    my $mclass = $self->config->model->class_of($self, $self->table);
+    if ( eval {$mclass->isa('Maypole::Model::Base')} ) {
+        $self->model_class( $mclass );
+    }
+    elsif ($self->debug) {
+        warn "\n***Warning:  No $mclass class appropriate  to set as request model : $@***\n"
+    }
 }
 
+
 # is_applicable() returned false, so set up a plain template. Model processing 
 # will be skipped, but need to remove the model anyway so the template can't 
 # access it. 
diff --git a/t/01basics.t b/t/01basics.t
index 7da48b2..87c9643 100644
--- a/t/01basics.t
+++ b/t/01basics.t
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 use Test::More;
-use lib 'ex'; # Where BeerDB should live
+use lib '../ex'; # Where BeerDB should live
 BEGIN {
     $ENV{BEERDB_DEBUG} = 2;
 
-- 
2.39.5