version 1.84, 2003/02/07 22:03:21
|
version 1.86, 2003/04/02 19:51:24
|
Line 336 sub decideoutput {
|
Line 336 sub decideoutput {
|
$message = "Unknown message: $award"; |
$message = "Unknown message: $award"; |
$button=1; |
$button=1; |
} |
} |
|
if ($Apache::lonhomework::type eq 'exam') {$message='';$previousmsg='';} |
return ($button,$message,$previousmsg); |
return ($button,$message,$previousmsg); |
} |
} |
|
|
Line 388 sub setgradedata {
|
Line 389 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 397 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; |
} |
} |