[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");
}