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

[raeburn]

raeburn		Fri Dec 17 20:20:14 2021 EDT

  Modified files:              (Branch: version_2_11_X)
    /loncom/homework	grades.pm 
  Log:
  - For 2.11
    Backport 1.787 
  
  
Index: loncom/homework/grades.pm
diff -u loncom/homework/grades.pm:1.596.2.12.2.58 loncom/homework/grades.pm:1.596.2.12.2.59
--- loncom/homework/grades.pm:1.596.2.12.2.58	Fri Dec 17 15:22:13 2021
+++ loncom/homework/grades.pm	Fri Dec 17 20:20:14 2021
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Grading handler
 #
-# $Id: grades.pm,v 1.596.2.12.2.58 2021/12/17 15:22:13 raeburn Exp $
+# $Id: grades.pm,v 1.596.2.12.2.59 2021/12/17 20:20:14 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -5669,6 +5669,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);
@@ -5678,13 +5679,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;