un-cancel, RT#17518

[freeside.git] / FS / FS / h_svc_Radius_Mixin.pm

diff --git a/FS/FS/h_svc_Radius_Mixin.pm b/FS/FS/h_svc_Radius_Mixin.pm
new file mode 100644 (file)
index 0000000..af29770
--- /dev/null
+++ b/FS/FS/h_svc_Radius_Mixin.pm
@@ -0,0 +1,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;
+