1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
<%def .namepart>
% my ($field, $value, $label, $extra) = @_;
<DIV STYLE="display: inline-block">
<INPUT TYPE="text" NAME="<% $field %>" VALUE="<% $value |h %>" <%$extra%>>
<BR><FONT SIZE=-1><% mt($label) %></FONT>
</DIV>
</%def>
<TR>
<TD CLASS="required label"><% mt('Contact name') |h %></TD>
<TD COLSPAN=6 STYLE="vertical-align:top">
<& .namepart, 'last', $cust_main->last, 'Last', ',' &>
<& .namepart, 'first', $cust_main->first, 'First' &>
% if ( $conf->exists('show_ss') ) {
<& .namepart, 'ss', $ss, 'SS#', "SIZE=11" &>
% } else {
<INPUT TYPE="hidden" NAME="ss" VALUE="<% $ss %>">
% }
</TD>
</TR>
% if ( $conf->exists('cust_main-enable_spouse') ) {
<TR ID="spouse_row">
<TD CLASS="label"><% mt('Spouse\'s name') |h %></TD>
<TD COLSPAN=6>
<& .namepart, 'spouse_last', $cust_main->spouse_last, 'Last', ',' &>
<& .namepart, 'spouse_first', $cust_main->spouse_first, 'First' &>
</TD>
</TR>
% }
% if ( $conf->exists('cust-email-high-visibility') ) {
<TR>
<TD ALIGN="right" CLASS="
<% $conf->exists('cust_main-require_invoicing_list_email', $agentnum)
? 'required label'
: 'label' %>">Email address(es)
</TD>
<TD BGCOLOR="#FFFF00">
<INPUT TYPE="text" NAME="invoicing_list"
VALUE=<% $cust_main->invoicing_list_emailonly_scalar %>>
</TD>
</TR>
% }
<%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') or $conf->exists('unmask_ss') ) {
$ss = $cust_main->ss;
} else {
$ss = $cust_main->masked('ss');
}
</%init>
|
