row => sub {
my ($cust_pay_batch, $pay_batch) = @_;
my ($account, $aba) = split('@', $cust_pay_batch->payinfo);
+ if ( $aba =~ /^(\d+)\.(\d+)$/ ) { #branch.route
+ $aba = $2.$1; #routebranch
+ }
$i++;
# The 1464 byte format supports up to 5 payments per line,
# but we're only going to send 1.
},
);
+sub _upgrade_gateway {
+ my $conf = FS::Conf->new;
+ my @batchconfig = $conf->config('batchconfig-td_eft1464');
+ my %options;
+ @options{ qw(originator datacentre short_name long_name return_branch
+ return_account cpa_code) } = @batchconfig;
+ ( 'TD_EFT', %options );
+}
+
1;