loncom/homework/inputtags.pm - diff

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.57, 2002/06/24 21:23:26	version 1.58, 2002/07/25 20:55:13
Line 346 sub setgradedata {	Line 346 sub setgradedata {
delete($Apache::lonhomework::results{"resource.$id.tries"});	delete($Apache::lonhomework::results{"resource.$id.tries"});
$Apache::lonhomework::results{"resource.$id.previous"} = '1';	$Apache::lonhomework::results{"resource.$id.previous"} = '1';
} elsif ( $previously_used eq 'PREVIOUSLY_LAST') {	} elsif ( $previously_used eq 'PREVIOUSLY_LAST') {
#delete all data as they student didn't do anything	#delete all data as they student didn't do anything, but save
	#the list of collaborators.
foreach my $key (keys(%Apache::lonhomework::results)) {	foreach my $key (keys(%Apache::lonhomework::results)) {
if ($key =~ /^resource\.$id\./) {	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});
}	}