[freeside-commits] freeside/FS/FS svc_Common.pm,1.35,1.36

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail:/tmp/cvs-serv4793

Modified Files:
	svc_Common.pm 
Log Message:
make sure default RADIUS groups don't override ones for existing records

Index: svc_Common.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/svc_Common.pm,v
retrieving revision 1.35
retrieving revision 1.36
diff -u -d -r1.35 -r1.36
--- svc_Common.pm	6 Aug 2006 20:21:32 -0000	1.35
+++ svc_Common.pm	6 Aug 2006 21:37:57 -0000	1.36
@@ -52,7 +52,8 @@
   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->{$_}) }