X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fsvc_Common.pm;h=907f35fa0883153d5d0fb477b9d51a0783972153;hp=17942c7eccee2a7c6e5f32fea0c815927e266c30;hb=81676223e719782d4197841b78434df977457865;hpb=924a1bde45d6fbe134ecd502cd3ba072f5d73195 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->{$_}) }