--- doc/help/usage.pl	2004/09/14 22:26:17	1.3
+++ doc/help/usage.pl	2008/07/29 21:18:16	1.4
@@ -40,7 +40,7 @@ sub print_unused {
     foreach my $file (@{ $all }) {
 	$all{$file}=[];
     }
-    my @order=('author','course','developer');
+    my @order=('author','course','developer','domain');
     foreach my $list (@{ $usage }) {
 	foreach my $file (@{ $list }) {
 	    if (exists($all{$file})) { 
@@ -93,13 +93,13 @@ sub main {
     my @author_usage=&get_usage('author');
     my @course_usage=&get_usage('course');
     my @developer_usage=&get_usage('developer');
-
+    my @domain_usage=&get_usage('domain');
     if     ($usage) {
 	&print_unused(\@all_files,[\@author_usage,\@course_usage,
-				   \@developer_usage]);
+				   \@developer_usage,\@domain_usage]);
     } elsif($build_unused) {
 	&texxml_unused(\@all_files,[\@author_usage,\@course_usage,
-				    \@developer_usage]);
+				    \@developer_usage,\@domain_usage]);
     } else {
 	print("Please specify either --usage or --build-unused\n");
     }