From 6899505e393120c3aa980680b43daf36552172a1 Mon Sep 17 00:00:00 2001 From: Mitch Jackson Date: Sun, 5 May 2019 18:46:54 -0400 Subject: [PATCH] RT# 83122 Utility to issue credits against taxnums - fix typo --- FS/bin/freeside-issue-credit-for-taxnums | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/FS/bin/freeside-issue-credit-for-taxnums b/FS/bin/freeside-issue-credit-for-taxnums index 31de71fc9..8b7a12252 100755 --- a/FS/bin/freeside-issue-credit-for-taxnums +++ b/FS/bin/freeside-issue-credit-for-taxnums @@ -83,7 +83,7 @@ say "Done - credits written to database"; exit(); sub apply_cust_credits { - my @credits = shift; + my @credits = @_; my $csv_fn = "$csv_dir/cust_credit.csv"; @@ -117,12 +117,12 @@ sub apply_cust_credits { die $error; } - say $log->info( - sprintf 'Issued credit to custnum:%s for invnum:%s for amount %s', + my $msg = sprintf 'Issued credit to custnum:%s for invnum:%s for amount %s', $credit->{custnum}, $credit->{invnum}, - $credit->{amount}, - ); + $credit->{amount}; + say $msg; + $log->info( $msg ); say $csv_fh join ',' => ( map { $_ =~ /\D/ ? qq["$_"] : $_ } ( @@ -407,11 +407,11 @@ A comma separated list, with no spaces, of taxnums to issue credits for =item B<--credit-reasonnum> [22] -The credit num to be attached to issued credits +The credit reasonnum to be attached to issued credits =item B<--credit-addlinfo> "[Credits happen for this reason]" -Comment field attached to issued creits. Enclose text within quotes. +Comment field attached to issued credits. Enclose text within quotes. =item B<--insert-credits> @@ -435,4 +435,4 @@ of customer charges for those taxnums. When directed, utility will issue a credit to the account of each of those customers, and generate a CSV report describing those credits for reporting -=cut \ No newline at end of file +=cut -- 2.11.0