Slighty naughty bug there.

git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@39 48953598-375a-da11-a14b-00016c27c3ee

diff --git a/lib/Apache/MVC/Model/CDBI.pm b/lib/Apache/MVC/Model/CDBI.pm
index 8d75c30aec1883cb98d23e1af7345ee83780fc31..d842d5f16730788f52efb256d88bbbf83057fa63 100644 (file)
--- a/lib/Apache/MVC/Model/CDBI.pm
+++ b/lib/Apache/MVC/Model/CDBI.pm
@@ -59,8 +59,7 @@ sub search :Exported {
     my $oper = "like"; # For now
     use Carp; Carp::confess("Urgh") unless ref $r;
     my %params = %{$r->{params}};
-    my %values = map { $_ => {$oper, $oper eq "like" ? "%".$params{$_}."%" 
-                                                     :$params{$_} } }
+    my %values = map { $_ => {$oper, $params{$_} } }
                  grep { $params{$_} and $fields{$_} } keys %params;
 
     $r->objects([ %values ? $self->search_where(%values) : $self->retrieve_all ]);