projects
/
Business-BatchPayment-BillBuddy.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
09a296f
)
72219: High-Priority: Electronic Check Batches, BillBuddy
author
Jonathan Prykop
<jonathan@freeside.biz>
Thu, 29 Sep 2016 20:34:54 +0000
(15:34 -0500)
committer
Jonathan Prykop
<jonathan@freeside.biz>
Thu, 29 Sep 2016 20:34:54 +0000
(15:34 -0500)
BillBuddy.pm
patch
|
blob
|
history
diff --git
a/BillBuddy.pm
b/BillBuddy.pm
index
3b125e7
..
5affa4c
100644
(file)
--- a/
BillBuddy.pm
+++ b/
BillBuddy.pm
@@
-134,7
+134,7
@@
sub format_item {
#18-18 1 blank, filled with space
$line .= ' ';
#19-28 10 amount, numbers only, by cents, zero padded to the left
#18-18 1 blank, filled with space
$line .= ' ';
#19-28 10 amount, numbers only, by cents, zero padded to the left
- $line .= sprintf("%10s",$item->amount * 100);
+ $line .= sprintf("%
0
10s",$item->amount * 100);
#29-30 2 blank, filled with spaces
$line .= ' ';
#31-32 2 account type: "BC" for bank account, "CC" for credit card account
#29-30 2 blank, filled with spaces
$line .= ' ';
#31-32 2 account type: "BC" for bank account, "CC" for credit card account
@@
-165,6
+165,7
@@
sub format_item {
$line .= $cnum;
#67-98 32 bank account name or name on the credit card
my $name = $item->first_name . ' ' . $item->last_name;
$line .= $cnum;
#67-98 32 bank account name or name on the credit card
my $name = $item->first_name . ' ' . $item->last_name;
+ $name =~ s/\'//g; # gateway should be handling this, but it's not
$line .= sprintf("%-32.32s",$name);
#99-99 1 blank
$line .= ' ';
$line .= sprintf("%-32.32s",$name);
#99-99 1 blank
$line .= ' ';