summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authoreinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2006-11-12 06:15:48 +0000
committereinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2006-11-12 06:15:48 +0000
commit501e9fc80c27a4da942527e4ffd285b6629eae91 (patch)
tree2ebf46e02407eeae55e3cb771ded79300f1fcac3
parent16b10f9cddca05aa2c3f63a15238c983b873bf23 (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-xLedgerSMB/IR.pm2
-rw-r--r--common.pl4
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";