diff options
| author | ivan <ivan> | 2003-11-11 15:04:24 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2003-11-11 15:04:24 +0000 |
| commit | 30e6bde6388096a66d12c8b19b6e9b2cdef35e6e (patch) | |
| tree | a87d43305a14a82925b534949042adb6988ddfa2 | |
| parent | a3494ee759561c1c4b2b9e4015ee88e69839a05a (diff) | |
also make setx behave when setting svcnum during an import
| -rw-r--r-- | FS/FS/svc_Common.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/FS/FS/svc_Common.pm b/FS/FS/svc_Common.pm index bf074187e..ca707bbdf 100644 --- a/FS/FS/svc_Common.pm +++ b/FS/FS/svc_Common.pm @@ -258,7 +258,7 @@ sub setx { #get part_svc my $svcpart; - if ( $self->svcnum ) { + if ( $self->svcnum && qsearchs('cust_svc', {'svcnum'=>$self->svcnum}) ) { my $cust_svc = $self->cust_svc; return "Unknown svcnum" unless $cust_svc; $svcpart = $cust_svc->svcpart; @@ -380,7 +380,7 @@ sub cancel { ''; } =head1 VERSION -$Id: svc_Common.pm,v 1.12.4.2 2003-11-11 14:21:32 ivan Exp $ +$Id: svc_Common.pm,v 1.12.4.3 2003-11-11 15:04:24 ivan Exp $ =head1 BUGS |