[LON-CAPA-cvs] cvs: doc /help rebuildLabelHash.pl

[albertel]

albertel		Tue Aug  7 18:46:20 2007 EDT

  Modified files:              
    /doc/help	rebuildLabelHash.pl 
  Log:
  - ignore \ref is they are on a commented out line in the .tex file
  
  
Index: doc/help/rebuildLabelHash.pl
diff -u doc/help/rebuildLabelHash.pl:1.8 doc/help/rebuildLabelHash.pl:1.9
--- doc/help/rebuildLabelHash.pl:1.8	Tue Aug  7 17:40:40 2007
+++ doc/help/rebuildLabelHash.pl	Tue Aug  7 18:46:20 2007
@@ -90,7 +90,11 @@
     if ( index($file, "/") != "/" ) {
 	$file = substr($file, index($file, "/") + 1);
     } 
-    my $contents = join("\n", <F>);
+    my $contents;
+    foreach my $line (<F>) {
+	next if ($line =~ /^%/);
+	$contents .= $line;
+    }
     my $label;