diff options
| author | Jonathan Prykop <jonathan@freeside.biz> | 2015-02-26 14:16:47 -0600 |
|---|---|---|
| committer | Jonathan Prykop <jonathan@freeside.biz> | 2015-02-28 01:02:37 -0600 |
| commit | 7e8446b68291dcc4ae2b305f048d1966aa27f1fc (patch) | |
| tree | c8c371e7102650b6ede5324116308f6002a07c19 | |
| parent | ca9f1e88e00736efff1deff396d25165e67094cd (diff) | |
RT#33582: RBC return batch processing failure
| -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 4b11fdb89..a9b670dcc 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'; }, ); |