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