1 <STYLE type="text/css">
2 th { line-height: 150%;
7 vertical-align: middle;
13 Address standardization error
16 Confirm address standardization
20 <FORM ID="confirm_replace_form">
22 % for my $pre (@prefixes) {
23 % my $name = $pre eq 'bill_' ? 'billing' : 'service';
25 % if ( $new{$pre.'error'} ) {
27 <TD ROWSPAN=<% $rows %> CLASS="td_radio">
28 <INPUT TYPE="radio" NAME="<% $pre %>replace" VALUE="" CHECKED="Y">
30 <TH>Entered <%$name%> address
33 <TD CLASS="td_radio"></TD>
36 % if ( $old{$pre.'company'} ) {
37 <TD><% $old{$pre.'company'} %></TD>
41 <TD><% $old{$pre.'address1'} %></TD>
42 <TD ROWSPAN=3><FONT COLOR="#ff0000"><B><% $new{$pre.'error'} %></B></FONT></TD>
45 <TD><% $old{$pre.'address2'} %></TD>
48 <TD><% $old{$pre.'city'} %>, <% $old{$pre.'state'} %> <% $old{$pre.'zip'} %></TD>
50 % } else { # not an error
51 % $rows++ if !$new{$pre.'addr_clean'};
53 <TD ROWSPAN=<% $rows %> CLASS="td_radio">
54 <INPUT TYPE="radio" NAME="<% $pre %>replace" VALUE="">
56 <TH>Entered <%$name%> address</TH>
57 <TH>Standardized <%$name%> address</TH>
58 <TD ROWSPAN=<% $rows %> CLASS="td_radio">
59 <INPUT TYPE="radio" NAME="<% $pre %>replace" VALUE="Y" CHECKED="Y">
62 % if ( !$new{$pre.'addr_clean'} ) {
65 <TH STYLE="font-size:smaller;color:#ff0000">(unverified)</TH>
69 % if ( $old{$pre.'company'} ) {
71 <TD><% $old{$pre.'company'} %></TD>
72 <TD><% $new{$pre.'company'} %></TD>
76 <TD><% $old{$pre.'address1'} %></TD>
77 <TD><% $new{$pre.'address1'} %></TD>
80 <TD><% $old{$pre.'address2'} %></TD>
81 <TD><% $new{$pre.'address2'} %></TD>
84 <TD><% $old{$pre.'city'} %>, <% $old{$pre.'state'} %> <% $old{$pre.'zip'} %></TD>
85 <TD><% $new{$pre.'city'} %>, <% $new{$pre.'state'} %> <% $new{$pre.'zip'} %></TD>
91 %# only do this part if address standardization provided a censustract
92 % my $pre = $old{same} ? 'bill_' : 'ship_';
93 % my $censustract = $new{$pre.'censustract'};
94 % if ( $censustract ) {
96 <TD ROWSPAN=2 CLASS="td_radio">
97 <INPUT TYPE="radio" NAME="census_replace" VALUE="" <% $census_error ? 'CHECKED="Y"' : '' %>>
99 <TH>Entered census tract</TH>
100 <TH>Calculated census tract</TH>
101 <TD ROWSPAN=2 CLASS="td_radio">
102 <INPUT TYPE="radio" NAME="census_replace" VALUE="Y" <% $census_error ? '' : 'CHECKED="Y"' %>>
106 <TD><% $old{$pre.'censustract'} %></TD>
108 % if ( $census_error ) {
109 <FONT COLOR="#ff0000"><% $census_error %></FONT>
120 <BUTTON TYPE="button" STYLE="width:205px" onclick="replace_address();">
121 <IMG SRC="<%$p%>images/<% $is_error ? 'error.png' : 'tick.png' %>"
122 ALT=""> Use selected <%$addresses%>
125 <BUTTON TYPE="button" STYLE="width:205px" onclick="submit_abort();">
126 <IMG SRC="<%$p%>images/cross.png" ALT=""> Cancel submission
134 # slightly weird interface...
135 my $q = decode_json($cgi->param('q'));
137 my %old = %{ $q->{old} };
138 my %new = %{ $q->{new} };
140 my $addresses = $old{billship} ? 'addresses' : 'address';
144 @prefixes = ('bill_');
145 } elsif ( $old{billship} ) {
146 @prefixes = ('bill_', 'ship_');
149 my $census_error = $new{'census_error'};
150 my $is_error = $census_error || grep { $new{$_.'error'} } @prefixes;