loncom/interface/lonhelper.pm - diff

Return to lonhelper.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.150, 2006/05/16 20:45:26	version 1.151, 2006/05/18 01:08:51
Line 183 use Apache::File;	Line 183 use Apache::File;
use Apache::lonxml;	use Apache::lonxml;
use Apache::lonlocal;	use Apache::lonlocal;
use Apache::lonnet;	use Apache::lonnet;
	use Apache::longroup;
use Apache::lonselstudent;	use Apache::lonselstudent;

# Register all the tags with the helper, so the helper can	# Register all the tags with the helper, so the helper can
Line 2848 sub start_section {	Line 2849 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 = &Apache::loncommon::coursegroups();	my %curr_groups = &Apache::longroup::coursegroups();
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 2912 sub start_group {	Line 2913 sub start_group {
# Populate the CHOICES element	# Populate the CHOICES element
my %choices;	my %choices;

my %curr_groups = &Apache::loncommon::coursegroups();	my %curr_groups = &Apache::longroup::coursegroups();
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]);
}	}