doc/help/usage.pl - diff

Return to usage.pl CVS log

Up to [LON-CAPA] / doc / help

version 1.1, 2004/09/14 19:47:02	version 1.2, 2004/09/14 19:57:15
Line 30 sub print_unused {	Line 30 sub print_unused {
my ($all,$usage)=@_;	my ($all,$usage)=@_;
my %all;	my %all;
my %no_exist;	my %no_exist;
foreach my $file (@{ $all }) {$all{$file}=0;}	foreach my $file (@{ $all }) {$all{$file}=[];}
	my @order=('author','course','developer');
foreach my $list (@{ $usage }) {	foreach my $list (@{ $usage }) {
foreach my $file (@{ $list }) {	foreach my $file (@{ $list }) {
if (exists($all{$file})) { $all{$file}++; } else { $no_exist{$file}++; }	if (exists($all{$file})) {
	push(@{$all{$file}},$order[0]);
	} else {
	push(@{$no_exist{$file}},$order[0]);
	}
}	}
	shift(@order);
}	}
print("Usage count for existing Files:\n");	print("Usage count for existing Files:\n");
foreach my $file (sort {uc($a) cmp uc($b)} (keys(%all))) {	foreach my $file (sort {uc($a) cmp uc($b)} (keys(%all))) {
printf("%-50s: %s\n",$file,$all{$file});	if (scalar(@{ $all{$file} }) ne 0) {
	printf("%-50s: %s in %s\n",$file,scalar(@{$all{$file}}),
	join(',',@{$all{$file}}));
	} else {
	printf("%-50s: %s\n",$file,scalar(@{$all{$file}}));
	}
}	}
print("Usage count for nonexistint Files:\n");	print("Usage count for nonexistint Files:\n");
foreach my $file (sort {uc($a) cmp uc($b)} (keys(%no_exist))) {	foreach my $file (sort {uc($a) cmp uc($b)} (keys(%no_exist))) {
printf("%-50s: %s\n",$file,$no_exist{$file});	printf("%-50s: %s in %s\n",$file,scalar(@{$no_exist{$file}}),
	join(',',@{$no_exist{$file}}));
}	}
}	}