From: khoff <khoff>
Date: Mon, 11 Apr 2005 20:13:16 +0000 (+0000)
Subject: Configuration option to override the email address sent to your BOP processor, in... 
X-Git-Tag: SQL_LEDGER_2_4_4~1^2~356
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=ba6db3949242ec66556f193da0779c9082c0d0aa;p=freeside.git

Configuration option to override the email address sent to your BOP processor, in case the processor sends a pesky receipt that you don't want your customers getting.
---

diff --git a/FS/FS/Conf.pm b/FS/FS/Conf.pm
index 4a9762672..fa5d3c1b4 100644
--- a/FS/FS/Conf.pm
+++ b/FS/FS/Conf.pm
@@ -350,6 +350,13 @@ httemplate/docs/config.html
     'type'        => 'text',
   },
 
+  {
+    'key'         => 'business-onlinepayment-email-override',
+    'section'     => 'billing',
+    'description' => 'Email address used instead of customer email address when submitting a BOP transaction.',
+    'type'        => 'text',
+  },
+
   {
     'key'         => 'bsdshellmachines',
     'section'     => 'deprecated',
diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index b6f5a795b..d9f412b79 100644
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -1907,7 +1907,10 @@ sub realtime_bop {
        || ( $conf->exists('emailinvoiceonly') && ! @invoicing_list ) ) {
     push @invoicing_list, $self->all_emails;
   }
-  my $email = $invoicing_list[0];
+
+  my $email = ($conf->exists('business-onlinepayment-email-override'))
+              ? $conf->config('business-onlinepayment-email-override')
+              : $invoicing_list[0];
 
   my $payinfo = exists($options{'payinfo'})
                   ? $options{'payinfo'}