projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
2b2793d
)
RT# 83122 Utility to issue credits against taxnums - fix typo
author
Mitch Jackson
<mitch@freeside.biz>
Sun, 5 May 2019 22:46:54 +0000
(18:46 -0400)
committer
Mitch Jackson
<mitch@freeside.biz>
Sun, 5 May 2019 22:46:54 +0000
(18:46 -0400)
FS/bin/freeside-issue-credit-for-taxnums
patch
|
blob
|
history
diff --git
a/FS/bin/freeside-issue-credit-for-taxnums
b/FS/bin/freeside-issue-credit-for-taxnums
index
31de71f
..
8b7a122
100755
(executable)
--- 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 {
exit();
sub apply_cust_credits {
- my @credits =
shift
;
+ my @credits =
@_
;
my $csv_fn = "$csv_dir/cust_credit.csv";
my $csv_fn = "$csv_dir/cust_credit.csv";
@@
-117,12
+117,12
@@
sub apply_cust_credits {
die $error;
}
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->{custnum},
$credit->{invnum},
- $credit->{amount},
- );
+ $credit->{amount};
+ say $msg;
+ $log->info( $msg );
say $csv_fh join ',' => (
map { $_ =~ /\D/ ? qq["$_"] : $_ } (
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]
=item B<--credit-reasonnum> [22]
-The credit num to be attached to issued credits
+The credit
reason
num to be attached to issued credits
=item B<--credit-addlinfo> "[Credits happen for this reason]"
=item B<--credit-addlinfo> "[Credits happen for this reason]"
-Comment field attached to issued creits. Enclose text within quotes.
+Comment field attached to issued cre
d
its. Enclose text within quotes.
=item B<--insert-credits>
=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
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