Correcting Form::all_vc() for new entity management

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1469 4979c152-3d1c-0410-bac9-87ea11338e46

1 files changed, 7 insertions, 6 deletions

diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm
index 0b96e62e..cb20e03f 100644
--- a/LedgerSMB/Form.pm
+++ b/LedgerSMB/Form.pm
@@ -1700,8 +1700,8 @@ sub all_vc {
         $query .= qq| AND (startdate IS NULL OR startdate <= ?)
 					AND (enddate IS NULL OR enddate >= ?)|;
         $where = qq| (startdate IS NULL OR startdate <= ?)
-					AND (enddate IS NULL OR enddate >= ?)|;
-
+					AND (enddate IS NULL OR enddate >= ?) 
+					AND entity_class = ?|;
         push (@queryargs, $transdate, $transdate );
     }
 
@@ -1717,13 +1717,14 @@ sub all_vc {
     if ( $count < $myconfig->{vclimit} ) {
 
         $self->{"${vc}_id"} *= 1;
-        $where = "AND $where" if $where;
 
         $query = qq|SELECT id, name
 					  FROM entity
 					 WHERE id IN (select entity_id 
-		                                        FROM $vc) 
-                                               $where
+		                                        FROM 
+							entity_credit_account
+							WHERE
+                                               		$where)
 
 					 UNION 
 
@@ -1733,7 +1734,7 @@ sub all_vc {
 				  ORDER BY name|;
 
         shift @queryargs;
-        push( @queryargs, $self->{"${vc}_id"} );
+        push( @queryargs, $self->{vc_class}, $self->{"${vc}_id"} );
 
         $sth = $dbh->prepare($query);
         $sth->execute(@queryargs) || $self->dberror($query);