Link to has-many objects in the view page.

[maypole.git] / lib / Apache / MVC.pm

diff --git a/lib/Apache/MVC.pm b/lib/Apache/MVC.pm
index 8ed51bf1c9108a353b0bb2f05750951ab22d5188..68a9927bf113ae421c1e205f8b87f0f334fece46 100644 (file)
--- a/lib/Apache/MVC.pm
+++ b/lib/Apache/MVC.pm
@@ -105,10 +105,10 @@ sub parse_location {
 sub is_applicable {
     my $self = shift;
     my $config = $self->config;
-    my %ok = map {$_ => 1} @{$config->{display_tables}};
+    $config->{ok_tables} = {map {$_ => 1} @{$config->{display_tables}}};
     warn "We don't have that table ($self->{table})"
-        unless $ok{$self->{table}};
-    return DECLINED() unless exists $ok{$self->{table}};
+        unless $config->{ok_tables}{$self->{table}};
+    return DECLINED() unless exists $config->{ok_tables}{$self->{table}};
 
     # Does the action method exist?
     # XXX We should set the method class to the class for the table