version 1.201, 2018/08/29 20:21:30
|
version 1.203, 2022/06/11 14:51:49
|
Line 2162 sub start_resource {
|
Line 2162 sub start_resource {
|
$paramHash->{'addstatus'} = $token->[2]{'addstatus'}; |
$paramHash->{'addstatus'} = $token->[2]{'addstatus'}; |
$paramHash->{'addparts'} = $token->[2]{'addparts'}; |
$paramHash->{'addparts'} = $token->[2]{'addparts'}; |
$paramHash->{'modalLink'} = $token->[2]{'modallink'}; |
$paramHash->{'modalLink'} = $token->[2]{'modallink'}; |
|
$paramHash->{'nocurrloc'} = $token->[2]{'nocurrloc'}; |
|
$paramHash->{'suppressNavmap'} = $token->[2]{'suppressNavmap'}; |
if ($paramHash->{'addparts'}) { |
if ($paramHash->{'addparts'}) { |
$helper->declareVar($paramHash->{'variable'}.'_part'); |
$helper->declareVar($paramHash->{'variable'}.'_part'); |
} |
} |
Line 2554 RADIO
|
Line 2556 RADIO
|
'include_top_level_map' => $self->{'include_top_level_map'}, |
'include_top_level_map' => $self->{'include_top_level_map'}, |
'iterator_map' => $mapUrl, |
'iterator_map' => $mapUrl, |
'map_no_edit_link' => 1, |
'map_no_edit_link' => 1, |
'modalLink' => $modalLink, } |
'modalLink' => $modalLink, |
|
'nocurrloc' => $self->{'nocurrloc'}, |
|
'suppressNavmap' => $self->{'suppressNavmap'}, } |
); |
); |
|
|
$result .= $buttons; |
$result .= $buttons; |
Line 3327 sub start_group {
|
Line 3331 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]); |