diff options
| -rw-r--r-- | FS/FS/svc_Common.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/FS/FS/svc_Common.pm b/FS/FS/svc_Common.pm index 17942c7ec..907f35fa0 100644 --- a/FS/FS/svc_Common.pm +++ b/FS/FS/svc_Common.pm @@ -52,7 +52,8 @@ sub new { my $newhash = shift; $self->{'Hash'} = { map { $_ => $newhash->{$_} } qw(svcnum svcpart) }; - $self->setdefault( $self->_fieldhandlers ); + $self->setdefault( $self->_fieldhandlers ) + unless $self->svcnum; $self->{'Hash'}{$_} = $newhash->{$_} foreach grep { defined($newhash->{$_}) && length($newhash->{$_}) } |