|
version 1.87, 2003/04/07 20:52:58
|
version 1.88, 2003/04/07 22:18:11
|
|
Line 340 sub decideoutput {
|
Line 340 sub decideoutput {
|
| return ($button,$message,$previousmsg); |
return ($button,$message,$previousmsg); |
| } |
} |
| |
|
| sub remove_alldata { |
sub removealldata { |
| my ($id)=@_; |
my ($id)=@_; |
| foreach my $key (keys(%Apache::lonhomework::results)) { |
foreach my $key (keys(%Apache::lonhomework::results)) { |
| if (($key =~ /^resource\.\Q$id\E\./) && ($key !~ /\.collaborators$/)) { |
if (($key =~ /^resource\.\Q$id\E\./) && ($key !~ /\.collaborators$/)) { |
![[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