Ticket #31674 Fix removal of leading 0's

diff --git a/FS/FS/pay_batch/RBC.pm b/FS/FS/pay_batch/RBC.pm
index 7536266..4b11fdb 100644 (file)
--- a/FS/FS/pay_batch/RBC.pm
+++ b/FS/FS/pay_batch/RBC.pm
@@ -110,9 +110,9 @@ $name = 'RBC';
     ' '.
     sprintf("%-19s", $cust_pay_batch->paybatchnum).
     '00'.
-    sprintf("%04u", $bankno).
-    sprintf("%05u", $branch).
-    sprintf("%-18u", $account).
+    sprintf("%04s", $bankno).
+    sprintf("%05s", $branch).
+    sprintf("%-18s", $account).
     ' '.
     sprintf("%010.0f",$cust_pay_batch->amount*100).
     '      '.