File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change 11# !/usr/local/bin/perl
22# Add index anchors to source file _and_ generate index database
33# Arnaud Le Hors - lehors@w3.org
4- # $Id: addianch,v 1.5 1997-08-01 17:03:03 ijacobs Exp $
4+ # $Id: addianch,v 1.6 1997-09-08 14:59:43 ian Exp $
55
66if (($_ = $ARGV [0], /^-r /) && $ARGV [0]) {
77 shift ;
@@ -116,7 +116,7 @@ sub addanchor {
116116 # HACK!!!
117117 # add a non breakable space in the anchor to workaround
118118 # broken browsers which don't support correctly empty anchors
119- return " $st <a name=\" " . $anchor . " \" > </a>$content $et" ;
119+ return " $st$content <a name=\" " . $anchor . " \" > </a>$et " ;
120120# if the span tags are to be removed use the following two lines instead
121121# return "<a name=\"" . $anchor . "\"> </a>$content";
122122}
Original file line number Diff line number Diff line change 11# !/usr/local/bin/perl
22# Add index anchors to source file _and_ generate index database
33# Arnaud Le Hors - lehors@w3.org
4- # $Id: addianch,v 1.5 1997-08-01 17:03:03 ijacobs Exp $
4+ # $Id: addianch,v 1.6 1997-09-08 14:59:43 ian Exp $
55
66if (($_ = $ARGV [0], /^-r /) && $ARGV [0]) {
77 shift ;
@@ -116,7 +116,7 @@ sub addanchor {
116116 # HACK!!!
117117 # add a non breakable space in the anchor to workaround
118118 # broken browsers which don't support correctly empty anchors
119- return " $st <a name=\" " . $anchor . " \" > </a>$content $et" ;
119+ return " $st$content <a name=\" " . $anchor . " \" > </a>$et " ;
120120# if the span tags are to be removed use the following two lines instead
121121# return "<a name=\"" . $anchor . "\"> </a>$content";
122122}
You can’t perform that action at this time.
0 commit comments