diff options
| author | ivan <ivan> | 2002-02-22 06:39:23 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2002-02-22 06:39:23 +0000 |
| commit | dbb26e8eeae5866a4bb48f170229d019e32affef (patch) | |
| tree | 2b5253d91fc40c5b0f1f7f8554b8dd1006c66af9 /FS/FS/queue.pm | |
| parent | da4c9633b45d04091fc1b8d420e5d75e294ebf86 (diff) | |
don't error out on bad svcnum's, just silently remove them
Diffstat (limited to 'FS/FS/queue.pm')
| -rw-r--r-- | FS/FS/queue.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/FS/FS/queue.pm b/FS/FS/queue.pm index 83ae171..69dc71a 100644 --- a/FS/FS/queue.pm +++ b/FS/FS/queue.pm @@ -185,10 +185,12 @@ sub check { || $self->ut_enum('status',['', qw( new locked failed )]) || $self->ut_textn('statustext') || $self->ut_numbern('svcnum') - || $self->ut_foreign_keyn('svcnum', 'cust_svc', 'svcnum') ; return $error if $error; + $error = $self->ut_foreign_keyn('svcnum', 'cust_svc', 'svcnum'); + $self->svcnum('') if $error; + $self->status('new') unless $self->status; $self->_date(time) unless $self->_date; @@ -287,7 +289,7 @@ END =head1 VERSION -$Id: queue.pm,v 1.4 2002-02-20 01:03:09 ivan Exp $ +$Id: queue.pm,v 1.5 2002-02-22 06:39:23 ivan Exp $ =head1 BUGS |