adding $VERSION
remove empty params from search() in M::M::CDBI
git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@297
48953598-375a-da11-a14b-
00016c27c3ee
use strict;
use warnings;
use strict;
use warnings;
shift->{cgi} = CGI::Simple->new();
}
shift->{cgi} = CGI::Simple->new();
}
$calling_class = ref $calling_class if ref $calling_class;
{
no strict 'refs';
$calling_class = ref $calling_class if ref $calling_class;
{
no strict 'refs';
+ no warnings 'redefine';
# Naughty.
*{ $calling_class . "::handler" } =
# Naughty.
*{ $calling_class . "::handler" } =
sub handler_guts {
my $r = shift;
$r->model_class( $r->config->model->class_of( $r, $r->{table} ) );
sub handler_guts {
my $r = shift;
$r->model_class( $r->config->model->class_of( $r, $r->{table} ) );
my $applicable = $r->is_applicable;
unless ( $applicable == OK ) {
my $applicable = $r->is_applicable;
unless ( $applicable == OK ) {
use strict;
use warnings;
use strict;
use warnings;
+our $VERSION = "1." . sprintf "%04d", q$Rev$ =~ /: (\d+)/;
+
# Public accessors.
__PACKAGE__->mk_accessors(
qw( view uri_base template_root model loader display_tables ok_tables
# Public accessors.
__PACKAGE__->mk_accessors(
qw( view uri_base template_root model loader display_tables ok_tables
my $oper = "like"; # For now
my %params = %{ $r->{params} };
my %values = map { $_ => { $oper, $params{$_} } }
my $oper = "like"; # For now
my %params = %{ $r->{params} };
my %values = map { $_ => { $oper, $params{$_} } }
- grep { defined $params{$_} and $fields{$_} } keys %params;
+ grep { length ($params{$_}) and $fields{$_} } keys %params;
$r->template("list");
if ( !%values ) { return $self->list($r) }
$r->template("list");
if ( !%values ) { return $self->list($r) }
- my ( $self, $config, $namespace, $dsn, $u, $p, $opts ) = @_;
+ my ( $class, $config, $namespace, $dsn, $u, $p, $opts ) = @_;
$dsn ||= $config->dsn;
$u ||= $config->user;
$p ||= $config->pass;
$dsn ||= $config->dsn;
$u ||= $config->user;
$p ||= $config->pass;