diff options
| author | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-08-23 21:35:33 +0000 |
|---|---|---|
| committer | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-08-23 21:35:33 +0000 |
| commit | 85cfc31310f0887103d3f139e3ff05ea8ca6e7e8 (patch) | |
| tree | 2ffeb2d6164801ae4b05ef6e515203a7d47abaa2 | |
| parent | e4109707658e0da4a1193953ef88f7ab5ecdb9e6 (diff) | |
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
| -rw-r--r-- | LedgerSMB/Form.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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); |