blob: 3603b95d9d5513dcd0336fd789015d87b1bfc065 (
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
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
|
<STYLE type="text/css">
th { line-height: 150% }
</STYLE>
<CENTER><BR><B>
% if ( $new{error} or $new{ship_error} ) {
Address standardization error
% }
% else {
Confirm address standardization
% }
</B><BR><BR>
<TABLE WIDTH="100%">
% for my $pre ('', 'ship_') {
% next if !$pre and $old{onlyship};
% my $name = $pre eq 'ship_' ? 'service' : 'billing';
% if ( $new{$pre.'addr_clean'} ) {
<TR>
<TH>Entered <%$name%> address</TH>
<TH>Standardized <%$name%> address</TH>
</TR>
<TR>
% if ( $old{$pre.'company'} ) {
<TR>
<TD><% $old{$pre.'company'} %></TD>
<TD><% $new{$pre.'company'} %></TD>
</TR>
% }
<TR>
<TD><% $old{$pre.'address1'} %></TD>
<TD><% $new{$pre.'address1'} %></TD>
</TR>
<TR>
<TD><% $old{$pre.'address2'} %></TD>
<TD><% $new{$pre.'address2'} %></TD>
</TR>
<TR>
<TD><% $old{$pre.'city'} %>, <% $old{$pre.'state'} %> <% $old{$pre.'zip'} %></TD>
<TD><% $new{$pre.'city'} %>, <% $new{$pre.'state'} %> <% $new{$pre.'zip'} %></TD>
</TR>
% } # if addr_clean
% elsif ( $new{$pre.'error'} ) {
<TR>
<TH>Entered <%$name%> address</TH>
</TR>
% if ( $old{$pre.'company'} ) {
<TR>
<TD><% $old{$pre.'company'} %></TD>
</TR>
% }
<TR>
<TD><% $old{$pre.'address1'} %></TD>
<TD ROWSPAN=3><FONT COLOR="#ff0000"><B><% $new{$pre.'error'} %></B></FONT></TD>
</TR>
<TR>
<TD><% $old{$pre.'address2'} %></TD>
</TR>
<TR>
<TD><% $old{$pre.'city'} %>, <% $old{$pre.'state'} %> <% $old{$pre.'zip'} %></TD>
</TR>
% } #if error
% } # for $pre
%# only do this part if address standardization provided a censustract
% if ( $new{'ship_censustract'} ) {
<TR>
<TH>Entered census tract</TH>
<TH>Calculated census tract</TH>
</TR>
<TR>
<TD><% $old{'ship_censustract'} %></TD>
<TD>
% if ( $new{'ship_census_error'} ) {
<FONT COLOR="#ff0000"><% $new{'ship_census_error'} %></FONT>
% } else {
<% $new{'ship_censustract'} %>
% }
</TD>
</TR>
% } #if censustract
% if ( $new{error} or $new{ship_error} ) {
<TR>
<TD ALIGN="center">
<BUTTON TYPE="button" STYLE="width:205px" onclick="confirm_manual_address();">
<IMG SRC="<%$p%>images/error.png" ALT=""> Use entered <%$addresses%>
</BUTTON></TD>
<TD ALIGN="center">
<BUTTON TYPE="button" STYLE="width:205px" onclick="submit_abort();">
<IMG SRC="<%$p%>images/cross.png" ALT=""> Cancel submission
</BUTTON></TD>
</TR>
% }
% else {
<TR>
<TD ALIGN="center">
<BUTTON TYPE="button" STYLE="width:205px" onclick="confirm_manual_address()();">
<IMG SRC="<%$p%>images/error.png" ALT=""> Use entered <%$addresses%>
</BUTTON></TD>
<TD ALIGN="center">
<BUTTON TYPE="button" STYLE="width:205px" onclick="replace_address();">
<IMG SRC="<%$p%>images/tick.png" ALT=""> Use standardized <%$addresses%>
</BUTTON></TD>
</TR>
<TR ALIGN="center"><TD COLSPAN=2>
<BUTTON TYPE="button" STYLE="width:205px" onclick="submit_abort();">
<IMG SRC="<%$p%>images/cross.png" ALT=""> Cancel submission
</BUTTON>
</TD></TR>
</TABLE>
% } # !error
<%init>
# slightly weird interface...
my $q = decode_json($cgi->param('q'));
#warn Dumper($q);
my %old = %{ $q->{old} };
my %new = %{ $q->{new} };
my $addresses = $old{onlyship} ? 'address' : 'addresses';
</%init>
|
