diff options
author | ivan <ivan> | 2002-03-24 14:29:00 +0000 |
---|---|---|
committer | ivan <ivan> | 2002-03-24 14:29:00 +0000 |
commit | 7dc23049c25d316da196647a8be1d74dfc09a02a (patch) | |
tree | 9ad875d5463e34e228f910ec919930e9ca8b10de /FS/FS/queue.pm | |
parent | 74e64d70361848f089aad9a7881c2af9caf6e479 (diff) |
ICRADIUS groups all done! UI and provisioning. closes: Bug#362
fix some bugs in the export and add queue_dangerous_controls option too
Diffstat (limited to 'FS/FS/queue.pm')
-rw-r--r-- | FS/FS/queue.pm | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/FS/FS/queue.pm b/FS/FS/queue.pm index 7a38a6e..e5369cf 100644 --- a/FS/FS/queue.pm +++ b/FS/FS/queue.pm @@ -1,8 +1,10 @@ package FS::queue; use strict; -use vars qw( @ISA @EXPORT_OK ); +use vars qw( @ISA @EXPORT_OK $conf ); use Exporter; +use FS::UID; +use FS::Conf; use FS::Record qw( qsearch qsearchs dbh ); #use FS::queue; use FS::queue_arg; @@ -11,6 +13,10 @@ use FS::cust_svc; @ISA = qw(FS::Record); @EXPORT_OK = qw( joblisting ); +$FS::UID::callback{'FS::queue'} = sub { + $conf = new FS::Conf; +}; + =head1 NAME FS::queue - Object methods for queue records @@ -255,7 +261,8 @@ END my $date = time2str( "%a %b %e %T %Y", $queue->_date ); my $status = $queue->status; $status .= ': '. $queue->statustext if $queue->statustext; - if ( ! $noactions && $status =~ /^failed/ || $status =~ /^locked/ ) { + if ( $conf->exists('queue_dangerous_controls') + || ( ! $noactions && $status =~ /^failed/ || $status =~ /^locked/ ) ) { $status .= qq! ( <A HREF="$p/misc/queue.cgi?jobnum=$jobnum&action=new">retry</A> |!. qq! <A HREF="$p/misc/queue.cgi?jobnum=$jobnum&action=del">remove</A> )!; @@ -298,7 +305,7 @@ END =head1 VERSION -$Id: queue.pm,v 1.8 2002-03-23 16:16:00 ivan Exp $ +$Id: queue.pm,v 1.9 2002-03-24 14:29:00 ivan Exp $ =head1 BUGS |