From 50d078d125c7267d17d02d3ea28a34d1a446c99d Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Fri, 9 Nov 2007 18:59:12 +0000
Subject: [PATCH] add business-onlinepayment-email_customer flag

---
 FS/FS/Conf.pm      | 7 +++++++
 FS/FS/cust_main.pm | 4 ++++
 2 files changed, 11 insertions(+)

diff --git a/FS/FS/Conf.pm b/FS/FS/Conf.pm
index 56f60d59e..504c1b985 100644
--- a/FS/FS/Conf.pm
+++ b/FS/FS/Conf.pm
@@ -440,6 +440,13 @@ worry that config_items is freeside-specific and icky.
     'type'        => 'textarea',
   },
 
+  {
+    'key'         => 'business-onlinepayment-email_customer',
+    'section'     => 'billing',
+    'description' => 'Controls the "email_customer" flag used by some Business::OnlinePayment processors to enable customer receipts.',
+    'type'        => 'checkbox',
+  },
+
   {
     'key'         => 'countrydefault',
     'section'     => 'UI',
diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index c95ebf79a..dced11f53 100644
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -2588,6 +2588,10 @@ sub realtime_bop {
   $content{invoice_number} = $options{'invnum'}
     if exists($options{'invnum'}) && length($options{'invnum'});
 
+  $content{email_customer} = 
+    (    $conf->exists('business-onlinepayment-email_customer')
+      || $conf->exists('business-onlinepayment-email-override') );
+      
   my $paydate = '';
   if ( $method eq 'CC' ) { 
 
-- 
2.20.1