1 <!-- $Id: queue.cgi,v 1.7 2002-01-30 14:18:08 ivan Exp $ -->
4 print header("Job Queue", menubar(
6 # 'Add new referral' => "../edit/part_referral.cgi",
16 foreach my $queue ( sort {
17 $a->getfield('jobnum') <=> $b->getfield('jobnum')
18 } qsearch('queue',{}) ) {
19 my($hashref)=$queue->hashref;
20 my $jobnum = $hashref->{jobnum};
21 my $args = join(' ', $queue->args);
22 my $date = time2str( "%a %b %e %T %Y", $queue->_date );
23 my $status = $hashref->{status};
24 if ( $status eq 'failed' || $status eq 'locked' ) {
26 qq! ( <A HREF="$p/edit/queue.cgi?jobnum=$jobnum&action=new">retry</A> |!.
27 qq! <A HREF="$p/edit/queue.cgi?jobnum$jobnum&action=del">remove </A> )!;
32 <TD>$hashref->{job}</TD>