[freeside-commits] freeside/FS/FS svc_acct.pm,1.194,1.195

[Ivan,,,]

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

Modified Files:
	svc_acct.pm 
Log Message:
add confession here to diagnose etxrn's problem better

Index: svc_acct.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/svc_acct.pm,v
retrieving revision 1.194
retrieving revision 1.195
diff -u -d -r1.194 -r1.195
--- svc_acct.pm	3 Apr 2006 23:26:03 -0000	1.194
+++ svc_acct.pm	6 Aug 2006 08:10:36 -0000	1.195
@@ -1416,6 +1416,8 @@
 sub radius_groups {
   my $self = shift;
   if ( $self->usergroup ) {
+    confess "specified usergroup is not an arrayref: ". $self->usergroup
+      unless ref($self->usergroup) eq 'ARRAY';
     #when provisioning records, export callback runs in svc_Common.pm before
     #radius_usergroup records can be inserted...
     @{$self->usergroup};