<% print header("Job Queue", menubar( 'Main Menu' => $p, # 'Add new referral' => "../edit/part_referral.cgi", )), &table(), < Job Args Date Status END foreach my $queue ( sort { $a->getfield('jobnum') <=> $b->getfield('jobnum') } qsearch('queue',{}) ) { my($hashref)=$queue->hashref; my $jobnum = $hashref->{jobnum}; my $args = join(' ', $queue->args); my $date = time2str( "%a %b %e %T %Y", $queue->_date ); my $status = $hashref->{status}; if ( $status eq 'failed' || $status eq 'locked' ) { $status .= qq! ( retry |!. qq! remove )!; } print < $jobnum $hashref->{job} $args $date $status END } print < END %>