@options;
foreach my $class ( '', split(',', $cgi->param('taxproductnums') ) ) {
- my $param = 'taxproductnum';
- $param .= "_$class" if length($class); # gah, "_$class"?
+ my $param = "taxproductnum_$class";
my $value = $cgi->param($param);
if ( $value == -1 ) {
$error ||= "Illegal $param: $value"
unless ( $value =~ /^\d*$/ );
if (length($class)) {
- $options{"usage_taxproductnum_$_"} = $value;
+ $options{"usage_taxproductnum_$class"} = $value;
} else {
$new->set('taxproductnum', $value);
}
my @svcparts = map { $_->svcpart } qsearch('part_svc', {});
my %pkg_svc = map { $_ => scalar($cgi->param("pkg_svc$_" )) } @svcparts;
my %hidden_svc = map { $_ => scalar($cgi->param("hidden$_" )) } @svcparts;
+ my %provision_hold = map { $_ => scalar($cgi->param("provision_hold$_" )) } @svcparts;
my %bulk_skip = map { $_ => ( $cgi->param("no_bulk_skip$_") eq 'Y'
? '' : 'Y'
)
push @args, 'pkg_svc' => \%pkg_svc,
'hidden_svc' => \%hidden_svc,
+ 'provision_hold' => \%provision_hold,
'bulk_skip' => \%bulk_skip;
###