loncom/interface/lonhelper.pm - diff

Return to lonhelper.pm CVS log

Up to [LON-CAPA] / loncom / interface

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]);
}
}	}
}	}