diff options
author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-07-21 22:57:42 +0000 |
---|---|---|
committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-07-21 22:57:42 +0000 |
commit | 12a0239ccda7e2bd68cae034e916c6a664c3c430 (patch) | |
tree | c8535047ee5f7ef52dc16b93df957caed5dad66c /scripts | |
parent | a20d2b30dc18da7146d2fd877b50ca063fc54868 (diff) |
Adding max numbers of invoices to check template, take 2
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2218 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'scripts')
-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"}; |