From a905043d0897d3b47729d3a6eccf794d542a45aa Mon Sep 17 00:00:00 2001
From: Angelo Naselli <anaselli@linux.it>
Date: Sun, 12 Oct 2014 00:22:53 +0200
Subject: Added group name by ID into Shared

---
 lib/AdminPanel/Shared/Users.pm | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)

(limited to 'lib/AdminPanel/Shared')

diff --git a/lib/AdminPanel/Shared/Users.pm b/lib/AdminPanel/Shared/Users.pm
index 237fee98..9839f8bd 100644
--- a/lib/AdminPanel/Shared/Users.pm
+++ b/lib/AdminPanel/Shared/Users.pm
@@ -573,6 +573,37 @@ sub groupID {
 
     return undef;
 }
+
+#=============================================================
+
+=head2 groupName
+
+=head3 INPUT
+
+$gid grou identifier
+
+=head3 OUTPUT
+
+group name or undef
+
+=head3 DESCRIPTION
+
+This method returns the group name for the given group
+identifier
+
+=cut
+
+#=============================================================
+sub groupName {
+    my ($self, $gid) = @_;
+
+    my $gr = $self->ctx->LookupGroupById($gid);
+    return $gr->GroupName($self->USER_GetValue) if ($gr);
+
+    return undef;
+}
+
+
 #=============================================================
 
 =head2 addGroup
-- 
cgit v1.2.1