version 1.201, 2018/08/29 20:21:30
|
version 1.202, 2018/09/03 16:43:47
|
Line 3327 sub start_group {
|
Line 3327 sub start_group {
|
if ((!$paramHash->{'grouponly'}) || (&Apache::lonnet::allowed('mdg',$Apache::lonnet::env{'request.course.id'}))) { |
if ((!$paramHash->{'grouponly'}) || (&Apache::lonnet::allowed('mdg',$Apache::lonnet::env{'request.course.id'}))) { |
%curr_groups = &Apache::longroup::coursegroups(); |
%curr_groups = &Apache::longroup::coursegroups(); |
} elsif ($Apache::lonnet::env{'request.course.groups'} ne '') { |
} elsif ($Apache::lonnet::env{'request.course.groups'} ne '') { |
map { $curr_groups{$_} = 1; } split(/,/,$Apache::lonnet::env{'request.course.groups'}); |
map { $curr_groups{$_} = 1; } split(/:/,$Apache::lonnet::env{'request.course.groups'}); |
} |
} |
foreach my $group_name (sort {lc($a) cmp lc($b)} (keys(%curr_groups))) { |
foreach my $group_name (sort {lc($a) cmp lc($b)} (keys(%curr_groups))) { |
push(@{$paramHash->{CHOICES}}, [$group_name, $group_name]); |
push(@{$paramHash->{CHOICES}}, [$group_name, $group_name]); |