--- loncom/build/Attic/parse.pl	2000/12/07 20:34:12	1.2
+++ loncom/build/Attic/parse.pl	2000/12/07 20:42:13	1.3
@@ -8,7 +8,7 @@
 # -------------------------------------------- Read in command line arguments
 my ($file,$mode)=@ARGV;
 
-# Read in master data file
+# -------------------------------------------- Read in master data file
 open IN,"<$file";
 my @lines=<IN>;
 close IN;
@@ -52,7 +52,7 @@ while ($info=~/\<loncapa\s+(.*?)\>/isg)
 	    if ($data=~/\<($m)\>(.*?)\<\/$m\>/sgi) {
 		my ($key,$value)=($1,$2);
 		$info{$hash{'TYPE'}}{$hash{'DIST'}}{$hash{'TARGET'}}{$key}=$value;
-		print "$key\n\n$value\n\n\n\n";
+#		print "$key\n\n$value\n\n\n\n";
 	    }
         }
     }