3 $cgi->param('action') =~ /^(new|del|(retry|remove) selected)$/
4 or die "Illegal action";
8 if ( $action eq 'new' || $action eq 'del' ) {
9 $cgi->param('jobnum') =~ /^(\d+)$/ or die "Illegal jobnum";
11 $job = qsearchs('queue', { 'jobnum' => $1 })
12 or die "unknown jobnum $jobnum";
15 if ( $action eq 'new' ) {
16 my %hash = $job->hash;
17 $hash{'status'} = 'new';
18 $hash{'statustext'} = '';
19 my $new = new FS::queue \%hash;
20 my $error = $new->replace($job);
22 } elsif ( $action eq 'del' ) {
23 my $error = $job->delete;
25 } elsif ( $action =~ /^(retry|remove) selected$/ ) {
27 map { /^jobnum(\d+)$/; $1; } grep /^jobnum\d+$/, $cgi->param
29 my $job = qsearchs('queue', { 'jobnum' => $jobnum });
30 if ( $action eq 'retry selected' && $job ) { #new
31 my %hash = $job->hash;
32 $hash{'status'} = 'new';
33 $hash{'statustext'} = '';
34 my $new = new FS::queue \%hash;
35 my $error = $new->replace($job);
37 } elsif ( $action eq 'remove selected' && $job ) { #del
38 my $error = $job->delete;
44 print $cgi->redirect(popurl(2). "browse/queue.cgi");