loncom/homework/grades.pm - diff

Return to grades.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.808, 2025/01/18 21:14:59	version 1.810, 2025/01/18 22:04:36
Line 4472 sub saveHandGrade {	Line 4472 sub saveHandGrade {
my %record = &Apache::lonnet::restore($symb,$env{'request.course.id'},$domain,$stuname);	my %record = &Apache::lonnet::restore($symb,$env{'request.course.id'},$domain,$stuname);
my @parts_graded;	my @parts_graded;
my %newrecord = ();	my %newrecord = ();
my ($pts,$wgt,$totchg,$sendupdate,$posspb) = ('','',0,0,0);	my ($pts,$wgt,$totchg,$sendupdate,$poss_pb) = ('','',0,0,0);
my %aggregate = ();	my %aggregate = ();
my $aggregateflag = 0;	my $aggregateflag = 0;
if ($env{'form.HIDE'.$newflg}) {	if ($env{'form.HIDE'.$newflg}) {
Line 4491 sub saveHandGrade {	Line 4491 sub saveHandGrade {
my $dropMenu = $env{'form.GD_SEL'.$newflg.'_'.$new_part};	my $dropMenu = $env{'form.GD_SEL'.$newflg.'_'.$new_part};
if ($poss_pb) {	if ($poss_pb) {
$weights{$symb}{$new_part} =	$weights{$symb}{$new_part} =
&Apache::lonnet::EXT('resource.'.$new_part.'.weight',$symb,$udom,$uname);	&Apache::lonnet::EXT('resource.'.$new_part.'.weight',$symb,$domain,$stuname);
} elsif ($env{'form.WGT'.$newflg.'_'.$new_part} eq '') {	} elsif ($env{'form.WGT'.$newflg.'_'.$new_part} eq '') {
$weights{$symb}{$new_part} = 1;	$weights{$symb}{$new_part} = 1;
} else {	} else {