1 <STYLE type="text/css">
2 th { line-height: 150% }
5 % if ( $new{bill_error} or $new{ship_error} ) {
6 Address standardization error
9 Confirm address standardization
14 % my @prefixes = ('');
16 % @prefixes = ('bill_');
17 % } elsif ( $old{billship} ) {
18 % @prefixes = ('bill_', 'ship_');
20 % for my $pre (@prefixes) {
21 % my $name = $pre eq 'bill_' ? 'billing' : 'service';
22 % if ( $new{$pre.'addr_clean'} ) {
24 <TH>Entered <%$name%> address</TH>
25 <TH>Standardized <%$name%> address</TH>
28 % if ( $old{$pre.'company'} ) {
30 <TD><% $old{$pre.'company'} %></TD>
31 <TD><% $new{$pre.'company'} %></TD>
35 <TD><% $old{$pre.'address1'} %></TD>
36 <TD><% $new{$pre.'address1'} %></TD>
39 <TD><% $old{$pre.'address2'} %></TD>
40 <TD><% $new{$pre.'address2'} %></TD>
43 <TD><% $old{$pre.'city'} %>, <% $old{$pre.'state'} %> <% $old{$pre.'zip'} %></TD>
44 <TD><% $new{$pre.'city'} %>, <% $new{$pre.'state'} %> <% $new{$pre.'zip'} %></TD>
48 % elsif ( $new{$pre.'error'} ) {
50 <TH>Entered <%$name%> address</TH>
52 % if ( $old{$pre.'company'} ) {
54 <TD><% $old{$pre.'company'} %></TD>
58 <TD><% $old{$pre.'address1'} %></TD>
59 <TD ROWSPAN=3><FONT COLOR="#ff0000"><B><% $new{$pre.'error'} %></B></FONT></TD>
62 <TD><% $old{$pre.'address2'} %></TD>
65 <TD><% $old{$pre.'city'} %>, <% $old{$pre.'state'} %> <% $old{$pre.'zip'} %></TD>
70 %# only do this part if address standardization provided a censustract
71 % my $pre = $old{same} ? 'bill_' : 'ship_';
72 % my $censustract = $new{$pre.'censustract'};
73 % my $census_error = $new{$pre.'census_error'};
74 % if ( $censustract ) {
76 <TH>Entered census tract</TH>
77 <TH>Calculated census tract</TH>
80 <TD><% $old{$pre.'censustract'} %></TD>
82 % if ( $census_error ) {
83 <FONT COLOR="#ff0000"><% $census_error %></FONT>
91 % if ( $new{bill_error} or $new{ship_error} ) {
94 <BUTTON TYPE="button" STYLE="width:205px" onclick="confirm_manual_address();">
95 <IMG SRC="<%$p%>images/error.png" ALT=""> Use entered <%$addresses%>
98 <BUTTON TYPE="button" STYLE="width:205px" onclick="submit_abort();">
99 <IMG SRC="<%$p%>images/cross.png" ALT=""> Cancel submission
106 <BUTTON TYPE="button" STYLE="width:205px" onclick="confirm_manual_address()();">
107 <IMG SRC="<%$p%>images/error.png" ALT=""> Use entered <%$addresses%>
110 <BUTTON TYPE="button" STYLE="width:205px" onclick="replace_address();">
111 <IMG SRC="<%$p%>images/tick.png" ALT=""> Use standardized <%$addresses%>
114 <TR ALIGN="center"><TD COLSPAN=2>
115 <BUTTON TYPE="button" STYLE="width:205px" onclick="submit_abort();">
116 <IMG SRC="<%$p%>images/cross.png" ALT=""> Cancel submission
123 # slightly weird interface...
124 my $q = decode_json($cgi->param('q'));
126 my %old = %{ $q->{old} };
127 my %new = %{ $q->{new} };
129 my $addresses = $old{billship} ? 'addresses' : 'address';