X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2Fbin%2Ffreeside-issue-credit-for-taxnums;h=8b7a12252013bd0b452fce533987ebf8b640ab09;hp=31de71fc91232417e0337aedd3663a494690f47a;hb=6899505e393120c3aa980680b43daf36552172a1;hpb=2b2793d07cd9fc4c219edebbf78026c567461fe4

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