From 7039c6aa58254112e3d431766fda85b9f5268c94 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Fri, 2 Mar 2007 23:48:22 +0000
Subject: [PATCH] eProcessingNetwork returning an authorization like "AUTH/TKT
 123456"... will this make refunds work?

---
 FS/FS/cust_main.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index 08b8c3749..7fed174de 100644
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -2898,7 +2898,7 @@ sub realtime_refund_bop {
       or return "Unknown paynum $options{'paynum'}";
     $amount ||= $cust_pay->paid;
 
-    $cust_pay->paybatch =~ /^((\d+)\-)?(\w+):\s*([\w\-]*)(:([\w\-]+))?$/
+    $cust_pay->paybatch =~ /^((\d+)\-)?(\w+):\s*([\w\-\/ ]*)(:([\w\-]+))?$/
       or return "Can't parse paybatch for paynum $options{'paynum'}: ".
                 $cust_pay->paybatch;
     my $gatewaynum = '';
-- 
2.20.1