loncom/homework/grades.pm - diff

Return to grades.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.452, 2007/10/11 20:25:34	version 1.453, 2007/10/11 21:27:50
Line 526 sub getclasslist {	Line 526 sub getclasslist {
}	}
}	}
# filter students according to groups selected	# filter students according to groups selected
	my @stu_groups = split(/,/,$group);
if (@getgroup) {	if (@getgroup) {
my $exclude = 1;	my $exclude = 1;
foreach my $grp(@getgroup) {	foreach my $grp(@getgroup) {
if ($group eq $grp) {	foreach my $stu_group(@stu_groups) {
$exclude = 0;	if ($stu_group eq $grp) {
} elsif (($grp eq 'none') && !$group) {	$exclude = 0;
$exclude = 0;	}
}	}
	if (($grp eq 'none') && !$group) {
	$exclude = 0;
	}
}	}
if ($exclude) {	if ($exclude) {
delete($classlist->{$student});	delete($classlist->{$student});