-<%
+<% $cgi->redirect(popurl(2). "search/queue.html") %>
+<%init>
+
+die "access denied"
+ unless $FS::CurrentUser::CurrentUser->access_right('Job queue');
$cgi->param('action') =~ /^(new|del|(retry|remove) selected)$/
or die "Illegal action";
$cgi->param('jobnum') =~ /^(\d+)$/ or die "Illegal jobnum";
my $jobnum = $1;
$job = qsearchs('queue', { 'jobnum' => $1 })
- or die "unknown jobnum $jobnum";
+ or die "unknown jobnum $jobnum - ".
+ "it probably completed normally or was removed by another user";
}
if ( $action eq 'new' ) {
}
}
-print $cgi->redirect(popurl(2). "browse/queue.cgi");
-
-%>
+</%init>