-% my @prefixes = ('');
-% if ( $old{same} ) {
-% @prefixes = ('bill_');
-% } elsif ( $old{billship} ) {
-% @prefixes = ('bill_', 'ship_');
-% }
% for my $pre (@prefixes) {
% my $name = $pre eq 'bill_' ? 'billing' : 'service';
+% my $rows = 5;
% if ( $new{$pre.'error'} ) {
- Entered <%$name%> address |
+ CLASS="td_radio">
+
+ |
+ Entered <%$name%> address
+ |
+ |
+ |
-% if ( $old{$pre.'company'} ) {
- <% $old{$pre.'company'} %> |
-
+% if ( $old{$pre.'company'} ) {
+ <% $old{$pre.'company'} |h %> |
% }
+
- <% $old{$pre.'address1'} %> |
+ <% $old{$pre.'address1'} |h %> |
<% $new{$pre.'error'} %> |
- <% $old{$pre.'address2'} %> |
+ <% $old{$pre.'address2'} |h %> |
- <% $old{$pre.'city'} %>, <% $old{$pre.'state'} %> <% $old{$pre.'zip'} %> |
+ <% $old{$pre.'city'} |h %>, <% $old{$pre.'state'} |h %> <% $old{$pre.'zip'} |h %> |
% } else { # not an error
+% $rows++ if !$new{$pre.'addr_clean'};
+ CLASS="td_radio">
+
+ |
Entered <%$name%> address |
Standardized <%$name%> address |
+ CLASS="td_radio">
+
+ |
% if ( !$new{$pre.'addr_clean'} ) {
@@ -52,21 +68,21 @@ Confirm address standardization
% if ( $old{$pre.'company'} ) {
- <% $old{$pre.'company'} %> |
- <% $new{$pre.'company'} %> |
+ <% $old{$pre.'company'} |h %> |
+ <% $new{$pre.'company'} |h %> |
% }
- <% $old{$pre.'address1'} %> |
- <% $new{$pre.'address1'} %> |
+ <% $old{$pre.'address1'} |h %> |
+ <% $new{$pre.'address1'} |h %> |
- <% $old{$pre.'address2'} %> |
- <% $new{$pre.'address2'} %> |
+ <% $old{$pre.'address2'} |h %> |
+ <% $new{$pre.'address2'} |h %> |
- <% $old{$pre.'city'} %>, <% $old{$pre.'state'} %> <% $old{$pre.'zip'} %> |
- <% $new{$pre.'city'} %>, <% $new{$pre.'state'} %> <% $new{$pre.'zip'} %> |
+ <% $old{$pre.'city'} |h %>, <% $old{$pre.'state'} |h %> <% $old{$pre.'zip'} |h %> |
+ <% $new{$pre.'city'} |h %>, <% $new{$pre.'state'} |h %> <% $new{$pre.'zip'} |h %> |
% } # if error
@@ -75,11 +91,16 @@ Confirm address standardization
%# only do this part if address standardization provided a censustract
% my $pre = $old{same} ? 'bill_' : 'ship_';
% my $censustract = $new{$pre.'censustract'};
-% my $census_error = $new{$pre.'census_error'};
% if ( $censustract ) {
+
+ >
+ |
Entered census tract |
Calculated census tract |
+
+ >
+ |
<% $old{$pre.'censustract'} %> |
@@ -93,35 +114,21 @@ Confirm address standardization
% } #if censustract
-% if ( grep {$new{$_.'error'}} @prefixes ) {
+ |
- |
Cancel submission
|
+ |
-% } else {
-
-
-
- Use entered <%$addresses%>
- |
-
-
- Use standardized <%$addresses%>
- |
-
-
-
- Cancel submission
-
- |
-% } # !error
+