--- loncom/homework/inputtags.pm	2004/04/29 07:57:47	1.141
+++ loncom/homework/inputtags.pm	2004/05/20 23:11:12	1.142
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # input  definitons
 #
-# $Id: inputtags.pm,v 1.141 2004/04/29 07:57:47 albertel Exp $
+# $Id: inputtags.pm,v 1.142 2004/05/20 23:11:12 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -480,6 +480,20 @@ sub removealldata {
 	    delete($Apache::lonhomework::results{$key});
 	}
     }
+}
+
+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 {