--- loncom/build/Attic/parse.pl	2000/12/09 22:55:29	1.7
+++ loncom/build/Attic/parse.pl	2000/12/10 03:06:11	1.8
@@ -186,10 +186,17 @@ sub make_directory_structure_description
 <TABLE BORDER=1 CELLPADDING=3 CELLSPACING=0>
 END
     my $maxcount=0;
+    my @allfiles=keys %{$info{'LOCATION'}{$distribution}};
+    my %diraccount; # hash to track which directories are accounted for
+    foreach my $file (@allfiles) {
+	$file=~/^(.*)\/([^\/]+)$/;
+	$diraccount{$1}=1;
+    }
     foreach my $d (@$dirs) {
         my (@matches)=($d=~/\//g);
 	my $count=scalar(@matches);
 	$maxcount=$count if $count>$maxcount;
+	delete $diraccount{$d};
     }
     $description.=<<END;
 <TR>
@@ -198,6 +205,13 @@ END
 <TH ALIGN=LEFT BGCOLOR=#FFFFFF><FONT COLOR=#FF0000>Development<BR>Permissions</FONT></TH>
 END
     $description.="<TH ALIGN=LEFT BGCOLOR=#FFFFFF COLSPAN=".($maxcount+1).">Directory Path</TH>\n";
+    if (keys %diraccount) {
+	$description.= "<TR><TD ALIGN=LEFT BGCOLOR=#FFFFFF COLSPAN=".($maxcount+4)."><I><PRE>Directories that are unaccounted for: \n";
+	foreach my $d (keys %diraccount) {
+	    $description.="$d\n";
+	}
+	$description.="</PRE></I></TH></TR>\n";
+    }
     foreach my $d (@$dirs) {
 	my $dtable=$d;
 	$dtable=~s/\//\<\/TD\>\<TD\>/g;