[LON-CAPA-cvs] cvs: loncom /homework grades.pm

[banghart]

banghart		Thu Oct 11 16:25:36 2007 EDT

  Modified files:              
    /loncom/homework	grades.pm 
  Log:
  	Saving work in progres. Selecting groups to grade seems to work,
  	needs more testing.
  
  
Index: loncom/homework/grades.pm
diff -u loncom/homework/grades.pm:1.451 loncom/homework/grades.pm:1.452
--- loncom/homework/grades.pm:1.451	Tue Oct  9 19:42:49 2007
+++ loncom/homework/grades.pm	Thu Oct 11 16:25:34 2007
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Grading handler
 #
-# $Id: grades.pm,v 1.451 2007/10/09 23:42:49 albertel Exp $
+# $Id: grades.pm,v 1.452 2007/10/11 20:25:34 banghart Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -531,6 +531,8 @@
 	    foreach my $grp(@getgroup) {
 	        if ($group eq $grp) {
 	            $exclude = 0;
+	        } elsif (($grp eq 'none') && !$group) {
+	            $exclude = 0;
 	        }
 	    }
 	    if ($exclude) {
@@ -970,7 +972,7 @@
 
 	$ctr++;
 	my $section = $classlist->{$student}->[&Apache::loncoursedata::CL_SECTION()];
-
+        my $group = $classlist->{$student}->[&Apache::loncoursedata::CL_GROUP()];
 	if ( $perm{'vgr'} eq 'F' ) {
 	    $gradeTable.='<tr bgcolor="#ffffe6">' if ($ctr%2 ==1);
 	    $gradeTable.='<td align="right">'.$ctr.'&nbsp;</td>'.
@@ -978,7 +980,7 @@
                $student.':'.$$fullname{$student}.':::SECTION'.$section.
 	       ')&nbsp;" />&nbsp;&nbsp;</label></td>'."\n".'<td>'.
 	       &nameUserString(undef,$$fullname{$student},$uname,$udom).
-	       '&nbsp;'.$section.'</td>'."\n";
+	       '&nbsp;'.$section.'/'.$group.'</td>'."\n";
 
 	    if ($env{'form.showgrading'} eq 'yes' && $submitonly ne 'all') {
 		foreach (sort keys(%status)) {