SF.net SVN: ledger-smb:[2789] trunk/LedgerSMB/Form.pm

[..hidden..]

Revision: 2789
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=2789&view=rev
Author:   einhverfr
Date:     2009-11-10 19:36:16 +0000 (Tue, 10 Nov 2009)

Log Message:
-----------
Fixing bug in Form.pm which prevented memorized transactions from working properly and might cause other problems too

Modified Paths:
--------------
    trunk/LedgerSMB/Form.pm

Modified: trunk/LedgerSMB/Form.pm
===================================================================
--- trunk/LedgerSMB/Form.pm	2009-11-10 18:48:09 UTC (rev 2788)
+++ trunk/LedgerSMB/Form.pm	2009-11-10 19:36:16 UTC (rev 2789)
@@ -1820,7 +1820,7 @@
 
         $sth->finish;
 
-    } elsif ($self->{id}) {
+    } elsif ($self->{"${vc}_id"}) {
         $query = qq|
 		SELECT ec.id, e.name
 		  FROM entity e
@@ -1829,7 +1829,7 @@
 				WHERE id = ?)
 		ORDER BY name|;
         $sth = $self->{dbh}->prepare($query);
-        $sth->execute($self->{id});
+        $sth->execute($self->{"${vc}_id"});
         ($self->{"${vc}_id"}, $self->{$vc}) = $sth->fetchrow_array();
     }
     # get self


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