SF.net SVN: ledger-smb: [635] branches/1.2/LedgerSMB/AM.pm

[..hidden..]

Revision: 635
          http://svn.sourceforge.net/ledger-smb/?rev=635&view=rev
Author:   tetragon
Date:     2006-11-15 17:22:55 -0800 (Wed, 15 Nov 2006)

Log Message:
-----------
Fix yearend post query

Modified Paths:
--------------
    branches/1.2/LedgerSMB/AM.pm

Modified: branches/1.2/LedgerSMB/AM.pm
===================================================================
--- branches/1.2/LedgerSMB/AM.pm	2006-11-16 01:17:42 UTC (rev 634)
+++ branches/1.2/LedgerSMB/AM.pm	2006-11-16 01:22:55 UTC (rev 635)
@@ -1763,7 +1763,9 @@
 		  FROM gl
 		 WHERE reference = ?|;
 
-	($form->{id}) = $dbh->prepare($query)->fetchrow_array($uid);
+	my $sth = $dbh->prepare($query);
+	$sth->execute($uid);
+	($form->{id}) = $sth->fetchrow_array;
 
 	$query = qq|
 		UPDATE gl 


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