version 1.207, 2007/12/12 23:59:41
|
version 1.208, 2007/12/13 01:08:47
|
Line 2633 sub handler {
|
Line 2633 sub handler {
|
if (! exists($env{'form.action'})) { |
if (! exists($env{'form.action'})) { |
$r->print(&header()); |
$r->print(&header()); |
$r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management')); |
$r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management')); |
$r->print(&print_main_menu($permission)); |
$r->print(&print_main_menu($permission,$context)); |
$r->print(&Apache::loncommon::end_page()); |
$r->print(&Apache::loncommon::end_page()); |
} elsif ($env{'form.action'} eq 'upload' && $permission->{'cusr'}) { |
} elsif ($env{'form.action'} eq 'upload' && $permission->{'cusr'}) { |
$r->print(&header()); |
$r->print(&header()); |
Line 2853 END
|
Line 2853 END
|
############################################################### |
############################################################### |
# Menu Phase One |
# Menu Phase One |
sub print_main_menu { |
sub print_main_menu { |
my ($permission) = @_; |
my ($permission,$context) = @_; |
|
my %links = ( |
|
domain => { |
|
upload => 'Upload a File of Users', |
|
singleuser => 'Add/Manage a Single User', |
|
listusers => 'Manage Multiple Users', |
|
}, |
|
author => { |
|
upload => 'Upload a File of Co-authors', |
|
singleuser => 'Add/Manage a Single Co-author', |
|
listusers => 'Display Co-authors and Manage Multiple Users', |
|
}, |
|
course => { |
|
upload => 'Upload a File of Course Users', |
|
singleuser => 'Add/Manage a Single Course User', |
|
listusers => 'Display Class Lists and Manage Multiple Users', |
|
}, |
|
); |
my @menu = |
my @menu = |
( |
( |
{ text => 'Upload a File of Users to Modify/Create Users and/or Add roles', |
{ text => $links{$context}{'upload'}, |
help => 'User_Management_Upload', |
help => 'User_Management_Upload', |
action => 'upload', |
action => 'upload', |
permission => $permission->{'cusr'}, |
permission => $permission->{'cusr'}, |
}, |
}, |
{ text => 'Create User/Set User Roles for a single user', |
{ text => $links{$context}{'singleuser'}, |
help => 'User_Management_Single_User', |
help => 'User_Management_Single_User', |
action => 'singleuser', |
action => 'singleuser', |
permission => $permission->{'cusr'}, |
permission => $permission->{'cusr'}, |
}, |
}, |
{ text => 'Display Lists of Users', |
{ text => $links{$context}{'listusers'}, |
help => 'User_Management_List', |
help => 'User_Management_List', |
action => 'listusers', |
action => 'listusers', |
permission => $permission->{'view'}, |
permission => ($permission->{'view'} || $permission->{'cusr'}), |
}, |
|
# { text => 'Expire User Roles', |
|
# help => 'User_Management_Drops', |
|
# action => 'expire', |
|
# permission => $permission->{'cusr'}, |
|
# }, |
|
{ text => 'Edit Custom Roles', |
|
help => 'Custom_Role_Edit', |
|
action => 'custom', |
|
permission => $permission->{'custom'}, |
|
}, |
}, |
); |
); |
|
if ($context eq 'domain' || $context eq 'course') { |
|
my $customlink = { text => 'Edit Custom Roles', |
|
help => 'Custom_Role_Edit', |
|
action => 'custom', |
|
permission => $permission->{'custom'}, |
|
}; |
|
push(@menu,$customlink); |
|
} |
|
if ($context eq 'course') { |
|
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
|
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
|
my @courselinks = |
|
( |
|
{ text => 'Automated Enrollment Manager', |
|
permission => (&Apache::lonnet::auto_run($cnum,$cdom) |
|
&& $permission->{'cusr'}), |
|
url => '/adm/populate', |
|
}, |
|
{ text => 'Manage Course Groups', |
|
help => 'Course_Manage_Group', |
|
permission => $permission->{'grp_manage'}, |
|
url => '/adm/coursegroups?refpage=cusr', |
|
}, |
|
); |
|
push(@menu,@courselinks); |
|
} |
my $menu_html = ''; |
my $menu_html = ''; |
foreach my $menu_item (@menu) { |
foreach my $menu_item (@menu) { |
next if (! $menu_item->{'permission'}); |
next if (! $menu_item->{'permission'}); |