Return to rebuildLabelHash.pl CVS log | Up to [LON-CAPA] / doc / help |
version 1.8, 2007/08/07 21:40:40 | version 1.9, 2007/08/07 22:46:20 |
---|---|
Line 90 foreach my $file ( glob("*.tex") ) { | Line 90 foreach my $file ( glob("*.tex") ) { |
if ( index($file, "/") != "/" ) { | if ( index($file, "/") != "/" ) { |
$file = substr($file, index($file, "/") + 1); | $file = substr($file, index($file, "/") + 1); |
} | } |
my $contents = join("\n", <F>); | my $contents; |
foreach my $line (<F>) { | |
next if ($line =~ /^%/); | |
$contents .= $line; | |
} | |
my $label; | my $label; |