httemplate/misc/xmlhttp-part_pkg_taxproduct.html

   1 <% encode_json({ part_pkg_taxproduct => [ map { $_->taxproduct => $_->description } @part_pkg_taxproduct ] }) %>\
   2 <%init>
   3
   4 #compliance solutions specific for now, since they asked for a multi-level
   5 # select
   6
   7 #my $sub = $cgi->param('sub');
   8
   9 warn join(', ', $cgi->param);
  10
  11 my( %args ) = $cgi->multi_param('arg');
  12
  13 my $hashref = { 'data_vendor' => $args{'data_vendor'} };
  14
  15 my @part_pkg_taxproduct;
  16 if ( $args{category} =~ /^(\w)$/ ) {
  17   my $category = $1;
  18   @part_pkg_taxproduct = qsearch({
  19     table     => 'part_pkg_taxproduct',
  20     hashref   => $hashref,
  21     extra_sql => " AND taxproduct LIKE '$category%' AND length(taxproduct) = 4 ",
  22   });
  23
  24 } elsif ( $args{product_code} =~ /^([A-Z]\d+)$/ ) {
  25   my $product_code = $1;
  26   @part_pkg_taxproduct = qsearch({
  27     table     => 'part_pkg_taxproduct',
  28     hashref   => $hashref,
  29     extra_sql => " AND taxproduct LIKE '$product_code%' AND length(taxproduct) > 4 ",
  30   });
  31
  32 } else {
  33   die 'neither category nor product_code specified';
  34 }
  35
  36 </%init>