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

[banghart]

banghart		Tue Aug 21 14:41:28 2007 EDT

  Modified files:              
    /loncom/homework	grades.pm 
  Log:
  	A step toward grading selected sections. Bug 4058.
  
  
Index: loncom/homework/grades.pm
diff -u loncom/homework/grades.pm:1.429 loncom/homework/grades.pm:1.430
--- loncom/homework/grades.pm:1.429	Fri Aug 17 20:57:25 2007
+++ loncom/homework/grades.pm	Tue Aug 21 14:41:27 2007
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Grading handler
 #
-# $Id: grades.pm,v 1.429 2007/08/18 00:57:25 banghart Exp $
+# $Id: grades.pm,v 1.430 2007/08/21 18:41:27 banghart Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2971,12 +2971,13 @@
 	'<input type="hidden" name="probTitle" value="'.$env{'form.probTitle'}.'" />'."\n";
 
     my $sectionClass;
+    my $section_display = join (", ",&Apache::loncommon::get_env_multiple('form.section'));
     if ($env{'form.section'} eq 'all') {
 	$sectionClass='Class </h3>';
     } elsif ($env{'form.section'} eq 'none') {
 	$sectionClass='Students in no Section </h3>';
     } else {
-	$sectionClass='Students in Section '.$env{'form.section'}.'</h3>';
+	$sectionClass='Students in Section(s) '.$section_display.'</h3>';
     }
     $result.='<h3>Assign Common Grade To '.$sectionClass;
     $result.= '<table border=0><tr><td bgcolor="#777777">'."\n".
@@ -7544,6 +7545,10 @@
 	}
     } else {
 	&init_perm();
+#	&Apache::lonnet::logthis("command is $command");
+#	foreach my $key (keys %perm) {
+#	    &Apache::lonnet::logthis("a key is $key");
+#	}
 	if ($command eq 'submission' && $perm{'vgr'}) {
 	    ($env{'form.student'} eq '' ? &listStudents($request) : &submission($request,0,0));
 	} elsif ($command eq 'pickStudentPage' && $perm{'vgr'}) {