minor tweaks

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

diff --git a/lib/CGI/Maypole.pm b/lib/CGI/Maypole.pm
index 39514f97cb763550eb03f46451fcaaaeb36a4597..863bc10c66b3f1e201fa63f827fa2b7a3645e9ca 100644 (file)
--- a/lib/CGI/Maypole.pm
+++ b/lib/CGI/Maypole.pm
@@ -3,6 +3,7 @@ use base 'Maypole';
 
 use strict;
 use warnings;
+use CGI::Simple;
 
 our $VERSION = '2.05';
 
@@ -12,7 +13,6 @@ sub run {
 }
 
 sub get_request {
-    require CGI::Simple;
     shift->{cgi} = CGI::Simple->new();
 }
 

diff --git a/lib/Maypole.pm b/lib/Maypole.pm
index bcd0b3ab0d6ff7f6bd12f858b3ab40bab1276e2f..e16dd829abc76ab7e3c6d1da9b40f0153cfc7e85 100644 (file)
--- a/lib/Maypole.pm
+++ b/lib/Maypole.pm
@@ -23,6 +23,7 @@ sub setup {
     $calling_class = ref $calling_class if ref $calling_class;
     {
         no strict 'refs';
+        no warnings 'redefine';
 
         # Naughty.
         *{ $calling_class . "::handler" } =
@@ -72,6 +73,7 @@ sub handler {
 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 ) {
 

diff --git a/lib/Maypole/Config.pm b/lib/Maypole/Config.pm
index 65263ff029672e6cdfd384084b6ef97170124442..6a236c829c8ecf950651cb2ed725472757264125 100644 (file)
--- a/lib/Maypole/Config.pm
+++ b/lib/Maypole/Config.pm
@@ -5,6 +5,8 @@ use attributes ();
 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

diff --git a/lib/Maypole/Model/CDBI.pm b/lib/Maypole/Model/CDBI.pm
index 14f2f0b8ca3e6e60751c722ddef578f80996b79f..031d9851e797e72497c0ec8681914dcd06766925 100644 (file)
--- a/lib/Maypole/Model/CDBI.pm
+++ b/lib/Maypole/Model/CDBI.pm
@@ -158,7 +158,7 @@ sub search : Exported {
     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) }
@@ -206,7 +206,7 @@ sub list : Exported {
 }
 
 sub setup_database {
-    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;