--- loncom/homework/grades.pm	2014/11/08 18:26:01	1.726
+++ loncom/homework/grades.pm	2014/11/21 17:59:11	1.727
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Grading handler
 #
-# $Id: grades.pm,v 1.726 2014/11/08 18:26:01 raeburn Exp $
+# $Id: grades.pm,v 1.727 2014/11/21 17:59:11 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3019,7 +3019,8 @@ sub saveHandGrade {
     my %aggregate = ();
     my $aggregateflag = 0;
     if ($env{'form.HIDE'.$newflg}) {
-        my $numchgs = &makehidden($newflg,\%record,$symb,$domain,$stuname);
+        my ($version,$parts) = split(/:/,$env{'form.HIDE'.$newflg},2);
+        my $numchgs = &makehidden($version,$parts,\%record,$symb,$domain,$stuname);
         $totchg += $numchgs;
     }
     my @parts = split(/:/,$env{'form.partlist'.$newflg});
@@ -3128,11 +3129,10 @@ sub saveHandGrade {
 }
 
 sub makehidden {
-    my ($newflg,$record,$symb,$domain,$stuname) = @_;
+    my ($version,$parts,$record,$symb,$domain,$stuname) = @_;
     return unless (ref($record) eq 'HASH');
     my %modified;
     my $numchanged = 0;
-    my ($version,$parts) = split(/:/,$env{'form.HIDE'.$newflg},2);
     if (exists($record->{$version.':keys'})) {
         my $partsregexp = $parts;
         $partsregexp =~ s/,/|/g;
@@ -5063,7 +5063,8 @@ sub updateGradeByPage {
             my $aggregateflag = 0;
             if ($env{'form.HIDE'.$prob}) {
                 my %record = &Apache::lonnet::restore($symbx,$env{'request.course.id'},$udom,$uname);
-                my $numchgs = &makehidden($prob,\%record,$symbx,$udom,$uname);
+                my ($version,$parts) = split(/:/,$env{'form.HIDE'.$prob},2);
+                my $numchgs = &makehidden($version,$parts,\%record,$symbx,$udom,$uname);
                 $hideflag += $numchgs;
             }
 	    foreach my $partid (@{$parts}) {