X-Git-Url: http://git.freeside.biz/gitweb/?p=Business-BatchPayment-BillBuddy.git;a=blobdiff_plain;f=BillBuddy.pm;fp=BillBuddy.pm;h=5affa4cd0033ef29c0590b3ca813e57d2a56ed1a;hp=3b125e7e702018014ba95eed2d57fe39d5d42213;hb=881b2b06e51e7bfa252f3aa614ba84af3ade6487;hpb=09a296fafbc7957cf2bd2f92469b893b756525cb diff --git a/BillBuddy.pm b/BillBuddy.pm index 3b125e7..5affa4c 100644 --- 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 - $line .= sprintf("%10s",$item->amount * 100); + $line .= sprintf("%010s",$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 @@ -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; + $name =~ s/\'//g; # gateway should be handling this, but it's not $line .= sprintf("%-32.32s",$name); #99-99 1 blank $line .= ' ';