loncom/homework/inputtags.pm - diff

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.84, 2003/02/07 22:03:21	version 1.85, 2003/03/17 21:33:33
Line 388 sub setgradedata {	Line 388 sub setgradedata {
foreach my $key (keys(%Apache::lonhomework::results)) {	foreach my $key (keys(%Apache::lonhomework::results)) {
if (($key =~ /^resource\.$id\./) && ($key !~ /\.collaborators$/)) {	if (($key =~ /^resource\.$id\./) && ($key !~ /\.collaborators$/)) {
&Apache::lonxml::debug("Removing $key");	&Apache::lonxml::debug("Removing $key");
delete($Apache::lonhomework::results{$key});	delete($Apache::lonhomework::results{$key});
}	}
}	}
#and since they didn't do anything we were never here	#and since they didn't do anything we were never here
Line 396 sub setgradedata {	Line 396 sub setgradedata {
} else {	} else {
$Apache::lonhomework::results{"resource.$id.previous"} = '0';	$Apache::lonhomework::results{"resource.$id.previous"} = '0';
}	}
	} elsif ( $Apache::lonhomework::history{"resource.$id.solved"} =~
	/^correct/ ) {
	#delete all data as they student already has it correct
	foreach my $key (keys(%Apache::lonhomework::results)) {
	if (($key =~ /^resource\.$id\./) && ($key !~ /\.collaborators$/)) {
	&Apache::lonxml::debug("Removing $key");
	delete($Apache::lonhomework::results{$key});
	}
	}
	#and since they didn't do anything we were never here
	return '';
}	}
$Apache::lonhomework::results{"resource.$id.award"} = $award;	$Apache::lonhomework::results{"resource.$id.award"} = $award;
}	}