diff options
author | ivan <ivan> | 2006-08-06 21:37:57 +0000 |
---|---|---|
committer | ivan <ivan> | 2006-08-06 21:37:57 +0000 |
commit | 81676223e719782d4197841b78434df977457865 (patch) | |
tree | e5fcac9c9ce98efd2b69fd10b435ccef150b4dad /FS/FS/svc_Common.pm | |
parent | 924a1bde45d6fbe134ecd502cd3ba072f5d73195 (diff) |
make sure default RADIUS groups don't override ones for existing records
Diffstat (limited to 'FS/FS/svc_Common.pm')
-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->{$_}) } |