--- loncom/homework/grades.pm	2021/12/17 15:16:51	1.786
+++ loncom/homework/grades.pm	2021/12/17 20:10:21	1.787
@@ -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 @@ sub updateGradeByPage {
 	    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 @@ sub updateGradeByPage {
 	    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$/,@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;