+ foreach my $class ( '', split(',', $cgi->param('taxproductnums') ) ) {
+ my $param = "taxproductnum_$class";
+ my $value = $cgi->param($param);
+
+ if ( $value == -1 ) {
+ my $desc = $cgi->param($param.'_description');
+ # insert a new part_pkg_taxproduct
+ my $engine = FS::TaxEngine->new;
+ my $obj_or_error = $engine->add_taxproduct($desc);
+ if (ref $obj_or_error) {
+ $value = $obj_or_error->taxproductnum;
+ $cgi->param($param, $value); # for error handling
+ } else {
+ die "$obj_or_error (adding tax product)";
+ }
+ }
+
+ $error ||= "Illegal $param: $value"
+ unless ( $value =~ /^\d*$/ );
+ if (length($class)) {
+ $options{"usage_taxproductnum_$class"} = $value;
+ } else {
+ $new->set('taxproductnum', $value);
+ }
+ }
+
+ foreach ( grep $_, $cgi->param('report_option') ) {
+ $error ||= "Illegal optional report class: $_" unless ( $_ =~ /^\d*$/ );
+ $options{"report_option_$_"} = 1;
+ }
+