execute called with 2 bind variables when 0 are needed
####
my @what = split(/\s+/, $what);
shift @what if $what[0] eq ''; # skip leading empty fields
my $first = 1;
foreach (@what) {
push (@$where, 'AND') unless $first;
push (@$where, [
{ subject => ['LIKE', "\%$_\%"] },
'OR',
{ message => ['LIKE', "\%$_\%"] },
]);
$first = 0;
}
$dbx->select({
fields => 'reference, subject, name',
table => 'boardmessage',
where => $where,
});
##
##
DBIx::Abstract::__literal_query('DBIx::Abstract=HASH(0xb92e080)', 'SELECT reference, subject, name FROM boardmessage WHERE ((subject LIKE ?) OR (message LIKE ?))', '%huhu%', '%huhu%') called at /usr/share/perl5/DBIx/Abstract.pm line 769