From: ivan <ivan>
Date: Fri, 12 Mar 2004 08:17:22 +0000 (+0000)
Subject: emaildecline-exclude skips any errors that contain the strings now, not just match... 
X-Git-Tag: NET_WHOIS_RAW_0_31~87
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=7dac99feb4d0e8ca4ced4a5af113112679affaf8;ds=sidebyside

emaildecline-exclude skips any errors that contain the strings now, not just match exactly
---

diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index a9fcb2b66..fc744dc5f 100644
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -1888,7 +1888,7 @@ sub realtime_bop {
     if ( !$options{'quiet'} && !$realtime_bop_decline_quiet
          && $conf->exists('emaildecline')
          && grep { $_ ne 'POST' } $self->invoicing_list
-         && ! grep { $_ eq $transaction->error_message }
+         && ! grep { $transaction->error_message =~ /$_/ }
                    $conf->config('emaildecline-exclude')
     ) {
       my @templ = $conf->config('declinetemplate');