diff options
| -rwxr-xr-x | LedgerSMB/IR.pm | 2 | ||||
| -rw-r--r-- | common.pl | 4 |
2 files changed, 4 insertions, 2 deletions
diff --git a/LedgerSMB/IR.pm b/LedgerSMB/IR.pm index 2f794824..c3766227 100755 --- a/LedgerSMB/IR.pm +++ b/LedgerSMB/IR.pm @@ -1194,7 +1194,7 @@ sub retrieve_item { } if ($form->{"description_$i"} ne "") { - $var = $dbh->quote($form->$like(lc $form->{"description_$i"})); + $var = $dbh->quote($form->like(lc $form->{"description_$i"})); if ($form->{language_code} ne "") { $where .= " AND lower(t1.description) LIKE $var"; } else { @@ -27,7 +27,9 @@ sub redirect { use List::Util qw(first); my ($script, $argv) = split(/\?/, $form->{callback}); - my @common_attrs = qw(dbh login favicon stylesheet titlebar password); + my @common_attrs = + qw(dbh login favicon stylesheet titlebar password + ); if (!$script){ # http redirect to login.pl if called w/no args print "Location: login.pl\n"; |