SF.net SVN: ledger-smb: [521] trunk

[..hidden..]

Revision: 521
          http://svn.sourceforge.net/ledger-smb/?rev=521&view=rev
Author:   einhverfr
Date:     2006-11-11 22:15:48 -0800 (Sat, 11 Nov 2006)

Log Message:
-----------
Fixed one bug in IR.pm

Modified Paths:
--------------
    trunk/LedgerSMB/IR.pm
    trunk/common.pl

Modified: trunk/LedgerSMB/IR.pm
===================================================================
--- trunk/LedgerSMB/IR.pm	2006-11-12 05:34:09 UTC (rev 520)
+++ trunk/LedgerSMB/IR.pm	2006-11-12 06:15:48 UTC (rev 521)
@@ -1194,7 +1194,7 @@
 	}
   
 	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 {

Modified: trunk/common.pl
===================================================================
--- trunk/common.pl	2006-11-12 05:34:09 UTC (rev 520)
+++ trunk/common.pl	2006-11-12 06:15:48 UTC (rev 521)
@@ -27,7 +27,9 @@
 	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";


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.