From: ivan <ivan>
Date: Tue, 11 Sep 2001 12:25:55 +0000 (+0000)
Subject: queue clean fix
X-Git-Tag: freeside_1_4_0pre11~343
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=148727c4b03abc9b73149c101afcc4f3fff57a73;p=freeside.git

queue clean fix
---

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