+%
+% my $value = '';
+% if ( $field =~ /^phonetypenum(\d+)$/ ) {
+% my $contact_phone = qsearchs('contact_phone', {
+% 'contactnum' => $curr_value,
+% 'phonetypenum' => $1,
+% });
+% if ( $contact_phone ) {
+% $value = $contact_phone->phonenum_pretty;
+% $value .= 'x'.$contact_phone->extension
+% if $contact_phone->extension;
+% $value = '+'. $contact_phone->countrycode. " $value"
+% if $contact_phone->countrycode
+% && $contact_phone->countrycode ne '1';
+% }
+% } elsif ( $field eq 'emailaddress' ) {
+% $value = join(', ', map $_->emailaddress, $contact->contact_email);
+% } elsif ( $field eq 'selfservice_access'
+% or $field eq 'comment'
+% or $field eq 'invoice_dest' ) {
+% $value = $X_contact->get($field);
+% } else {
+% $value = $contact->get($field);
+% }
+
+ <TD>
+% if ( $field eq 'selfservice_access' ) {
+ <SELECT NAME = "<%$name%>_<%$field%>"
+ ID = "<%$id%>_<%$field%>"
+ >
+ <OPTION VALUE="">Disabled
+% if ( $value || $self_base_url ) {
+ <OPTION VALUE="Y" <% $value eq 'Y' ? 'SELECTED' : '' %>>Enabled
+% if ( $value eq 'Y' && $self_base_url ) {
+ <OPTION VALUE="R">Re-email
+% }
+% }
+ </SELECT>
+% } elsif ( $field eq 'invoice_dest' ) {
+% my $curr_value = $cgi->param($name . '_' . $field);
+% $curr_value = $value if !defined($curr_value);
+ <& select.html,
+ field => $name . '_' . $field,
+ curr_value => $curr_value,
+ options => [ '', 'Y' ],
+ option_labels => { '' => 'no', 'Y' => 'yes' },
+ style => 'width: 100%',
+ &>
+% } else {
+ <INPUT TYPE = "text"
+ NAME = "<%$name%>_<%$field%>"
+ ID = "<%$id%>_<%$field%>"
+ SIZE = "<% $size{$field} || 14 %>"
+ VALUE = "<% scalar($cgi->param($name . '_' . $field))
+ || $value |h %>"
+ <% $onchange %>
+ >
+% }
+ <BR>
+ <FONT SIZE="-1"><% $label{$field} %></FONT>
+ </TD>
+% }
+% my $pwd_change_label = 'change';
+% $pwd_change_label = 'setup' unless $contact->_password;
+% my $action = $fsurl . "edit/cust_main-contacts-password.html?custnum=" . $opt{'custnum'} . "&contactnum=" . $curr_value . "&label=" . $pwd_change_label . "&popup=1";
+% if ($curr_value) {