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.'addr_clean'} ) {
  23   <TR>
  24     <TH>Entered <%$name%> address</TH>
  25     <TH>Standardized <%$name%> address</TH>
  26   </TR>
  27   <TR>
  28 %     if ( $old{$pre.'company'} ) {
  29   <TR>
  30     <TD><% $old{$pre.'company'} %></TD>
  31     <TD><% $new{$pre.'company'} %></TD>
  32   </TR>
  33 %     }
  34   <TR>
  35     <TD><% $old{$pre.'address1'} %></TD>
  36     <TD><% $new{$pre.'address1'} %></TD>
  37   </TR>
  38   <TR>
  39     <TD><% $old{$pre.'address2'} %></TD>
  40     <TD><% $new{$pre.'address2'} %></TD>
  41   </TR>
  42   <TR>
  43     <TD><% $old{$pre.'city'} %>, <% $old{$pre.'state'} %>  <% $old{$pre.'zip'} %></TD>
  44     <TD><% $new{$pre.'city'} %>, <% $new{$pre.'state'} %>  <% $new{$pre.'zip'} %></TD>
  45   </TR>
  46
  47 %   } # if addr_clean
  48 %     elsif ( $new{$pre.'error'} ) {
  49   <TR>
  50     <TH>Entered <%$name%> address</TH>
  51   </TR>
  52 %     if ( $old{$pre.'company'} ) {
  53   <TR>
  54     <TD><% $old{$pre.'company'} %></TD>
  55   </TR>
  56 %     }
  57   <TR>
  58     <TD><% $old{$pre.'address1'} %></TD>
  59     <TD ROWSPAN=3><FONT COLOR="#ff0000"><B><% $new{$pre.'error'} %></B></FONT></TD>
  60   </TR>
  61   <TR>
  62     <TD><% $old{$pre.'address2'} %></TD>
  63   </TR>
  64   <TR>
  65     <TD><% $old{$pre.'city'} %>, <% $old{$pre.'state'} %>  <% $old{$pre.'zip'} %></TD>
  66   </TR>
  67 %   } #if error
  68 % } # for $pre
  69
  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 ) {
  75   <TR>
  76     <TH>Entered census tract</TH>
  77     <TH>Calculated census tract</TH>
  78   </TR>
  79   <TR>
  80     <TD><% $old{$pre.'censustract'} %></TD>
  81     <TD>
  82 %     if ( $census_error ) {
  83       <FONT COLOR="#ff0000"><% $census_error %></FONT>
  84 %     } else {
  85       <% $censustract %>
  86 %     }
  87     </TD>
  88   </TR>
  89 % } #if censustract
  90
  91 % if ( $new{bill_error} or $new{ship_error} ) {
  92   <TR>
  93     <TD ALIGN="center">
  94     <BUTTON TYPE="button" STYLE="width:205px" onclick="confirm_manual_address();">
  95       <IMG SRC="<%$p%>images/error.png" ALT=""> Use entered <%$addresses%>
  96     </BUTTON></TD>
  97     <TD ALIGN="center">
  98     <BUTTON TYPE="button" STYLE="width:205px" onclick="submit_abort();">
  99       <IMG SRC="<%$p%>images/cross.png" ALT=""> Cancel submission
 100     </BUTTON></TD>
 101   </TR>
 102 % }
 103 % else {
 104   <TR>
 105     <TD ALIGN="center">
 106     <BUTTON TYPE="button" STYLE="width:205px" onclick="confirm_manual_address()();">
 107       <IMG SRC="<%$p%>images/error.png" ALT=""> Use entered <%$addresses%>
 108     </BUTTON></TD>
 109     <TD ALIGN="center">
 110     <BUTTON TYPE="button" STYLE="width:205px" onclick="replace_address();">
 111       <IMG SRC="<%$p%>images/tick.png" ALT=""> Use standardized <%$addresses%>
 112     </BUTTON></TD>
 113   </TR>
 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
 117     </BUTTON>
 118   </TD></TR>
 119 </TABLE>
 120 % } # !error
 121 <%init>
 122
 123 # slightly weird interface...
 124 my $q = decode_json($cgi->param('q'));
 125 #warn Dumper($q);
 126 my %old = %{ $q->{old} };
 127 my %new = %{ $q->{new} };
 128
 129 my $addresses = $old{billship} ? 'addresses' : 'address';
 130
 131 </%init>