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{onlyship}) {
  21   @prefixes = ('ship_');
  22 } elsif ( $old{same} ) {
  23   @prefixes = ('bill_');
  24 } else {
  25   @prefixes = ('bill_', 'ship_');
  26 }
  27 my $all_same = 1;
  28 foreach my $pre ( @prefixes ) {
  29
  30   my $location = {
  31     map { $_ => $old{$pre.$_} }
  32       qw( company address1 address2 city state zip country )
  33   };
  34
  35   my $cache = eval { FS::GeocodeCache->standardize($location) };
  36   $cache->set_coord;
  37   # don't do set_censustract here, though censustract may be set by now
  38
  39   foreach ( keys(%$cache) ) {
  40     $new{$pre.$_} = $cache->get($_);
  41   }
  42
  43   foreach ( qw(address1 address2 city state zip country) ) {
  44     $all_same = 0 if ( $new{$pre.$_} ne $old{$pre.$_} );
  45     last if !$all_same;
  46   }
  47 }
  48
  49 my $return = { old => \%old, new => \%new, all_same => $all_same };
  50 warn "result:\n".encode_json($return) if $DEBUG;
  51 </%init>