optional better visibility for invoicing email field, RT12944

[freeside.git] / httemplate / edit / cust_main / contact.html

diff --git a/httemplate/edit/cust_main/contact.html b/httemplate/edit/cust_main/contact.html
index 7adcde7..a53c789 100644 (file)
--- a/httemplate/edit/cust_main/contact.html
+++ b/httemplate/edit/cust_main/contact.html
@@ -18,6 +18,17 @@
 
 </TR>
 
+% if ( $conf->exists('cust-email-high-visibility') && !$pre ) {
+    <TR>
+      <TD ALIGN="right" WIDTH="200">
+        <% $conf->exists('cust_main-require_invoicing_list_email') ? $r : '' %>Email address(es)
+      </TD>
+      <TD bgcolor="#FFFF00">
+        <INPUT TYPE="text" NAME="invoicing_list" VALUE="<% join(', ', grep { $_ !~ /^(POST|FAX)$/ } @invoicing_list ) %>">
+      </TD>
+    </TR>
+% }
+
 <TR>
   <TD ALIGN="right"><% mt('Company') |h %></TD>
   <TD COLSPAN=7>
@@ -134,4 +145,6 @@ my $stateid_state_label = FS::Msgcat::_gettext('stateid_state') =~ /^(stateid_st
 
 my $r = qq!<font color="#ff0000">*</font>&nbsp;!;
 
+my @invoicing_list = $cust_main->invoicing_list;
+
 </%init>