[freeside-commits] branch master updated. 6899505e393120c3aa980680b43daf36552172a1

[Mitch Jackson]

The branch, master has been updated
       via  6899505e393120c3aa980680b43daf36552172a1 (commit)
      from  2b2793d07cd9fc4c219edebbf78026c567461fe4 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 6899505e393120c3aa980680b43daf36552172a1
Author: Mitch Jackson <mitch at freeside.biz>
Date:   Sun May 5 18:46:54 2019 -0400

    RT# 83122 Utility to issue credits against taxnums - fix typo

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

-----------------------------------------------------------------------

Summary of changes:
 FS/bin/freeside-issue-credit-for-taxnums | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)