diff options
| author | steve <steve> | 2005-04-01 05:59:54 +0000 |
|---|---|---|
| committer | steve <steve> | 2005-04-01 05:59:54 +0000 |
| commit | 484b993a6e3db0557f4466b2a55741adad44385f (patch) | |
| tree | 17eb670197cedbf7afd5e51f0c76c8053532b57e | |
| parent | edd6c7e5d669b05b16d16e4f804107d8d25bc236 (diff) | |
fix paybatch parsing to support bop::jettis
| -rw-r--r-- | FS/FS/cust_main.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm index 4004d04f4..b6f5a795b 100644 --- a/FS/FS/cust_main.pm +++ b/FS/FS/cust_main.pm @@ -2204,7 +2204,7 @@ sub realtime_refund_bop { $cust_pay = qsearchs('cust_pay', { paynum=>$options{'paynum'} } ) or return "Unknown paynum $options{'paynum'}"; $amount ||= $cust_pay->paid; - $cust_pay->paybatch =~ /^(\w+):(\w*)(:(\w+))?$/ + $cust_pay->paybatch =~ /^(\w+):([\w-]*)(:(\w+))?$/ or return "Can't parse paybatch for paynum $options{'paynum'}: ". $cust_pay->paybatch; ( $pay_processor, $auth, $order_number ) = ( $1, $2, $4 ); |