<% include( 'elements/process.html',
#'debug' => 1,
'table' => 'part_pkg',
+ 'redirect' => $redirect_callback,
'viewall_dir' => 'browse',
'viewall_ext' => 'cgi',
'edit_ext' => 'cgi',
push @agents, $1 if $1;
}
return "At least one agent type must be specified."
- unless( scalar(@agents) ||
- $cgi->param('clone') && $cgi->param('clone') =~ /^\d+$/ ||
- !$cgi->param('pkgpart') && $conf->exists('agent-defaultpkg')
- );
+ unless scalar(@agents)
+ || ( $cgi->param('clone') && $cgi->param('clone') =~ /^\d+$/ )
+ || ( !$cgi->param('pkgpart') && $conf->exists('agent-defaultpkg') )
+ || $cgi->param('disabled');
return '';
'custnum_ref' => \$custnum;
}
+ warn "args: ".join('/', @args). "\n";
+
@args;
};
+my $redirect_callback = sub {
+ #my( $cgi, $new ) = @_;
+ return '' unless $custnum;
+ popurl(3). "view/cust_main.cgi?keywords=$custnum;dummy=";
+};
+
#these should probably move to @args above and be processed by part_pkg.pm...
$cgi->param('tax_override') =~ /^([\d,]+)$/;