--- loncom/build/Attic/parse.pl	2000/12/05 15:30:47	1.1
+++ loncom/build/Attic/parse.pl	2000/12/07 20:34:12	1.2
@@ -3,19 +3,27 @@
 # Scott Harrison
 # November 2000
 
-# read in loncapa tags and metagroup tags
+# Read in loncapa tags and metagroup tags
 
+# -------------------------------------------- Read in command line arguments
 my ($file,$mode)=@ARGV;
+
+# Read in master data file
 open IN,"<$file";
 my @lines=<IN>;
 close IN;
+
 my $info=join('',@lines);
 my $info2=$info; # value to allow for meta data group retrieval
 
 my %ihash; # big data storage object
 while ($info=~/\<loncapa\s+(.*?)\>/isg) {
     my $keystring=$1;
-    my %hash=map {my ($key,$value)=split(/\=(?!")|\=(?=\s*"[^"]*"[^"]*$)/); $value=~s/^"//; $value=~s/"$//;(uc($key),$value);} split(/\s+(?=\w+\s*\=)/,$keystring);
+    my %hash=map {my ($key,$value)=split(/\=(?!")|\=(?=\s*"[^"]*"[^"]*$)/);
+                                   $value=~s/^"//;
+ 				   $value=~s/"$//;
+                                   (uc($key),$value);}
+             split(/\s+(?=\w+\s*\=)/,$keystring);
     if (uc($hash{'TYPE'}) eq "OWNERSHIP") {
         $info{$hash{'TYPE'}}{$hash{'CATEGORY'}}{'CHMOD'}=$hash{'CHMOD'};
         $info{$hash{'TYPE'}}{$hash{'CATEGORY'}}{'CHOWN'}=$hash{'CHOWN'};