X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fradius_group.pm;h=eeb291b4bb5982b49832112aac6c4c14dac602a9;hb=dafdfc24616b04a5ff594da31e2cdd03f58634b6;hp=96de2948a5937c452163d838634c0e022079f50b;hpb=9f2280fbce022ab9bcfc46fe94483730b0aeb0f8;p=freeside.git

diff --git a/FS/FS/radius_group.pm b/FS/FS/radius_group.pm
index 96de2948a..eeb291b4b 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