'description' => 'Show a link to the payment history report in the Reports menu. DO NOT ENABLE THIS.',
'type' => 'checkbox',
},
+
+ {
+ 'key' => 'cust-email-high-visibility',
+ 'section' => 'UI',
+ 'description' => 'Move the invoicing e-mail address field to the top of the billing address section and highlight it.',
+ 'type' => 'checkbox',
+ },
{ key => "apacheroot", section => "deprecated", description => "<b>DEPRECATED</b>", type => "text" },
{ key => "apachemachine", section => "deprecated", description => "<b>DEPRECATED</b>", type => "text" },
% }
+% unless ( $conf->exists('cust-email-high-visibility')) {
<TR>
<TD ALIGN="right" WIDTH="200">
<% $conf->exists('cust_main-require_invoicing_list_email') ? $r : '' %>Email address(es)
</TD>
<TD WIDTH="408"><INPUT TYPE="text" NAME="invoicing_list" VALUE="<% join(', ', grep { $_ !~ /^(POST|FAX)$/ } @invoicing_list ) %>"></TD>
</TR>
+% }
<TR>
<TD ALIGN="right" WIDTH="200">Invoice terms </TD>
</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">Company</TD>
<TD COLSPAN=7>
my $r = qq!<font color="#ff0000">*</font> !;
+my @invoicing_list = $cust_main->invoicing_list;
+
</%init>
<% ( grep { $_ eq 'FAX' } @invoicing_list ) ? 'yes' : 'no' %>
</TD>
</TR>
+% unless ( $conf->exists('cust-email-high-visibility')) {
<TR>
<TD ALIGN="right">Email invoices</TD>
<TD BGCOLOR="#ffffff">
<% join(', ', grep { $_ !~ /^(POST|FAX)$/ } @invoicing_list ) || 'no' %>
</TD>
</TR>
+% }
<TR>
<TD ALIGN="right">Invoice terms</TD>
<TD BGCOLOR="#ffffff">
<TD BGCOLOR="#ffffff"><% $cust_main->masked('ss') || ' ' %></TD>
% }
</TR>
+% if ( $conf->exists('cust-email-high-visibility') && $which eq '') {
+<TR>
+ <TD ALIGN="right"><% mt('Email invoices') |h %></TD>
+ <TD BGCOLOR="#ffff00">
+ <% join(', ', grep { $_ !~ /^(POST|FAX)$/ } @invoicing_list ) || $no %>
+ </TD>
+</TR>
+% }
<TR>
<TD ALIGN="right">Company</TD>
<TD COLSPAN=7 BGCOLOR="#ffffff"><% $cust_main->get("${pre}company") |h %></TD>
my( $cust_main ) = @_;
my $conf = new FS::Conf;
+my @invoicing_list = $cust_main->invoicing_list;
+my $no = emt('no');
</%init>