2 #<!-- $Id: queue.cgi,v 1.6 2001-10-31 16:52:42 ivan Exp $ -->
5 use vars qw( $cgi $p ); # $part_referral );
7 use CGI::Carp qw(fatalsToBrowser);
9 use FS::UID qw(cgisuidsetup);
10 use FS::Record qw(qsearch);
11 use FS::CGI qw(header menubar popurl table);
20 print header("Job Queue", menubar(
22 # 'Add new referral' => "../edit/part_referral.cgi",
25 <TH COLSPAN=2>Job</TH>
32 foreach my $queue ( sort {
33 $a->getfield('jobnum') <=> $b->getfield('jobnum')
34 } qsearch('queue',{}) ) {
35 my($hashref)=$queue->hashref;
36 my $jobnum = $hashref->{jobnum};
37 my $args = join(' ', $queue->args);
38 my $date = time2str( "%a %b %e %T %Y", $queue->_date );
39 my $status = $hashref->{status};
40 if ( $status eq 'failed' || $status eq 'locked' ) {
42 qq! ( <A HREF="$p/edit/queue.cgi?jobnum=$jobnum&action=new">retry</A> |!.
43 qq! <A HREF="$p/edit/queue.cgi?jobnum$jobnum&action=del">remove </A> )!;
48 <TD>$hashref->{job}</TD>