diff options
author | Jonathan Prykop <jonathan@freeside.biz> | 2015-02-26 14:16:47 -0600 |
---|---|---|
committer | Jonathan Prykop <jonathan@freeside.biz> | 2015-02-26 14:16:47 -0600 |
commit | 1fc0d74aab287141c02c74978b0e95b44ff8e319 (patch) | |
tree | d0e4bfd2cd7c8fb48fc3643e36960495173bc133 /FS/FS/pay_batch | |
parent | d2df919ea5209bf075bec446be9cacf970dd0f37 (diff) |
RT#33582: RBC return batch processing failure
Diffstat (limited to 'FS/FS/pay_batch')
-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 4b11fdb..a9b670d 100644 --- a/FS/FS/pay_batch/RBC.pm +++ b/FS/FS/pay_batch/RBC.pm @@ -14,7 +14,7 @@ $name = 'RBC'; %import_info = ( 'filetype' => 'fixed', 'formatre' => - '^(.).{18}(.{4}).{3}(.).{11}(.{19}).{6}(.{30}).{17}(.{9})(.{18}).{6}(.{14}).{23}(.).{9}\r?$', + '^([0134]).{18}(.{4}).{3}(.).{11}(.{19}).{6}(.{30}).{17}(.{9})(.{18}).{6}(.{14}).{23}(.).{9}\r?$', 'fields' => [ qw( recordtype batchnum @@ -61,7 +61,8 @@ $name = 'RBC'; }, 'skip_condition' => sub { my $hash = shift; - $hash->{'subtype'} ne '0'; + $hash->{'recordtype'} eq '3' || + $hash->{'subtype'} ne '0'; }, ); |