<%def .namepart> % my ($field, $value, $label, $extra, $unmask_field) = @_;
> % if ( % $value % && ref $unmask_field % && $FS::CurrentUser::CurrentUser->access_right( $unmask_field->{access_right} ) % ) { <& /elements/link-replace_element_text.html, { target_id => $unmask_field->{target_id}, replace_text => $unmask_field->{replace_text}, } &> % }
<% emt($label) %>
<% mt('Contact name') |h %> <& .namepart, 'last', $cust_main->last, 'Last', ',' &> <& .namepart, 'first', $cust_main->first, 'First' &> % if ( $conf->exists('show_ss') ) {   <& .namepart, 'ss', $ss, 'SS#', "SIZE=11 ID='ss'", { target_id => 'ss', replace_text => $cust_main->ss, access_right => 'Unmask customer SSN', } &> % } else { % } % if ( $conf->exists('cust_main-enable_spouse') ) {
<% mt('Spouse\'s name') |h %>
<& .namepart, 'spouse_last', $cust_main->spouse_last, 'Last', ',' &> <& .namepart, 'spouse_first', $cust_main->spouse_first, 'First' &> % } Email address(es) <%init> my $cust_main = shift; my $agentnum = $cust_main->agentnum if $cust_main->custnum; my $conf = FS::Conf->new; my $ss; if ( $cgi->param('error') ) { $ss = $cust_main->ss; } else { $ss = $cust_main->masked('ss'); }