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$/)) { |