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

[raeburn]

raeburn		Fri Dec 17 20:10:21 2021 EDT

  Modified files:              
    /loncom/homework	grades.pm 
  Log:
  - In &updateGradeByPage() routine, need to declare %queueable and replace
    scalar used for partID. (fix changes in rev. 1.786).    
  
  
Index: loncom/homework/grades.pm
diff -u loncom/homework/grades.pm:1.786 loncom/homework/grades.pm:1.787
--- loncom/homework/grades.pm:1.786	Fri Dec 17 15:16:51 2021
+++ loncom/homework/grades.pm	Fri Dec 17 20:10:21 2021
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Grading handler
 #
-# $Id: grades.pm,v 1.786 2021/12/17 15:16:51 raeburn Exp $
+# $Id: grades.pm,v 1.787 2021/12/17 20:10:21 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -5731,6 +5731,7 @@
 	    my @displayPts=();
             my %aggregate = ();
             my $aggregateflag = 0;
+            my %queueable;
             if ($env{'form.HIDE'.$prob}) {
                 my %record = &Apache::lonnet::restore($symbx,$env{'request.course.id'},$udom,$uname);
                 my ($version,$parts) = split(/:/,$env{'form.HIDE'.$prob},2);
@@ -5740,13 +5741,13 @@
 	    foreach my $partid (@{$parts}) {
 		my $newpts = $env{'form.GD_BOX'.$question.'_'.$partid};
 		my $oldpts = $env{'form.oldpts'.$question.'_'.$partid};
-                my @types = $curRes->responseType($part);
+                my @types = $curRes->responseType($partid);
                 if (grep(/^essay$/, at types)) {
                     $queueable{$partid} = 1;
                 } else {
-                    my @ids = $curRes->responseIds($part);
+                    my @ids = $curRes->responseIds($partid);
                     for (my $i=0; $i < scalar(@ids); $i++) {
-                        my $hndgrd = &Apache::lonnet::EXT('resource.'.$part.'_'.$ids[$i].
+                        my $hndgrd = &Apache::lonnet::EXT('resource.'.$partid.'_'.$ids[$i].
                                                           '.handgrade',$symb);
                         if (lc($hndgrd) eq 'yes') {
                             $queueable{$partid} = 1;