merge NG auth, RT#21563

[freeside.git] / FS / FS / pay_batch / nacha.pm

diff --git a/FS/FS/pay_batch/nacha.pm b/FS/FS/pay_batch/nacha.pm
index 17c175d..c069082 100644 (file)
--- a/FS/FS/pay_batch/nacha.pm
+++ b/FS/FS/pay_batch/nacha.pm
@@ -8,7 +8,7 @@ use Date::Format;
 
 $name = 'NACHA';
 
-$DEBUG = 1;
+$DEBUG = 0;
 
 %import_info = (
   #XXX stub finish me
@@ -47,7 +47,7 @@ $DEBUG = 1;
     my $origin = $1;
 
     my $company = $conf->config('company_name', $pay_batch->agentnum);
-    $company = substr($company. (' 'x23), 0, 23);
+    $company = substr(uc($company). (' 'x23), 0, 23);
 
     my $now = time;
 
@@ -168,7 +168,7 @@ $DEBUG = 1;
 
     my $batchnum = substr( ('0'x7). $pay_batch->batchnum, -7);
 
-    warn "building Batch and File Control Records\n" if $DEBUG;
+    warn "building Batch & File Control Records\n" if $DEBUG;
 
     ###
     # Batch Control Record