--- loncom/homework/grades.pm 2007/10/09 23:03:22 1.450 +++ loncom/homework/grades.pm 2007/10/11 21:27:50 1.453 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # The LON-CAPA Grading handler # -# $Id: grades.pm,v 1.450 2007/10/09 23:03:22 banghart Exp $ +# $Id: grades.pm,v 1.453 2007/10/11 21:27:50 banghart Exp $ # # Copyright Michigan State University Board of Trustees # @@ -526,12 +526,18 @@ sub getclasslist { } } # filter students according to groups selected + my @stu_groups = split(/,/,$group); if (@getgroup) { my $exclude = 1; foreach my $grp(@getgroup) { - if ($group eq $grp) { - $exclude = 0; + foreach my $stu_group(@stu_groups) { + if ($stu_group eq $grp) { + $exclude = 0; + } } + if (($grp eq 'none') && !$group) { + $exclude = 0; + } } if ($exclude) { delete($classlist->{$student}); @@ -970,7 +976,7 @@ LISTJAVASCRIPT $ctr++; my $section = $classlist->{$student}->[&Apache::loncoursedata::CL_SECTION()]; - + my $group = $classlist->{$student}->[&Apache::loncoursedata::CL_GROUP()]; if ( $perm{'vgr'} eq 'F' ) { $gradeTable.='' if ($ctr%2 ==1); $gradeTable.=''.$ctr.' '. @@ -978,7 +984,7 @@ LISTJAVASCRIPT $student.':'.$$fullname{$student}.':::SECTION'.$section. ') " />  '."\n".''. &nameUserString(undef,$$fullname{$student},$uname,$udom). - ' '.$section.''."\n"; + ' '.$section.'/'.$group.''."\n"; if ($env{'form.showgrading'} eq 'yes' && $submitonly ne 'all') { foreach (sort keys(%status)) { @@ -7693,9 +7699,9 @@ function sanitycheck() {
-
-
-
+
+
+