From: ivan <ivan>
Date: Thu, 2 Oct 2003 14:20:29 +0000 (+0000)
Subject: add emaildecline-exclude config option
X-Git-Tag: freeside_1_5_0pre4^2~240
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=1e9ae4ab4387c8d646476df989e2e92c15ce468d;p=freeside.git

add emaildecline-exclude config option
---

diff --git a/FS/FS/Conf.pm b/FS/FS/Conf.pm
index 400de69d6..51feb3847 100644
--- a/FS/FS/Conf.pm
+++ b/FS/FS/Conf.pm
@@ -957,6 +957,13 @@ httemplate/docs/config.html
     'type'        => 'checkbox',
   },
 
+  {
+    'key'         => 'emaildecline-exclude',
+    'section'     => 'billing',
+    'description' => 'List of error messages that should not trigger email decline notices, one per line.',
+    'type'        => 'textarea',
+  },
+
   {
     'key'         => 'cancelmessage',
     'section'     => 'billing',
diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index de22ab5c5..2ee8a42f0 100644
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -1774,6 +1774,8 @@ sub realtime_bop {
     if ( !$options{'quiet'} && !$realtime_bop_decline_quiet
          && $conf->exists('emaildecline')
          && grep { $_ ne 'POST' } $self->invoicing_list
+         && ! grep { $_ eq $transaction->error_message }
+                   $conf->config('emaildecline-exclude')
     ) {
       my @templ = $conf->config('declinetemplate');
       my $template = new Text::Template (