diff options
| author | Mark Wells <mark@freeside.biz> | 2015-05-28 23:06:10 -0700 |
|---|---|---|
| committer | Mark Wells <mark@freeside.biz> | 2015-05-28 23:06:10 -0700 |
| commit | 0a72c5a56914d96452a823f7419bd3caf392e3b5 (patch) | |
| tree | 669299c4389afd5a5d1cc956fbf9a67a2978cc3b | |
| parent | 0788d4bf43324dd87c224a43983c8066f9cb2cbe (diff) | |
limit length of customer name in RBC batch format; patch from Peter Loeppky, #35102
| -rw-r--r-- | FS/FS/pay_batch/RBC.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/FS/FS/pay_batch/RBC.pm b/FS/FS/pay_batch/RBC.pm index 45e888dc3..1310640e1 100644 --- a/FS/FS/pay_batch/RBC.pm +++ b/FS/FS/pay_batch/RBC.pm @@ -4,6 +4,7 @@ use strict; use vars qw(@ISA %import_info %export_info $name); use Date::Format 'time2str'; use FS::Conf; +use Encode 'encode'; my $conf; my ($client_num, $shortname, $longname, $trans_code, $testmode, $i, $declined, $totaloffset); @@ -174,8 +175,8 @@ $name = 'RBC'; sprintf("%010.0f",$cust_pay_batch->amount*100). ' '. time2str("%Y%j", $pay_batch->download). - sprintf("%-30s", $cust_pay_batch->cust_main->first . ' ' . - $cust_pay_batch->cust_main->last). + sprintf("%-30.30s", encode('utf8', $cust_pay_batch->cust_main->first . ' ' . + $cust_pay_batch->cust_main->last)). 'E'. # English ' '. sprintf("%-15s", $shortname). |