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 foreach my $pre ( @prefixes ) {
  28
  29   my $location = {
  30     map { $_ => $old{$pre.$_} }
  31       qw( company address1 address2 city state zip country )
  32   };
  33
  34   my $cache = eval { FS::GeocodeCache->standardize($location) };
  35   $cache->set_coord;
  36   # don't do set_censustract here, though censustract may be set by now
  37
  38   foreach ( keys(%$cache) ) {
  39     $new{$pre.$_} = $cache->get($_);
  40   }
  41 }
  42
  43 my $return = { old => \%old, new => \%new };
  44 warn "result:\n".encode_json($return) if $DEBUG;
  45 </%init>