From 7dac99feb4d0e8ca4ced4a5af113112679affaf8 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Fri, 12 Mar 2004 08:17:22 +0000
Subject: [PATCH] emaildecline-exclude skips any errors that contain the
 strings now, not just match exactly

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