diff options
author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-11-12 06:15:48 +0000 |
---|---|---|
committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-11-12 06:15:48 +0000 |
commit | 501e9fc80c27a4da942527e4ffd285b6629eae91 (patch) | |
tree | 2ebf46e02407eeae55e3cb771ded79300f1fcac3 | |
parent | 16b10f9cddca05aa2c3f63a15238c983b873bf23 (diff) |
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
-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"; |