diff options
| author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-08-12 16:39:00 +0000 |
|---|---|---|
| committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-08-12 16:39:00 +0000 |
| commit | 0a21178170ff1917204172a7cc1c3f7e73b8f379 (patch) | |
| tree | 116966af6c93112c16cac3b8924c381da8e78647 /scripts | |
| parent | bca5826c5485e2c1f3d8cfdf36f247826ea4afed (diff) | |
Undoing svn commit rev 2250
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2251 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/payment.pl | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/scripts/payment.pl b/scripts/payment.pl index 6dfbed05..295ad60e 100644 --- a/scripts/payment.pl +++ b/scripts/payment.pl @@ -307,6 +307,7 @@ sub print { } 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"}; for (qw(invnumber invdate)){ |