uppercase company name in NACHA export format, RT#21597

diff --git a/FS/FS/pay_batch/nacha.pm b/FS/FS/pay_batch/nacha.pm
index d0758f4..c069082 100644 (file)
--- a/FS/FS/pay_batch/nacha.pm
+++ b/FS/FS/pay_batch/nacha.pm
@@ -47,7 +47,7 @@ $DEBUG = 0;
     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;