2 #<!-- $Id: queue.cgi,v 1.1 2001-09-11 04:44:58 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 $cgi->header( '-expires' => 'now' ), 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 $args = join(' ', $queue->args);
37 my $date = time2str( "%a %b %e %T %Y", $queue->_date );
40 <TD>$hashref->{jobnum}</TD>
41 <TD>$hashref->{job}</TD>
44 <TD>$hashref->{status}</TD>