From e92db24ac60d0fdcb8f8d3b383ab727af6de6d44 Mon Sep 17 00:00:00 2001
From: Christopher Burger <burgerc@freeside.biz>
Date: Wed, 30 Jan 2019 12:53:39 -0500
Subject: [PATCH] RT# 82094 - set email customers link to only email invoice
 emails when displaying only invoice emails

---
 httemplate/search/cust_main.html | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/httemplate/search/cust_main.html b/httemplate/search/cust_main.html
index 1cc44d68a..f6c6c62d8 100755
--- a/httemplate/search/cust_main.html
+++ b/httemplate/search/cust_main.html
@@ -140,6 +140,9 @@ my $menubar = [];
 
 if ( $FS::CurrentUser::CurrentUser->access_right('Bulk send customer notices') ) {
 
+  # set so invoice emails are default if showing that field.
+  $search_hash{'classnums'} = 'invoice' if $cgi->param('cust_fields') =~ /Invoicing email/;
+
   # URI::query_from does not support hashref
   #   results in: ...&contacts=HASH(0x55e16cb81da8)&...
   my %query_hash = %search_hash;
-- 
2.11.0