FS/FS/h_svc_Radius_Mixin.pm

   1 package FS::h_svc_Radius_Mixin;
   2
   3 use strict;
   4 use FS::Record qw( qsearch );
   5 use FS::h_radius_usergroup;
   6
   7 sub h_usergroup {
   8   my $self = shift;
   9   map { $_->groupnum }
  10     qsearch( 'h_radius_usergroup',
  11              { svcnum => $self->svcnum },
  12              FS::h_radius_usergroup->sql_h_searchs(@_),
  13            );
  14 }
  15
  16 1;
  17