RADIUS group enhancements, overlimit_groups changes, etc. RT13432

1 files changed, 13 insertions, 0 deletions

diff --git a/FS/FS/radius_group.pm b/FS/FS/radius_group.pm
index 96de294..eeb291b 100644
--- a/FS/FS/radius_group.pm
+++ b/FS/FS/radius_group.pm
@@ -112,6 +112,19 @@ sub check {
   $self->SUPER::check;
 }
 
+=item long_description
+
+Returns a description for this group consisting of its description field, 
+if any, and the RADIUS group name.
+
+=cut
+
+sub long_description {
+    my $self = shift;
+    $self->description ? $self->description . " (". $self->groupname . ")"
+                       : $self->groupname;
+}
+
 =back
 
 =head1 BUGS