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;