my $oper = "like"; # For now
use Carp; Carp::confess("Urgh") unless ref $r;
my %params = %{$r->{params}};
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 ]);
grep { $params{$_} and $fields{$_} } keys %params;
$r->objects([ %values ? $self->search_where(%values) : $self->retrieve_all ]);