[css2] Now adds an anchor to the H1 as well (to keep the pubrules checker

happy), but doesn't use it in the ToC.

--HG--
extra : convert_revision : svn%3A73dc7c4b-06e6-40f3-b4f7-9ed1dbc14bfc/trunk%401927

Author: bert-github

css2/bin/addhanch

@@ -3,7 +3,7 @@
 # The files are rwritten.
 # Arnaud Le Hors - lehors@w3.org
 # Modifications by Bert Bos <bert@w3.org>
-# $Id: addhanch,v 2.2 1998-04-06 23:51:21 ijacobs Exp $
+# $Id: addhanch,v 2.3 2002-08-02 18:12:19 bbos Exp $
 
 use DB_File;
 use Getopt::Std;
@@ -89,16 +89,14 @@ sub addanchor {
     my $file = $chapter[$chapno];
 
     # Generate the anchor
-    if ($lvl == 1) {		# if H1, just go to the top of the page
-	$anchor = "";
-	$anchor1 = "";
-    } elsif ($content =~ /<a\s+[^>]*?name\s*=\s*(?:([^\s\">]+)|\"([^\"]+)\"|\'([^\']+)\')/io) { # Reuse first anchor in header.
+    if ($content =~ /<a\s+[^>]*?name\s*=\s*(?:([^\s\">]+)|\"([^\"]+)\"|\'([^\']+)\')/io) { # Reuse first anchor in header.
 	$anchor = "$1$2$3";	# Only one of $1, $2, $3 will match.
 	$anchor1 = "#$anchor";
     } else {
 	$anchor = "q$seqno";	# Use simple sequence number
 	$anchor1 = "#$anchor";
     }
+    $anchor1 = "" if ($lvl == 1); # if H1, just go to the top of the page
 
     # Increment the count, reset higher level counts
     $counts[$lvl]++;
@@ -120,8 +118,8 @@ sub addanchor {
     $anchors{$dbkey} = $dbentry;
 
     # Construct the new heading
-    if ($lvl == 1 || $content =~ /<a\s+[^>]*?name\s*=/sio) {
-	# Don't add anchors if H1, or if there is already an anchor
+    if ($content =~ /<a\s+[^>]*?name\s*=/sio) {
+	# Don't add anchors if there is already an anchor
 	return "$stag$num $content$etag";
     } elsif ($content =~ /<a\b/sio) {
 	# There is an A tag, insert anchor before it