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   local($FS::Record::qsearch_qualify_columns) = 0;
  10   map { $_->groupnum }
  11     qsearch( 'h_radius_usergroup',
  12              { svcnum => $self->svcnum },
  13              FS::h_radius_usergroup->sql_h_searchs(@_),
  14            );
  15 }
  16
  17 1;
  18