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++; |