doc/help/usage.pl - diff

Return to usage.pl CVS log

Up to [LON-CAPA] / doc / help

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