--- loncom/homework/inputtags.pm	2003/04/07 20:52:58	1.87
+++ loncom/homework/inputtags.pm	2003/04/07 22:18:11	1.88
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # input  definitons
 #
-# $Id: inputtags.pm,v 1.87 2003/04/07 20:52:58 albertel Exp $
+# $Id: inputtags.pm,v 1.88 2003/04/07 22:18:11 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -340,7 +340,7 @@ sub decideoutput {
   return ($button,$message,$previousmsg);
 }
 
-sub remove_alldata {
+sub removealldata {
     my ($id)=@_;
     foreach my $key (keys(%Apache::lonhomework::results)) {
 	if (($key =~ /^resource\.\Q$id\E\./) && ($key !~ /\.collaborators$/)) {