From 881b2b06e51e7bfa252f3aa614ba84af3ade6487 Mon Sep 17 00:00:00 2001
From: Jonathan Prykop <jonathan@freeside.biz>
Date: Thu, 29 Sep 2016 15:34:54 -0500
Subject: [PATCH] 72219: High-Priority: Electronic Check Batches, BillBuddy

---
 BillBuddy.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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 .= ' ';
-- 
2.11.0