Class::DBI::AsForm => 0,
Class::DBI::FromCGI => 0,
Class::DBI::Loader::Relationship => 0,
Class::DBI::AsForm => 0,
Class::DBI::FromCGI => 0,
Class::DBI::Loader::Relationship => 0,
CGI::Untaint => 0,
UNIVERSAL::moniker => 0,
UNIVERSAL::require => 0,
CGI::Untaint => 0,
UNIVERSAL::moniker => 0,
UNIVERSAL::require => 0,
sub related {
my ($self, $r) = @_;
sub related {
my ($self, $r) = @_;
-
- # Has-many methods; XXX this is a hack
- map {to_PL($_)}
- grep { exists $r->{config}{ok_tables}{$_} }
- map {$_->table}
- keys %{shift->__hasa_list || {}}
+ return keys %{$self->meta_info('has_many') || {}};
}
sub do_edit :Exported {
}
sub do_edit :Exported {