version 1.131, 2005/11/01 20:47:15
|
version 1.132, 2005/11/15 22:06:50
|
Line 137 sub domain_form {
|
Line 137 sub domain_form {
|
############################################################### |
############################################################### |
# Menu Phase One |
# Menu Phase One |
sub print_main_menu { |
sub print_main_menu { |
my ($r,$enrl_permission,$view_permission)=@_; |
my ($r,$enrl_permission,$view_permission,$grp_manage_permission, |
|
$grp_view_permission)=@_; |
# |
# |
my ($cdom,$cnum) = split/_/,$env{'request.course.id'}; |
my ($cdom,$cnum) = split/_/,$env{'request.course.id'}; |
my @menu = |
my @menu = |
Line 171 sub print_main_menu {
|
Line 172 sub print_main_menu {
|
permission => &Apache::lonnet::auto_run($cnum,$cdom), |
permission => &Apache::lonnet::auto_run($cnum,$cdom), |
url => '/adm/populate', |
url => '/adm/populate', |
}, |
}, |
|
{ text => 'Create a new group', |
|
help => 'Course_Create_Group', |
|
permission => $grp_manage_permission, |
|
url => '/adm/coursegroups?refpage=enrl&action=create', |
|
}, |
|
{ text => 'Modify an existing group', |
|
help => 'Course_Modify_Group', |
|
permission => $grp_manage_permission, |
|
url => '/adm/coursegroups?refpage=enrl&action=modify', |
|
}, |
|
{ text => 'Delete an existing group', |
|
help => 'Course_Delete_Group', |
|
permission => $grp_manage_permission, |
|
url => '/adm/coursegroups?refpage=enrl&action=delete', |
|
}, |
|
{ text => 'Enter an existing group', |
|
help => 'Course_Display_Group', |
|
permission => $grp_view_permission, |
|
url => '/adm/coursegroups?refpage=enrl&action=view', |
|
}, |
); |
); |
my $menu_html = ''; |
my $menu_html = ''; |
foreach my $menu_item (@menu) { |
foreach my $menu_item (@menu) { |
Line 2289 sub handler {
|
Line 2310 sub handler {
|
if (! ($env{'request.course.fn'})) { |
if (! ($env{'request.course.fn'})) { |
# Not in a course |
# Not in a course |
$env{'user.error.msg'}= |
$env{'user.error.msg'}= |
"/adm/dropadd:cst:0:0:Cannot drop or add students"; |
"/adm/dropadd:cst:0:0:Cannot manage or view course groups, ". |
|
"or drop or add students"; |
return HTTP_NOT_ACCEPTABLE; |
return HTTP_NOT_ACCEPTABLE; |
} |
} |
# |
# |
Line 2297 sub handler {
|
Line 2319 sub handler {
|
&Apache::lonnet::allowed('vcl',$env{'request.course.id'}); |
&Apache::lonnet::allowed('vcl',$env{'request.course.id'}); |
my $enrl_permission = |
my $enrl_permission = |
&Apache::lonnet::allowed('cst',$env{'request.course.id'}); |
&Apache::lonnet::allowed('cst',$env{'request.course.id'}); |
if (! $view_permission && ! $enrl_permission) { |
|
|
my $grp_view_permission = |
|
&Apache::lonnet::allowed('vcg',$env{'request.course.id'}); |
|
my $grp_manage_permission = |
|
&Apache::lonnet::allowed('mdg',$env{'request.course.id'}); |
|
|
|
|
|
if (! $grp_view_permission && ! $grp_manage_permission && |
|
! $view_permission && ! $enrl_permission) { |
$env{'user.error.msg'}= |
$env{'user.error.msg'}= |
"/adm/dropadd:cst:0:0:Cannot drop or add students"; |
"/adm/coursegroups:cst:0:0:Cannot manage or view course groups, ". |
return HTTP_NOT_ACCEPTABLE; |
"or drop or add students"; |
|
return HTTP_NOT_ACCEPTABLE; |
} |
} |
|
|
# |
# |
# Only output the header information if they did not request csv format |
# Only output the header information if they did not request csv format |
# |
# |
Line 2314 sub handler {
|
Line 2346 sub handler {
|
if (! exists($env{'form.action'})) { |
if (! exists($env{'form.action'})) { |
$r->print(&Apache::lonhtmlcommon::breadcrumbs |
$r->print(&Apache::lonhtmlcommon::breadcrumbs |
(undef,'Enrollment Manager')); |
(undef,'Enrollment Manager')); |
&print_main_menu($r,$enrl_permission,$view_permission); |
&print_main_menu($r,$enrl_permission,$view_permission,$grp_manage_permission, |
|
$grp_view_permission); |
} elsif ($env{'form.action'} eq 'upload' && $enrl_permission) { |
} elsif ($env{'form.action'} eq 'upload' && $enrl_permission) { |
&Apache::lonhtmlcommon::add_breadcrumb |
&Apache::lonhtmlcommon::add_breadcrumb |
({href=>'/adm/dropadd?action=upload&state=', |
({href=>'/adm/dropadd?action=upload&state=', |