SF.net SVN: ledger-smb: [826] branches/1.2/LedgerSMB/Form.pm

[..hidden..]

Revision: 826
          http://svn.sourceforge.net/ledger-smb/?rev=826&view=rev
Author:   einhverfr
Date:     2007-02-22 14:05:12 -0800 (Thu, 22 Feb 2007)

Log Message:
-----------
Correcting fix for 1666529

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

Modified: branches/1.2/LedgerSMB/Form.pm
===================================================================
--- branches/1.2/LedgerSMB/Form.pm	2007-02-22 22:04:30 UTC (rev 825)
+++ branches/1.2/LedgerSMB/Form.pm	2007-02-22 22:05:12 UTC (rev 826)
@@ -2216,7 +2216,7 @@
 	my ($self, $myconfig, $dbh2, $vc, $module) = @_;
 
 	my $dbh = $self->{dbh};
-	$vc ||= $form->{vc}; # add default to correct for improper passing
+	$vc ||= $self->{vc}; # add default to correct for improper passing
 	my $arap = ($vc eq 'customer') ? "ar" : "ap";
 	my $where = "1 = 1";
 	my $sth;


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