[LON-CAPA-cvs] cvs: doc /help usage.pl

raeburn lon-capa-cvs-allow@mail.lon-capa.org
Tue, 29 Jul 2008 21:18:16 -0000


raeburn		Tue Jul 29 17:18:16 2008 EDT

  Modified files:              
    /doc/help	usage.pl 
  Log:
  - Add domain manual.
  
  
Index: doc/help/usage.pl
diff -u doc/help/usage.pl:1.3 doc/help/usage.pl:1.4
--- doc/help/usage.pl:1.3	Tue Sep 14 18:26:17 2004
+++ doc/help/usage.pl	Tue Jul 29 17:18:16 2008
@@ -40,7 +40,7 @@
     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 @@
     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");
     }