<% encode_json({ part_pkg_taxproduct => \@part_pkg_taxproduct }) %>\
<%init>

#compliance solutions specific for now, since they asked for a multi-level
# select

#my $sub = $cgi->param('sub');

my( %args ) = $cgi->multi_param('arg');

my @qsearch = (
  table   => 'part_pkg_taxproduct',
  hashref => { 'data_vendor' => $args{'data_vendor'} },
);

my @part_pkg_taxproduct;
if ( $args{category} =~ /^(\w)$/ ) {

  my $category = $1;

  @part_pkg_taxproduct =
    map { $_->taxproduct => $_->description }
      qsearch({ @qsearch,
        extra_sql => " AND taxproduct LIKE '$category%' ".
                     " AND length(taxproduct) = 4 ",
      });

} elsif ( $args{product_code} =~ /^([A-Z]\d+)$/ ) {

  my $product_code = $1;

  @part_pkg_taxproduct =
    map { $_->taxproductnum. ' '. $_->taxproduct => $_->description }
      qsearch({ @qsearch,
        extra_sql => " AND taxproduct LIKE '$product_code%'".
                     " AND length(taxproduct) > 4 ",
      });

} else {
  die 'neither category nor product_code specified';
}

</%init>