FS/FS/h_svc_Radius_Mixin.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

package FS::h_svc_Radius_Mixin;

use strict;
use FS::Record qw( qsearch );
use FS::h_radius_usergroup;

sub h_usergroup {
  my $self = shift;
  map { $_->groupnum } 
    qsearch( 'h_radius_usergroup',
             { svcnum => $self->svcnum },
             FS::h_radius_usergroup->sql_h_searchs(@_),
           );
}

1;