From: steve <steve>
Date: Fri, 1 Apr 2005 05:59:54 +0000 (+0000)
Subject: fix paybatch parsing to support bop::jettis
X-Git-Tag: BEFORE_FINAL_MASONIZE~609
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=484b993a6e3db0557f4466b2a55741adad44385f

fix paybatch parsing to support bop::jettis
---

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 );