RADIUS group enhancements, overlimit_groups changes, etc. RT13432

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

diff --git a/FS/FS/radius_group.pm b/FS/FS/radius_group.pm
index 96de294..eeb291b 100644 (file)
--- 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