blob: bcbdbdaa6acc16d6705e248d04040526fa37e68a (
plain)
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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
|
<DIV ID="fs_small_custview">
Customer #<B><%= $display_custnum %></B>
- <B><FONT COLOR="#<%= $statuscolor %>"><%= $status_label %></FONT></B>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=2 BGCOLOR="<%= $box_bgcolor ||= '#c0c0c0' %>">
<TR>
<TD VALIGN="top">
<%= $has_ship_address
? '<I><FONT SIZE="-1">Billing Address</FONT></I><BR>'
: ''
%>
<%= encode_entities($first) %> <%= encode_entities($last) %><BR>
<%= $company ? encode_entities($company).'<BR>' : '' %>
<%= encode_entities($address1) %><BR>
<%= $address2 ? encode_entities($address2).'<BR>' : '' %>
<%= $city %>, <%= $state %> <%= $zip %><BR>
<%= $country && $country ne ($countrydefault||'US')
? $country.'<BR>'
: ''
%>
<%= if ( $daytime && $night ) {
$OUT .= "<BR>Day Phone $daytime<BR>Night Phone $night";
} elsif ( $daytime || $night ) {
$OUT .= '<BR>'. ($daytime || $night);
}
'';
%>
<%= $fax ? "<BR>Fax $fax" : '' %>
</TD>
<%= if ( $has_ship_address ) {
$OUT .= '<TD> </TD>'.
'<TD VALIGN="top">'.
'<I><FONT SIZE="-1">Service Address</FONT></I><BR>'.
"$ship_first $ship_last<BR>";
$OUT .= "$ship_company<BR>" if $ship_company;
$OUT .= "$ship_address1<BR>";
$OUT .= "$ship_address2<BR>" if $ship_address2;
$OUT .= "$ship_city, $ship_state $ship_zip<BR>";
$OUT .= "$ship_country<BR>"
if $ship_country && $ship_country ne ($countrydefault||'US');
if ( $ship_daytime && $ship_night ) {
$OUT .= "<BR>Day Phone $ship_daytime<BR>Night Phone $ship_night";
} elsif ( $ship_daytime || $ship_night ) {
$OUT .= '<BR'. ($ship_daytime || $ship_night);
}
$OUT .= "<BR>Fax $ship_fax" if $ship_fax;
$OUT .= '</TD>';
}
'';
%>
</TR></TABLE>
<%=
unless ( $access_pkgnum ) {
if ($balance >= 0) {
$OUT .= '<BR>Balance: <B>'. $balance_pretty . '</B><BR>';
} else {
my $credit_balance_pretty = $balance_pretty;
$credit_balance_pretty =~ s/-//;
$OUT .= '<BR>Credit Balance: <B>'. $credit_balance_pretty . '</B><BR>';
}
}
'';
%>
</DIV>
|
