--- loncom/homework/grades.pm 2014/11/21 17:59:11 1.727 +++ loncom/homework/grades.pm 2014/11/24 02:36:26 1.728 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # The LON-CAPA Grading handler # -# $Id: grades.pm,v 1.727 2014/11/21 17:59:11 raeburn Exp $ +# $Id: grades.pm,v 1.728 2014/11/24 02:36:26 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -3020,7 +3020,7 @@ sub saveHandGrade { my $aggregateflag = 0; if ($env{'form.HIDE'.$newflg}) { my ($version,$parts) = split(/:/,$env{'form.HIDE'.$newflg},2); - my $numchgs = &makehidden($version,$parts,\%record,$symb,$domain,$stuname); + my $numchgs = &makehidden($version,$parts,\%record,$symb,$domain,$stuname,1); $totchg += $numchgs; } my @parts = split(/:/,$env{'form.partlist'.$newflg}); @@ -3129,7 +3129,7 @@ sub saveHandGrade { } sub makehidden { - my ($version,$parts,$record,$symb,$domain,$stuname) = @_; + my ($version,$parts,$record,$symb,$domain,$stuname,$tolog) = @_; return unless (ref($record) eq 'HASH'); my %modified; my $numchanged = 0; @@ -3150,7 +3150,7 @@ sub makehidden { } if (keys(%modified)) { if (&Apache::lonnet::putstore($env{'request.course.id'},$symb,$version,\%modified, - $domain,$stuname) eq 'ok') { + $domain,$stuname,$tolog) eq 'ok') { $numchanged ++; } } @@ -5064,7 +5064,7 @@ sub updateGradeByPage { 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); - my $numchgs = &makehidden($version,$parts,\%record,$symbx,$udom,$uname); + my $numchgs = &makehidden($version,$parts,\%record,$symbx,$udom,$uname,1); $hideflag += $numchgs; } foreach my $partid (@{$parts}) {