5 use FS::UID qw( adminsuidsetup );
6 use FS::Record qw( qsearch qsearchs );
10 my $user = shift or &usage;
13 my $from = shift or &usage;
14 my $to = shift or &usage;
16 foreach my $queue_arg ( qsearch('queue_arg', { 'arg' => $from, } ) ) {
19 my $error = $queue_arg->replace;
22 #not on 3.x my $queue = $queue_arg->queue;
23 my $queue = qsearchs( 'queue', { 'jobnum' => $queue_arg->jobnum } );
24 if ( $queue->status eq 'failed' ) {
25 $queue->status('new');
26 my $error = $queue->replace;
33 die "usage: queue-bulk_chage employee_username from_arg to_arg\n";