From 501e9fc80c27a4da942527e4ffd285b6629eae91 Mon Sep 17 00:00:00 2001 From: einhverfr Date: Sun, 12 Nov 2006 06:15:48 +0000 Subject: Fixed one bug in IR.pm git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@521 4979c152-3d1c-0410-bac9-87ea11338e46 --- LedgerSMB/IR.pm | 2 +- 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 { diff --git a/common.pl b/common.pl index bc227697..ac104f82 100644 --- a/common.pl +++ b/common.pl @@ -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"; -- cgit v1.2.3