httemplate/edit/cust_main/choose_tax_location.html

   1 <FORM NAME="choosegeocodeform">
   2 <CENTER><BR><B>Choose tax location</B><BR><BR>
   3 <P STYLE="<% $style %>"><% $header %></P>
   4
   5 <SELECT NAME='geocodes' ID='geocodes' STYLE="<% $style %>">
   6 % foreach my $location (@cust_tax_location) {
   7 %   my %value = ( zip => $zip5,
   8 %                 map { $_ => $location->$_ }
   9 %                   qw ( city state geocode )
  10 %               );
  11 %   map { $value{$_} = $location{$_} } qw ( city state )
  12 %     if $location{country} eq 'CA';
  13 %
  14 %   my $value = encode_entities(objToJson({ %value })
  15 %                              );
  16 %   my $content = '';
  17 %   $content .= $location->$_. '&nbsp;' x ( $max{$_} - length($location->$_) )
  18 %     foreach qw( city county state );
  19 %   $content .=   $location->cityflag eq 'I' ? 'Y' : 'N' ;
  20 %   my $selected = '' ;
  21 %   if (!$have_selected && lc($location->city) eq lc($location{city})) {
  22 %     $selected = 'SELECTED';
  23 %   }
  24   <OPTION VALUE="<% $value %>" STYLE="<% $style %>" <% $selected %>><% $content %>
  25 % }
  26 </SELECT><BR><BR>
  27
  28 <TABLE><TR>
  29   <TD> <BUTTON TYPE="button" onClick="set_geocode(document.getElementById('geocodes'));"><IMG SRC="<%$p%>images/tick.png" ALT=""> Set location </BUTTON></TD>
  30   <TD><BUTTON TYPE="button" onClick="document.CustomerForm.submitButton.disabled=false; parent.cClick();"><IMG SRC="<%$p%>images/cross.png" ALT=""> Cancel submission </BUTTON></TD>
  31 </TR>
  32 </TABLE>
  33
  34 </CENTER>
  35 </FORM>
  36 <%init>
  37
  38 my $conf = new FS::Conf;
  39 my $have_selected = 0;
  40
  41 my %location = ();
  42
  43 ($location{data_vendor}) = $cgi->param('data_vendor') =~ /^([-\w]+)$/;
  44 ($location{city})        = $cgi->param('city')        =~ /^([\w ]+)$/;
  45 ($location{state})       = $cgi->param('state')       =~ /^(\w+)$/;
  46 ($location{zip})         = $cgi->param('zip')         =~ /^([-\w ]+)$/;
  47 ($location{country})     = $cgi->param('country')     =~ /^([\w ]+)$/;
  48
  49 my($zip5, $zip4) = split('-', $location{zip});
  50
  51 #only support US & CA
  52 my $hashref = { 'data_vendor' => $location{data_vendor} };
  53 $hashref->{zip} = $location{country} eq 'CA' ? substr($zip5,0,1) : $zip5,
  54
  55 my @keys = keys(%$hashref);
  56 my @cust_tax_location = ();
  57 until ( @cust_tax_location ) {
  58   @cust_tax_location = qsearch({ table    => 'cust_tax_location',
  59                                  hashref  =>  $hashref,
  60                                  order_by =>  'LIMIT 50',
  61                               });
  62   last unless scalar(@keys);
  63   delete $hashref->{ shift @keys };
  64 }
  65
  66 my %max = ( city => 4, county => 6, state => 5);
  67 foreach my $location (@cust_tax_location) {
  68   foreach ( qw( city county state ) ) {
  69     my $length = length($location->$_);
  70     $max{$_} = ($length > $max{$_}) ? $length : $max{$_};
  71   }
  72 }
  73 foreach ( qw( city county state ) ) {
  74   $max{$_} = $location{$_} if $location{$_} > $max{$_};
  75   $max{$_}++;
  76 }
  77
  78 my $header = '&nbsp;&nbsp;';
  79 $header .= $_. '&nbsp;' x ( $max{lc($_)} - length($_) )
  80   foreach qw( City County State );
  81 $header .=   "In city?";
  82
  83 my $style = "font-family:monospace;";
  84
  85 </%init>