From 85cfc31310f0887103d3f139e3ff05ea8ca6e7e8 Mon Sep 17 00:00:00 2001
From: tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Thu, 23 Aug 2007 21:35:33 +0000
Subject: Fix bind variable count in $form->all_vc

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1463 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB/Form.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm
index 2296ac18..0b96e62e 100644
--- a/LedgerSMB/Form.pm
+++ b/LedgerSMB/Form.pm
@@ -1712,7 +1712,6 @@ sub all_vc {
     my ($count) = $sth->fetchrow_array;
 
     $sth->finish;
-    @queryargs = ();
 
     # build selection list
     if ( $count < $myconfig->{vclimit} ) {
@@ -1733,6 +1732,7 @@ sub all_vc {
 					 WHERE id = ?
 				  ORDER BY name|;
 
+        shift @queryargs;
         push( @queryargs, $self->{"${vc}_id"} );
 
         $sth = $dbh->prepare($query);
-- 
cgit v1.2.3