diff options
| author | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-10-28 18:29:12 +0000 |
|---|---|---|
| committer | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-10-28 18:29:12 +0000 |
| commit | 9a96b0e198c66a68d334ed86c2cb7754b1a28fb1 (patch) | |
| tree | 2a1b46816faa8c4a7f7acf8f44e87305f7e13b22 /LedgerSMB | |
| parent | dbf9d3678d6effc3872b958d404d8a4fa1d28eeb (diff) | |
Adjust BP/bp to run
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@361 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB')
| -rwxr-xr-x | LedgerSMB/BP.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/LedgerSMB/BP.pm b/LedgerSMB/BP.pm index 0a084798..d15dc018 100755 --- a/LedgerSMB/BP.pm +++ b/LedgerSMB/BP.pm @@ -75,7 +75,7 @@ sub get_vc { $sth = $dbh->prepare($query); $sth->execute($form->{type}); - ($n) = $sth->fetchrow_array($query); + ($n) = $sth->fetchrow_array; $count += $n; } @@ -97,7 +97,7 @@ sub get_vc { WHERE s.formname = ? AND s.spoolfile IS NOT NULL|; $union = "UNION"; - push @queryags, $form->{type}; + push @queryargs, $form->{type}; } $sth = $dbh->prepare($query); @@ -199,14 +199,14 @@ sub get_spoolfiles { $union SELECT a.id, vc.name, a.$invnumber AS invnumber, a.transdate, a.ordnumber, a.quonumber, $invoice AS invoice, - ? AS module, s.spoolfile + '$item' AS module, s.spoolfile FROM $item a, $form->{vc} vc, status s WHERE s.trans_id = a.id AND s.spoolfile IS NOT NULL AND s.formname = ? AND a.$form->{vc}_id = vc.id|; - push (@queryargs, $item, $form->{type}); + push (@queryargs, $form->{type}); if ($form->{"$form->{vc}_id"}) { $query .= qq| AND a.$form->{vc}_id = $form->{"$form->{vc}_id"}|; } else { |