From 434aeae5804adbf20c838ab447dced85a79a80e6 Mon Sep 17 00:00:00 2001
From: Angelo Naselli <anaselli@linux.it>
Date: Mon, 21 Jul 2014 08:52:21 +0200
Subject: Forgotten right "member" dependency

---
 lib/AdminPanel/Module/Users.pm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'lib/AdminPanel')

diff --git a/lib/AdminPanel/Module/Users.pm b/lib/AdminPanel/Module/Users.pm
index dbf69620..4f82906f 100644
--- a/lib/AdminPanel/Module/Users.pm
+++ b/lib/AdminPanel/Module/Users.pm
@@ -82,6 +82,7 @@ use yui;
 use AdminPanel::Shared::GUI;
 use AdminPanel::Shared::Locales;
 use AdminPanel::Shared::Users;
+use MDK::Common::DataStructure qw(member);
 
 use Moose;
 extends qw( AdminPanel::Module );
@@ -1839,7 +1840,7 @@ sub _groupUsersTabWidget {
     my $members = $groupData{members};
     foreach my $user (@susers) {
         my $item = new yui::YCBTableItem($user);
-        $item->check(member($user, @$members));
+        $item->check(MDK::Common::DataStructure::member($user, @$members));
         $item->setLabel($user);
         $itemCollection->push($item);
         $item->DISOWN();    
@@ -1884,7 +1885,7 @@ sub _userGroupsTabWidget {
     my $members = $userData{members};
     foreach my $group (@sgroups) {
         my $item = new yui::YCBTableItem($group);
-        $item->check(member($group, @$members));
+        $item->check(MDK::Common::DataStructure::member($group, @$members));
         $item->setLabel($group);
         $itemCollection->push($item);
         $item->DISOWN();    
@@ -1945,7 +1946,7 @@ sub _groupEdit_Ok {
         if ($uEnt) {
             my $ugid = $uEnt->Gid($self->USER_GetValue);
             my $m    = $self->ctx->EnumerateUsersByGroup($groupData{start_groupname});
-            if (member($user, @$members)) {
+            if (MDK::Common::DataStructure::member($user, @$members)) {
                 if (!$self->_inArray($user, $m)) {
                     if ($ugid != $gid) {
                         eval { $groupEnt->MemberName($user,1) };
@@ -2011,7 +2012,7 @@ sub _userEdit_Ok {
         my $gEnt = $self->ctx->LookupGroupByName($group);
         my $ugid = $gEnt->Gid($self->USER_GetValue);
         my $m    = $gEnt->MemberName(1,0);
-        if (member($group, @$members)) {
+        if (MDK::Common::DataStructure::member($group, @$members)) {
             if (!$self->_inArray($username, $m) && $userData{primary_group} != $ugid) {
                 eval { $gEnt->MemberName($username, 1) };
                 $self->ctx->GroupModify($gEnt);
-- 
cgit v1.2.1