2 % my ($field, $value, $label, $extra) = @_;
3 <DIV STYLE="display: inline-block">
4 <INPUT TYPE="text" NAME="<% $field %>" VALUE="<% $value |h %>" <%$extra%>>
5 <BR><FONT SIZE=-1><% mt($label) %></FONT>
10 <TD CLASS="required label"><% mt('Contact name') |h %></TD>
11 <TD COLSPAN=6 STYLE="vertical-align:top">
12 <& .namepart, 'last', $cust_main->last, 'Last', ',' &>
13 <& .namepart, 'first', $cust_main->first, 'First' &>
14 % if ( $conf->exists('show_ss') ) {
16 <& .namepart, 'ss', $ss, 'SS#', "SIZE=11" &>
18 <INPUT TYPE="hidden" NAME="ss" VALUE="<% $ss %>">
22 % if ( $conf->exists('cust_main-enable_spouse') ) {
24 <TD CLASS="label"><% mt('Spouse\'s name') |h %></TD>
26 <& .namepart, 'spouse_last', $cust_main->spouse_last, 'Last', ',' &>
27 <& .namepart, 'spouse_first', $cust_main->spouse_first, 'First' &>
32 % if ( $conf->exists('cust-email-high-visibility') ) {
34 <TD ALIGN="right" CLASS="
35 <% $conf->exists('cust_main-require_invoicing_list_email', $agentnum)
37 : 'label' %>">Email address(es)
39 <TD BGCOLOR="#FFFF00">
40 <SPAN STYLE="width: 200px">
41 <INPUT TYPE="text" NAME="invoicing_list"
42 VALUE="<% $cust_main->invoicing_list_emailonly_scalar %>">
46 <INPUT TYPE="checkbox" NAME="message_noemail" VALUE="Y" <%
47 ( $cust_main->message_noemail eq 'Y' )
50 %>> <% emt('Do not send notices') %>
56 my $cust_main = shift;
57 my $agentnum = $cust_main->agentnum if $cust_main->custnum;
58 my $conf = FS::Conf->new;
61 if ( $cgi->param('error') or $conf->exists('unmask_ss') ) {
64 $ss = $cust_main->masked('ss');