httemplate/misc/confirm-address_standardize.html

   1 <STYLE type="text/css">
   2 th { line-height: 150% }
   3 </STYLE>
   4 <CENTER><BR><B>
   5 % if ( $new{bill_error} or $new{ship_error} ) {
   6 Address standardization error
   7 % }
   8 % else {
   9 Confirm address standardization
  10 % }
  11
  12 </B><BR><BR>
  13 <TABLE WIDTH="100%">
  14 % my @prefixes = ('');
  15 % if ( $old{same} ) {
  16 %   @prefixes = ('bill_');
  17 % } elsif ( $old{billship} ) {
  18 %   @prefixes = ('bill_', 'ship_');
  19 % }
  20 % for my $pre (@prefixes) {
  21 %   my $name = $pre eq 'bill_' ? 'billing' : 'service';
  22 %   if ( $new{$pre.'error'} ) {
  23   <TR>
  24     <TH>Entered <%$name%> address</TH>
  25   </TR>
  26 %     if ( $old{$pre.'company'} ) {
  27   <TR>
  28     <TD><% $old{$pre.'company'} %></TD>
  29   </TR>
  30 %     }
  31   <TR>
  32     <TD><% $old{$pre.'address1'} %></TD>
  33     <TD ROWSPAN=3><FONT COLOR="#ff0000"><B><% $new{$pre.'error'} %></B></FONT></TD>
  34   </TR>
  35   <TR>
  36     <TD><% $old{$pre.'address2'} %></TD>
  37   </TR>
  38   <TR>
  39     <TD><% $old{$pre.'city'} %>, <% $old{$pre.'state'} %>  <% $old{$pre.'zip'} %></TD>
  40   </TR>
  41 %   } else { # not an error
  42   <TR>
  43     <TH>Entered <%$name%> address</TH>
  44     <TH>Standardized <%$name%> address</TH>
  45   </TR>
  46 %   if ( !$new{$pre.'addr_clean'} ) {
  47   <TR>
  48     <TD></TD>
  49     <TH STYLE="font-size:smaller;color:#ff0000">(unverified)</TH>
  50   </TR>
  51 %   }
  52   <TR>
  53 %     if ( $old{$pre.'company'} ) {
  54   <TR>
  55     <TD><% $old{$pre.'company'} %></TD>
  56     <TD><% $new{$pre.'company'} %></TD>
  57   </TR>
  58 %     }
  59   <TR>
  60     <TD><% $old{$pre.'address1'} %></TD>
  61     <TD><% $new{$pre.'address1'} %></TD>
  62   </TR>
  63   <TR>
  64     <TD><% $old{$pre.'address2'} %></TD>
  65     <TD><% $new{$pre.'address2'} %></TD>
  66   </TR>
  67   <TR>
  68     <TD><% $old{$pre.'city'} %>, <% $old{$pre.'state'} %>  <% $old{$pre.'zip'} %></TD>
  69     <TD><% $new{$pre.'city'} %>, <% $new{$pre.'state'} %>  <% $new{$pre.'zip'} %></TD>
  70   </TR>
  71
  72 %   } # if error
  73 % } # for $pre
  74
  75 %# only do this part if address standardization provided a censustract
  76 % my $pre = $old{same} ? 'bill_' : 'ship_';
  77 % my $censustract = $new{$pre.'censustract'};
  78 % my $census_error = $new{$pre.'census_error'};
  79 % if ( $censustract ) {
  80   <TR>
  81     <TH>Entered census tract</TH>
  82     <TH>Calculated census tract</TH>
  83   </TR>
  84   <TR>
  85     <TD><% $old{$pre.'censustract'} %></TD>
  86     <TD>
  87 %     if ( $census_error ) {
  88       <FONT COLOR="#ff0000"><% $census_error %></FONT>
  89 %     } else {
  90       <% $censustract %>
  91 %     }
  92     </TD>
  93   </TR>
  94 % } #if censustract
  95
  96 % if ( grep {$new{$_.'error'}} @prefixes ) {
  97   <TR>
  98     <TD ALIGN="center">
  99     <BUTTON TYPE="button" STYLE="width:205px" onclick="confirm_manual_address();">
 100       <IMG SRC="<%$p%>images/error.png" ALT=""> Use entered <%$addresses%>
 101     </BUTTON></TD>
 102     <TD ALIGN="center">
 103     <BUTTON TYPE="button" STYLE="width:205px" onclick="submit_abort();">
 104       <IMG SRC="<%$p%>images/cross.png" ALT=""> Cancel submission
 105     </BUTTON></TD>
 106   </TR>
 107 % } else {
 108   <TR>
 109     <TD ALIGN="center">
 110     <BUTTON TYPE="button" STYLE="width:205px" onclick="confirm_manual_address();">
 111       <IMG SRC="<%$p%>images/error.png" ALT=""> Use entered <%$addresses%>
 112     </BUTTON></TD>
 113     <TD ALIGN="center">
 114     <BUTTON TYPE="button" STYLE="width:205px" onclick="replace_address();">
 115       <IMG SRC="<%$p%>images/tick.png" ALT=""> Use standardized <%$addresses%>
 116     </BUTTON></TD>
 117   </TR>
 118   <TR ALIGN="center"><TD COLSPAN=2>
 119     <BUTTON TYPE="button" STYLE="width:205px" onclick="submit_abort();">
 120       <IMG SRC="<%$p%>images/cross.png" ALT=""> Cancel submission
 121     </BUTTON>
 122   </TD></TR>
 123 </TABLE>
 124 % } # !error
 125 <%init>
 126
 127 # slightly weird interface...
 128 my $q = decode_json($cgi->param('q'));
 129 #warn Dumper($q);
 130 my %old = %{ $q->{old} };
 131 my %new = %{ $q->{new} };
 132
 133 my $addresses = $old{billship} ? 'addresses' : 'address';
 134
 135 </%init>