version 1.27, 2006/06/27 00:12:23
|
version 1.28, 2006/06/28 23:56:09
|
Line 48 sub handler {
|
Line 48 sub handler {
|
my $cdom=$env{'course.'.$env{'request.course.id'}.'.domain'}; |
my $cdom=$env{'course.'.$env{'request.course.id'}.'.domain'}; |
if (defined($env{'form.group'})) { |
if (defined($env{'form.group'})) { |
$group = $env{'form.group'}; |
$group = $env{'form.group'}; |
if (! &Apache::lonnet::allowed('pgc',$env{'request.course.id'}.'/'. |
if ((! &Apache::lonnet::allowed('pgc',$env{'request.course.id'}.'/'. |
$group) ) { |
$group)) && |
|
(! &Apache::lonnet::allowed('vcg',$env{'request.course.id'}))) { |
return HTTP_NOT_ACCEPTABLE; |
return HTTP_NOT_ACCEPTABLE; |
} |
} |
my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum,$group); |
my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum,$group); |