|
version 1.140, 2004/04/27 13:52:45
|
version 1.142, 2004/05/20 23:11:12
|
|
Line 482 sub removealldata {
|
Line 482 sub removealldata {
|
| } |
} |
| } |
} |
| |
|
| |
sub hidealldata { |
| |
my ($id)=@_; |
| |
foreach my $key (keys(%Apache::lonhomework::results)) { |
| |
if (($key =~ /^resource\.\Q$id\E\./) && ($key !~ /\.collaborators$/)) { |
| |
&Apache::lonxml::debug("Hidding $key"); |
| |
my $newkey=$key; |
| |
$newkey=~s/^(resource\.\Q$id\E\.[^\.]+\.)(.*)$/${1}hidden${2}/; |
| |
$Apache::lonhomework::results{$newkey}= |
| |
$Apache::lonhomework::results{$key}; |
| |
delete($Apache::lonhomework::results{$key}); |
| |
} |
| |
} |
| |
} |
| |
|
| sub setgradedata { |
sub setgradedata { |
| my ($award,$msg,$id,$previously_used) = @_; |
my ($award,$msg,$id,$previously_used) = @_; |
| # if the student already has it correct, don't modify the status |
# if the student already has it correct, don't modify the status |
| |
if ($Apache::lonhomework::scantronmode && defined($ENV{'form.CODE'})) { |
| |
$Apache::lonhomework::results{"resource.CODE"}=$ENV{'form.CODE'}; |
| |
} |
| if (!$Apache::lonhomework::scantronmode && |
if (!$Apache::lonhomework::scantronmode && |
| $Apache::inputtags::status['-1'] ne 'CAN_ANSWER' && |
$Apache::inputtags::status['-1'] ne 'CAN_ANSWER' && |
| $Apache::inputtags::status['-1'] ne 'CANNOT_ANSWER') { |
$Apache::inputtags::status['-1'] ne 'CANNOT_ANSWER') { |
![[BACK]](/icons/back.gif){kind=icon}
Return to inputtags.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework