diff options
| -rw-r--r-- | scripts/payment.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/scripts/payment.pl b/scripts/payment.pl index 7da4fc2c..e9aa8482 100644 --- a/scripts/payment.pl +++ b/scripts/payment.pl @@ -302,7 +302,7 @@ sub print { $inv_count = $LedgerSMB::Sysconfig::check_max_invoices; } - for my $inv (1 .. $payment->{"invoice_count_$id"}){ + for my $inv (1 .. $inv_count){ print STDERR "Invoice $inv of " .$payment->{"invoice_count_$id"} . "\n"; my $invhash = {}; my $inv_id = $payment->{"invoice_${id}_$inv"}; |