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

www www@source.lon-capa.org
Wed, 14 Apr 2010 15:04:59 -0000


www		Wed Apr 14 15:04:59 2010 EDT

  Modified files:              
    /loncom/homework	grades.pm 
  Log:
  Continuing fixing up $symb-transfer
  
  
Index: loncom/homework/grades.pm
diff -u loncom/homework/grades.pm:1.618 loncom/homework/grades.pm:1.619
--- loncom/homework/grades.pm:1.618	Wed Apr 14 00:38:09 2010
+++ loncom/homework/grades.pm	Wed Apr 14 15:04:58 2010
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Grading handler
 #
-# $Id: grades.pm,v 1.618 2010/04/14 00:38:09 www Exp $
+# $Id: grades.pm,v 1.619 2010/04/14 15:04:58 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1129,7 +1129,7 @@
 
 #     Displays the submissions for one student or a group of students
 sub processGroup {
-    my ($request)  = shift;
+    my ($request,$symb)  = @_;
     my $ctr        = 0;
     my @stuchecked = &Apache::loncommon::get_env_multiple('form.stuinfo');
     my $total      = scalar(@stuchecked)-1;
@@ -1139,7 +1139,7 @@
 	$env{'form.student'}        = $uname;
 	$env{'form.userdom'}        = $udom;
 	$env{'form.fullname'}       = $fullname;
-	&submission($request,$ctr,$total);
+	&submission($request,$ctr,$total,$symb);
 	$ctr++;
     }
     return '';
@@ -2208,6 +2208,7 @@
     $request->print('<input type="hidden" name="unamedom'.$counter.'" value="'.$uname.':'
 	.$udom.'" />'."\n");
     # return if view submission with no grading option
+# FIXME: the logic seems off here. Why show the grade button if you cannot grade?
     if (!&canmodify($usec)) {
 	my $toGrade.='<input type="button" value="Grade Student" '.
 	    'onclick="javascript:checksubmit(this.form,\'Grade Student\',\''
@@ -9188,7 +9189,8 @@
                                        {href=>'',text=>'Store grades'}],1,1);
 	    &updateGradeByPage($request,$symb);
 	} elsif ($command eq 'processGroup' && $perm{'vgr'}) {
-            &startpage($request,$symb);
+            &startpage($request,$symb,[{href=>'',text=>'...'},
+                                       {href=>'',text=>'Modify grades'}]);
 	    &processGroup($request,$symb);
 	} elsif ($command eq 'gradingmenu' && $perm{'vgr'}) {
             &startpage($request,$symb);