From cd4196b482d216fe8a0e132d2e156134a3b56407 Mon Sep 17 00:00:00 2001 From: Ivan Kohler Date: Thu, 18 Apr 2013 22:49:14 -0700 Subject: [PATCH] uppercase company name in NACHA export format, RT#21597 --- FS/FS/pay_batch/nacha.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/FS/FS/pay_batch/nacha.pm b/FS/FS/pay_batch/nacha.pm index d0758f4b6..c069082c7 100644 --- 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; -- 2.11.0