doc/help/rebuildLabelHash.pl - diff

Return to rebuildLabelHash.pl CVS log

Up to [LON-CAPA] / doc / help

version 1.10, 2007/08/24 23:50:28	version 1.11, 2008/07/24 21:51:38
Line 104 foreach my $file ( glob("*.tex") ) {	Line 104 foreach my $file ( glob("*.tex") ) {
foreach my $ref ( $contents =~ /\\ref\{([^\}]*)\}/g ) {	foreach my $ref ( $contents =~ /\\ref\{([^\}]*)\}/g ) {
if (!exists($fragmentLabels{$ref})	if (!exists($fragmentLabels{$ref})
&& $ref ne 'course.manual.access.hlp'	&& $ref ne 'course.manual.access.hlp'
&& $ref ne 'author.manual.access.hlp') {	&& $ref ne 'author.manual.access.hlp'
	&& $ref ne 'domain.manual.access.hlp') {
$error++;	$error++;
print("***ERROR: ref $ref in $file doesn't exist in label hash. \n");	print("***ERROR: ref $ref in $file doesn't exist in label hash. \n");
} else {	} else {
Line 114 foreach my $file ( glob("*.tex") ) {	Line 115 foreach my $file ( glob("*.tex") ) {
}	}

use HTML::TokeParser;	use HTML::TokeParser;
foreach my $manual ('course.manual.texxml','author.manual.texxml') {	foreach my $manual ('course.manual.texxml','author.manual.texxml','domain.manual.texxml') {
my $p = HTML::TokeParser->new($path.'/'.$manual);	my $p = HTML::TokeParser->new($path.'/'.$manual);
if (!-e $path.'/'.$manual) {	if (!-e $path.'/'.$manual) {
$error++;	$error++;