From 148727c4b03abc9b73149c101afcc4f3fff57a73 Mon Sep 17 00:00:00 2001 From: ivan Date: Tue, 11 Sep 2001 12:25:55 +0000 Subject: [PATCH] queue clean fix --- FS/FS/queue.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/FS/FS/queue.pm b/FS/FS/queue.pm index 13e6f92c1..09672480b 100644 --- a/FS/FS/queue.pm +++ b/FS/FS/queue.pm @@ -127,7 +127,7 @@ sub delete { local $FS::UID::AutoCommit = 0; my $dbh = dbh; - my @args = $self->args; + my @args = qsearch( 'queue_arg', { 'jobnum' => $self->jobnum } ); my $error = $self->SUPER::delete; if ( $error ) { @@ -199,7 +199,7 @@ sub args { =head1 VERSION -$Id: queue.pm,v 1.2 2001-09-11 12:24:13 ivan Exp $ +$Id: queue.pm,v 1.3 2001-09-11 12:25:55 ivan Exp $ =head1 BUGS -- 2.11.0