version 1.141, 2006/05/08 22:01:11
|
version 1.142, 2006/05/09 14:38:10
|
Line 3177 sub start_section {
|
Line 3177 sub start_section {
|
return if ($token->[2]{'onlysections'}); |
return if ($token->[2]{'onlysections'}); |
|
|
# add in groups to the end of the list |
# add in groups to the end of the list |
my %curr_groups; |
my %curr_groups = &Apache::loncommon::coursegroups(); |
if (&Apache::loncommon::coursegroups(\%curr_groups)) { |
foreach my $group_name (sort(keys(%curr_groups))) { |
foreach my $group_name (sort(keys(%curr_groups))) { |
push(@{$paramHash->{CHOICES}}, [$group_name, $group_name]); |
push(@{$paramHash->{CHOICES}}, [$group_name, $group_name]); |
|
} |
|
} |
} |
} |
} |
|
|
Line 3243 sub start_group {
|
Line 3241 sub start_group {
|
# Populate the CHOICES element |
# Populate the CHOICES element |
my %choices; |
my %choices; |
|
|
my %curr_groups; |
my %curr_groups = &Apache::loncommon::coursegroups(); |
if (&Apache::loncommon::coursegroups(\%curr_groups)) { |
foreach my $group_name (sort(keys(%curr_groups))) { |
foreach my $group_name (sort(keys(%curr_groups))) { |
push(@{$paramHash->{CHOICES}}, [$group_name, $group_name]); |
push(@{$paramHash->{CHOICES}}, [$group_name, $group_name]); |
|
} |
|
} |
} |
} |
} |
|
|