5 %my $conf = new FS::Conf;
6 %my $dangerous = $conf->exists('queue_dangerous_controls');
10 %my $count_query = 'SELECT COUNT(*) FROM queue'; # + $hashref
15 <% include( 'elements/search.html',
16 'title' => 'Job Queue',
17 'menubar' => [ 'Main menu' => $p, ],
19 'query' => { 'table' => 'queue',
20 'hashref' => $hashref,
21 'extra_sql' => 'ORDER BY jobnum',
23 'count_query' => $count_query,
29 'Account', # unless $hashref->{'svcnum'}
38 || $queue->job !~ /^FS::part_export::/
42 encode_entities( join(' ', $queue->args) );
48 time2str( "%a %b %e %T %Y", shift->_date );
52 my $jobnum = $queue->jobnum;
53 my $status = $queue->status;
54 $status .= ': '. $queue->statustext
55 if $queue->statustext;
56 my @queue_depend = $queue->queue_depend;
57 $status .= ' (waiting for '.
58 join(', ', map { $_->depend_jobnum }
63 my $changable = $dangerous
65 && $status =~ /^failed/
66 || $status =~ /^locked/
70 qq! ( <A HREF="$p/misc/queue.cgi?jobnum=$jobnum&action=new">retry</A> |!.
71 qq! <A HREF="$p/misc/queue.cgi?jobnum=$jobnum&action=del">remove</A> )!;
77 # return '' if $hashref->{'svcnum'}
78 my $cust_svc = $queue->cust_svc;
81 my $table = $cust_svc->part_svc->svcdb;
82 my $label = ( $cust_svc->label )[1];
83 qq!<A HREF="../view/$table.cgi?!. $queue->svcnum.
91 my $jobnum = $queue->jobnum;
92 my $status = $queue->status;
93 my $changable = $dangerous
95 && $status eq 'failed'
96 || $status eq 'locked'
100 qq!<INPUT NAME="jobnum$jobnum" TYPE="checkbox" VALUE="1">!;
117 '<BR><INPUT TYPE="submit" NAME="action" VALUE="retry selected">'.
118 '<INPUT TYPE="submit" NAME="action" VALUE="remove selected"><BR>';