httemplate/misc/confirm-address_standardize.html

   1 <STYLE type="text/css">
   2 th { line-height: 150%;
   3   width: 45%;
   4 }
   5 .td_radio {
   6   width: 5%;
   7   vertical-align: middle;
   8   text-align: center;
   9 }
  10 </STYLE>
  11 <CENTER><BR><B>
  12 % if ( $is_error ) {
  13 Address standardization error
  14 % }
  15 % else {
  16 Confirm address standardization
  17 % }
  18
  19 </B><BR><BR>
  20 <FORM ID="confirm_replace_form">
  21 <TABLE WIDTH="100%">
  22 % for my $pre (@prefixes) {
  23 %   my $name = $pre eq 'bill_' ? 'billing' : 'service';
  24 %   my $rows = 5;
  25 %   if ( $new{$pre.'error'} ) {
  26   <TR>
  27     <TD ROWSPAN=<% $rows %> CLASS="td_radio">
  28         <INPUT TYPE="radio" NAME="<% $pre %>replace" VALUE="" CHECKED="Y">
  29     </TD>
  30     <TH>Entered <%$name%> address
  31     </TH>
  32     <TH></TH>
  33     <TD CLASS="td_radio"></TD>
  34   </TR>
  35   <TR>
  36 %     if ( $old{$pre.'company'} ) {
  37     <TD><% $old{$pre.'company'} %></TD>
  38 %     }
  39   </TR>
  40   <TR>
  41     <TD><% $old{$pre.'address1'} %></TD>
  42     <TD ROWSPAN=3><FONT COLOR="#ff0000"><B><% $new{$pre.'error'} %></B></FONT></TD>
  43   </TR>
  44   <TR>
  45     <TD><% $old{$pre.'address2'} %></TD>
  46   </TR>
  47   <TR>
  48     <TD><% $old{$pre.'city'} %>, <% $old{$pre.'state'} %>  <% $old{$pre.'zip'} %></TD>
  49   </TR>
  50 %   } else { # not an error
  51 %     $rows++ if !$new{$pre.'addr_clean'};
  52   <TR>
  53     <TD ROWSPAN=<% $rows %> CLASS="td_radio">
  54       <INPUT TYPE="radio" NAME="<% $pre %>replace" VALUE="">
  55     </TD>
  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">
  60     </TD>
  61   </TR>
  62 %   if ( !$new{$pre.'addr_clean'} ) {
  63   <TR>
  64     <TD></TD>
  65     <TH STYLE="font-size:smaller;color:#ff0000">(unverified)</TH>
  66   </TR>
  67 %   }
  68   <TR>
  69 %     if ( $old{$pre.'company'} ) {
  70   <TR>
  71     <TD><% $old{$pre.'company'} %></TD>
  72     <TD><% $new{$pre.'company'} %></TD>
  73   </TR>
  74 %     }
  75   <TR>
  76     <TD><% $old{$pre.'address1'} %></TD>
  77     <TD><% $new{$pre.'address1'} %></TD>
  78   </TR>
  79   <TR>
  80     <TD><% $old{$pre.'address2'} %></TD>
  81     <TD><% $new{$pre.'address2'} %></TD>
  82   </TR>
  83   <TR>
  84     <TD><% $old{$pre.'city'} %>, <% $old{$pre.'state'} %>  <% $old{$pre.'zip'} %></TD>
  85     <TD><% $new{$pre.'city'} %>, <% $new{$pre.'state'} %>  <% $new{$pre.'zip'} %></TD>
  86   </TR>
  87
  88 %   } # if error
  89 % } # for $pre
  90
  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 ) {
  95   <TR>
  96     <TD ROWSPAN=2 CLASS="td_radio">
  97       <INPUT TYPE="radio" NAME="census_replace" VALUE="" <% $census_error ? 'CHECKED="Y"' : '' %>>
  98     </TD>
  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"' %>>
 103     </TD>
 104   </TR>
 105   <TR>
 106     <TD><% $old{$pre.'censustract'} %></TD>
 107     <TD>
 108 %     if ( $census_error ) {
 109       <FONT COLOR="#ff0000"><% $census_error %></FONT>
 110 %     } else {
 111       <% $censustract %>
 112 %     }
 113     </TD>
 114   </TR>
 115 % } #if censustract
 116
 117   <TR>
 118     <TD> </TD>
 119     <TD ALIGN="center">
 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%>
 123     </BUTTON></TD>
 124     <TD ALIGN="center">
 125     <BUTTON TYPE="button" STYLE="width:205px" onclick="submit_abort();">
 126       <IMG SRC="<%$p%>images/cross.png" ALT=""> Cancel submission
 127     </BUTTON></TD>
 128     <TD> </TD>
 129   </TR>
 130 </TABLE>
 131 </FORM>
 132 <%init>
 133
 134 # slightly weird interface...
 135 my $q = decode_json($cgi->param('q'));
 136 #warn Dumper($q);
 137 my %old = %{ $q->{old} };
 138 my %new = %{ $q->{new} };
 139
 140 my $addresses = $old{billship} ? 'addresses' : 'address';
 141
 142 my @prefixes = ('');
 143 if ( $old{same} ) {
 144   @prefixes = ('bill_');
 145 } elsif ( $old{billship} ) {
 146   @prefixes = ('bill_', 'ship_');
 147 }
 148
 149 my $census_error = $new{'census_error'};
 150 my $is_error = $census_error || grep { $new{$_.'error'} } @prefixes;
 151
 152 </%init>