From 11533544ca01c2c54899af0a00f2c062c1831433 Mon Sep 17 00:00:00 2001
From: Angelo Naselli <anaselli@linux.it>
Date: Mon, 6 Jan 2014 00:59:45 +0100
Subject: - Added a Base class for modules. - Now configuration can be read
 also int /etc/categories.conf.d/   so that external modules can add their own
 configuration to be launched and   added to admin panel - perl modules can be
 run by extending Module class, creating a start()   method and configuring
 module entry in categories configuration as class element - Admin User now
 extends Module

---
 AdminPanel/Users/GUsers.pm | 24 +++++++++++++++++++++---
 1 file changed, 21 insertions(+), 3 deletions(-)

(limited to 'AdminPanel/Users')

diff --git a/AdminPanel/Users/GUsers.pm b/AdminPanel/Users/GUsers.pm
index 56d58ff..3aba881 100644
--- a/AdminPanel/Users/GUsers.pm
+++ b/AdminPanel/Users/GUsers.pm
@@ -47,6 +47,16 @@ use Glib;
 use yui;
 use AdminPanel::Shared;
 use AdminPanel::Users::users;
+extends qw( Module );
+
+has '+icon' => (
+    default => "/usr/share/icons/userdrake.png",
+);
+
+has '+name' => (
+    default => N("AdminUser"), 
+);
+
 
 =head1 VERSION
 
@@ -117,6 +127,11 @@ has 'edit_tab_widgets' => (
     init_arg  => undef,
 );
 
+sub start {
+    my $self = shift;
+
+    $self->manageUsersDialog();
+};
 
 # TODO move to Shared?
 sub labeledFrameBox {
@@ -1662,8 +1677,6 @@ sub _userGroupsTabWidget {
     my $userEnt = $self->ctx->LookupUserByName($userData{username}); 
     my $lastchg = $userEnt->ShadowLastChange($self->USER_GetValue);
 
-    my $align;
-    my $hbox;
     my $layout   = labeledFrameBox($replace_pnt, N("Select groups that the user will be member of:"));
 
     my $yTableHeader = new yui::YTableHeader();
@@ -2527,4 +2540,9 @@ sub TimeOfArray {
     $cm and $h->{month} = $mth{$2}; 
     $h;
 }
-sub member { my $e = shift; foreach (@_) { $e eq $_ and return 1 } 0 }
\ No newline at end of file
+sub member { my $e = shift; foreach (@_) { $e eq $_ and return 1 } 0 }
+
+no Moose;
+__PACKAGE__->meta->make_immutable;
+
+1;
\ No newline at end of file
-- 
cgit v1.2.1