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

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";