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

[..hidden..]

Revision: 1463
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=1463&view=rev
Author:   tetragon
Date:     2007-08-23 14:35:33 -0700 (Thu, 23 Aug 2007)

Log Message:
-----------
Fix bind variable count in $form->all_vc

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

Modified: trunk/LedgerSMB/Form.pm
===================================================================
--- trunk/LedgerSMB/Form.pm	2007-08-23 05:29:40 UTC (rev 1462)
+++ trunk/LedgerSMB/Form.pm	2007-08-23 21:35:33 UTC (rev 1463)
@@ -1712,7 +1712,6 @@
     my ($count) = $sth->fetchrow_array;
 
     $sth->finish;
-    @queryargs = ();
 
     # build selection list
     if ( $count < $myconfig->{vclimit} ) {
@@ -1733,6 +1732,7 @@
 					 WHERE id = ?
 				  ORDER BY name|;
 
+        shift @queryargs;
         push( @queryargs, $self->{"${vc}_id"} );
 
         $sth = $dbh->prepare($query);


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