%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) %>
%def>
<% 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');
}
%init>