|
version 1.141, 2004/04/29 07:57:47
|
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 |
![[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