httemplate/misc/xmlhttp-address_standardize.html

   1 <% encode_json($return) %>
   2 <%init>
   3
   4 local $SIG{__DIE__}; #disable Mason error trap
   5
   6 my $DEBUG = 0;
   7
   8 my $conf = new FS::Conf;
   9
  10 my $sub = $cgi->param('sub');
  11
  12 warn $cgi->param('arg') if $DEBUG;
  13
  14 my %old = %{ decode_json($cgi->param('arg')) }
  15   or die "bad argument '".$cgi->param('arg')."'";
  16
  17 my %new;
  18
  19 my @prefixes = ('');
  20 if ( $old{same} ) {
  21   @prefixes = ('bill_');
  22 } elsif ( $old{billship} ) {
  23   @prefixes = ('bill_', 'ship_');
  24 }
  25 my $all_same = 1;
  26 foreach my $pre ( @prefixes ) {
  27
  28   my $location = {
  29     map { $_ => $old{$pre.$_} }
  30       qw( company address1 address2 city state zip country )
  31   };
  32
  33   my $cache = eval { FS::GeocodeCache->standardize($location) };
  34   $cache->set_coord;
  35   # don't do set_censustract here, though censustract may be set by now
  36
  37   foreach ( keys(%$cache) ) {
  38     $new{$pre.$_} = $cache->get($_);
  39   }
  40
  41   foreach ( qw(address1 address2 city state zip country) ) {
  42     $all_same = 0 if ( $new{$pre.$_} ne $old{$pre.$_} );
  43     last if !$all_same;
  44   }
  45
  46   $all_same = 0 if $new{$pre.'error'};
  47 }
  48
  49 my $return = { old => \%old, new => \%new, all_same => $all_same };
  50 warn "result:\n".encode_json($return) if $DEBUG;
  51 </%init>