diff --git a/lib/WebGUI/AdminConsole.pm b/lib/WebGUI/AdminConsole.pm index 804b896a1..560a0fd20 100644 --- a/lib/WebGUI/AdminConsole.pm +++ b/lib/WebGUI/AdminConsole.pm @@ -43,7 +43,7 @@ sub getAdminFunction { }, "users"=>{ title=>{ - id=>"users", + id=>"149", namespace=>"WebGUI" }, icon=>"users.gif", diff --git a/lib/WebGUI/Operation/User.pm b/lib/WebGUI/Operation/User.pm index fbb61d45c..afd328221 100644 --- a/lib/WebGUI/Operation/User.pm +++ b/lib/WebGUI/Operation/User.pm @@ -13,6 +13,7 @@ package WebGUI::Operation::User; use strict qw(vars subs); use Tie::CPHash; use Tie::IxHash; +use WebGUI::AdminConsole; use WebGUI::DateTime; use WebGUI::FormProcessor; use WebGUI::Group; @@ -20,7 +21,6 @@ use WebGUI::Grouping; use WebGUI::HTMLForm; use WebGUI::Icon; use WebGUI::International; -use WebGUI::Operation::Shared; use WebGUI::Operation::Auth; use WebGUI::Paginator; use WebGUI::Privilege; @@ -34,30 +34,37 @@ use WebGUI::Utility; #------------------------------------------------------------------- sub _submenu { - my ($output, %menu); - tie %menu, 'Tie::IxHash'; + my $workarea = shift; + my $title = shift; + $title = WebGUI::International::get($title) if ($title); + my $help = shift; + my $ac = WebGUI::AdminConsole->new; + if ($help) { + $ac->setHelp($help); + } + $ac->setAdminFunction("trash"); if (WebGUI::Grouping::isInGroup(3)) { - $menu{WebGUI::URL::page("op=addUser")} = WebGUI::International::get(169); + $ac->addSubmenuItem(WebGUI::URL::page("op=addUser"), WebGUI::International::get(169)); unless ($session{form}{op} eq "listUsers" || $session{form}{op} eq "addUser" || $session{form}{op} eq "deleteUserConfirm") { - $menu{WebGUI::URL::page("op=editUser&uid=".$session{form}{uid})} = WebGUI::International::get(457); - $menu{WebGUI::URL::page("op=editUserGroup&uid=".$session{form}{uid})} = WebGUI::International::get(458); - $menu{WebGUI::URL::page("op=editUserProfile&uid=".$session{form}{uid})} = WebGUI::International::get(459); - $menu{WebGUI::URL::page('op=viewProfile&uid='.$session{form}{uid})} = WebGUI::International::get(752); - $menu{WebGUI::URL::page('op=becomeUser&uid='.$session{form}{uid})} = WebGUI::International::get(751); - $menu{WebGUI::URL::page('op=deleteUser&uid='.$session{form}{uid})} = WebGUI::International::get(750); + $ac->addSubmenuItem(WebGUI::URL::page("op=editUser&uid=".$session{form}{uid}), WebGUI::International::get(457)); + $ac->addSubmenuItem(WebGUI::URL::page("op=editUserGroup&uid=".$session{form}{uid}), WebGUI::International::get(458)); + $ac->addSubmenuItem(WebGUI::URL::page("op=editUserProfile&uid=".$session{form}{uid}), WebGUI::International::get(459)); + $ac->addSubmenuItem(WebGUI::URL::page('op=viewProfile&uid='.$session{form}{uid}), WebGUI::International::get(752)); + $ac->addSubmenuItem(WebGUI::URL::page('op=becomeUser&uid='.$session{form}{uid}), WebGUI::International::get(751)); + $ac->addSubmenuItem(WebGUI::URL::page('op=deleteUser&uid='.$session{form}{uid}), WebGUI::International::get(750)); if ($session{setting}{useKarma}) { - $menu{WebGUI::URL::page("op=editUserKarma&uid=".$session{form}{uid})} = WebGUI::International::get(555); + $ac->addSubmenuItem(WebGUI::URL::page("op=editUserKarma&uid=".$session{form}{uid}), WebGUI::International::get(555)); } } - $menu{WebGUI::URL::page("op=listUsers")} = WebGUI::International::get(456); + $ac->addSubmenuItem(WebGUI::URL::page("op=listUsers"), WebGUI::International::get(456)); } else { - $menu{WebGUI::URL::page("op=addUser")} = WebGUI::International::get(169); + $ac->addSubmenuItem(WebGUI::URL::page("op=addUser"), WebGUI::International::get(169)); } - return menuWrapper($_[0],\%menu); + return $ac->render($workarea, $title); } - + #------------------------------------------------------------------- sub doUserSearch { @@ -150,8 +157,6 @@ sub getUserSearchForm { sub www_addUser { my ($output, $f, $cmd, $html, %status); return WebGUI::Privilege::adminOnly() unless (WebGUI::Grouping::isInGroup(3) || WebGUI::Grouping::isInGroup(11)); - $output .= helpIcon("user add/edit"); - $output .= '

'.WebGUI::International::get(163).'

'; WebGUI::Style::setScript($session{config}{extrasURL}."/swapLayers.js", {language=>"JavaScript"}); $output .= ''; @@ -203,7 +208,7 @@ sub www_addUser { $f->submit; $output .= $f->print; $output .= $jscript; - return _submenu($output); + return _submenu($output,'163',"user add/edit"); } #------------------------------------------------------------------- @@ -251,7 +256,7 @@ sub www_becomeUser { sub www_deleteGrouping { return WebGUI::Privilege::adminOnly() unless (WebGUI::Grouping::isInGroup(3)); if (($session{user}{userId} == $session{form}{uid} || $session{form}{uid} == 3) && $session{form}{gid} == 3) { - return WebGUI::Privilege::vitalComponent(); + return _submenu(WebGUI::Privilege::vitalComponent()); } my @users = $session{cgi}->param('uid'); my @groups = $session{cgi}->param("gid"); @@ -270,16 +275,14 @@ sub www_deleteUser { my ($output); return WebGUI::Privilege::adminOnly() unless (WebGUI::Grouping::isInGroup(3)); if ($session{form}{uid} == 1 || $session{form}{uid} == 3) { - return WebGUI::Privilege::vitalComponent(); + return _submenu(WebGUI::Privilege::vitalComponent()); } else { - $output .= helpIcon("user delete"); - $output .= '

'.WebGUI::International::get(42).'

'; $output .= WebGUI::International::get(167).'

'; $output .= '

'.WebGUI::International::get(44).''; $output .= '    '. WebGUI::International::get(45).'
'; - return _submenu($output); + return _submenu($output,'42',"user delete"); } } @@ -299,7 +302,6 @@ sub www_deleteUserConfirm { #------------------------------------------------------------------- sub www_editGrouping { return WebGUI::Privilege::adminOnly() unless (WebGUI::Grouping::isInGroup(3)); - my $output .= '

'.WebGUI::International::get(370).'

'; my $f = WebGUI::HTMLForm->new; $f->hidden("op","editGroupingSave"); $f->hidden("uid",$session{form}{uid}); @@ -315,8 +317,7 @@ sub www_editGrouping { -value=>WebGUI::Grouping::userGroupAdmin($session{form}{uid},$session{form}{gid}) ); $f->submit; - $output .= $f->print; - return _submenu($output); + return _submenu($f->print,'370'); } #------------------------------------------------------------------- @@ -334,8 +335,6 @@ sub www_editUser { $u = WebGUI::User->new($session{form}{uid}); WebGUI::Style::setScript($session{config}{extrasURL}."/swapLayers.js", {language=>"JavaScript"}); $output .= ''; - $output .= helpIcon("user add/edit"); - $output .= '

'.WebGUI::International::get(168).'

'; $f = WebGUI::HTMLForm->new; $f->hidden("op","editUserSave"); $f->hidden("uid",$session{form}{uid}); @@ -378,7 +377,7 @@ sub www_editUser { $f->submit; $output .= $f->print; $output .= $jscript; - return _submenu($output); + return _submenu($output,'168',"user add/edit"); } #------------------------------------------------------------------- @@ -407,8 +406,7 @@ sub www_editUserGroup { return WebGUI::Privilege::adminOnly() unless (WebGUI::Grouping::isInGroup(3)); my %hash; tie %hash, 'Tie::CPHash'; - my $output = '

'.WebGUI::International::get(372).'

'; - $output .= WebGUI::Form::formHeader() + my $output .= WebGUI::Form::formHeader() .WebGUI::Form::hidden({ name=>"uid", value=>$session{form}{uid} @@ -464,15 +462,13 @@ sub www_editUserGroup { ); $f->submit; $output .= $f->print; - return _submenu($output); + return _submenu($output,'372'); } #------------------------------------------------------------------- sub www_editUserKarma { return WebGUI::Privilege::adminOnly() unless (WebGUI::Grouping::isInGroup(3)); my ($output, $f, $a, %user, %data, $method, $values, $category, $label, $default, $previousCategory); - $output = helpIcon("karma using"); - $output .= '

'.WebGUI::International::get(558).'

'; $f = WebGUI::HTMLForm->new; $f->hidden("op","editUserKarmaSave"); $f->hidden("uid",$session{form}{uid}); @@ -480,7 +476,7 @@ sub www_editUserKarma { $f->text("description",WebGUI::International::get(557)); $f->submit; $output .= $f->print; - return _submenu($output); + return _submenu($output,'558',"karma using"); } #------------------------------------------------------------------- @@ -497,8 +493,6 @@ sub www_editUserProfile { return WebGUI::Privilege::adminOnly() unless (WebGUI::Grouping::isInGroup(3)); my ($output, $f, $a, %user, %data, $method, $values, $category, $label, $default, $previousCategory); tie %data, 'Tie::CPHash'; - $output = helpIcon("user profile edit"); - $output .= '

'.WebGUI::International::get(455).'

'; $f = WebGUI::HTMLForm->new; $f->hidden("op","editUserProfileSave"); $f->hidden("uid",$session{form}{uid}); @@ -552,7 +546,7 @@ sub www_editUserProfile { $a->finish; $f->submit; $output .= $f->print; - return _submenu($output); + return _submenu($output,'455',"user profile edit"); } #------------------------------------------------------------------- @@ -573,9 +567,7 @@ sub www_editUserProfileSave { sub www_listUsers { return WebGUI::Privilege::adminOnly() unless (WebGUI::Grouping::isInGroup(3)); my %status; - my $output = helpIcon("users manage"); - $output .= '

'.WebGUI::International::get(149).'

'; - $output .= getUserSearchForm("listUsers"); + my $output = getUserSearchForm("listUsers"); my ($userCount) = WebGUI::SQL->quickArray("select count(*) from users"); return _submenu($output) unless ($session{form}{doit} || $userCount<250); tie %status, 'Tie::IxHash'; @@ -619,7 +611,7 @@ sub www_listUsers { } $output .= ''; $output .= $p->getBarTraditional; - return _submenu($output); + return _submenu($output,undef,"users manage"); } 1; diff --git a/lib/WebGUI/i18n/English/WebGUI.pm b/lib/WebGUI/i18n/English/WebGUI.pm index 6a2ca85ca..4199fa96b 100644 --- a/lib/WebGUI/i18n/English/WebGUI.pm +++ b/lib/WebGUI/i18n/English/WebGUI.pm @@ -6324,7 +6324,8 @@ Privileges and styles assigned to pages in the package will not be copied when t '149' => { message => q|Users|, - lastUpdated => 1031514049 + lastUpdated => 1031514049, + context => q|Title of the user manager for the admin console.| }, '625' => { @@ -6973,12 +6974,6 @@ config file.

context => q|Label of the cancel button| }, - 'users' => { - message => q|Users|, - lastUpdated =>1092930637, - context => q|Title of the user manager for the admin console.| - }, - 'trash' => { message => q|Trash|, lastUpdated =>1092930637, diff --git a/www/extras/adminConsole/adminConsole.css b/www/extras/adminConsole/adminConsole.css index e65e8d85a..544cfb612 100644 --- a/www/extras/adminConsole/adminConsole.css +++ b/www/extras/adminConsole/adminConsole.css @@ -1,18 +1,17 @@ .adminConsoleTitleIcon { position: absolute; - top: 0px; + top: 10px; left: 20px; width: 48px; height: 48px; text-align: center; - border: 1px solid #ddd; } .adminConsoleTitle { position: absolute; top: 0px; - left: 102px; + left: 85px; font-size: 50px; text-align: left; } @@ -21,6 +20,7 @@ border: 1px solid #ddd; margin: 90px 220px 50px 10px; padding: 5px; + -moz-border-radius: 10px; } .adminConsoleMenu { @@ -38,18 +38,21 @@ border: 1px solid #ddd; padding: 5px; margin: 5px; + -moz-border-radius: 10px; } .adminConsoleSubmenu { border: 1px solid #ddd; padding: 5px; margin: 5px; + -moz-border-radius: 10px; } .adminConsoleUtilityMenu { border: 1px solid #ddd; padding: 5px; margin: 5px; + -moz-border-radius: 10px; } .adminConsoleHidden { @@ -59,11 +62,17 @@ .adminConsoleApplication { float: left; - padding: 15px; + padding: 10px; text-align: center; width: 100px; font-size: 14px; font-family: helvetica, arial; + opacity: 0.7; + height: 110px; +} + +.adminConsoleApplication:hover { + opacity: 1.0; } .adminConsoleSpacer {