diff options
Diffstat (limited to 'Doc/perl/l2hinit.perl')
-rw-r--r-- | Doc/perl/l2hinit.perl | 15 |
1 files changed, 4 insertions, 11 deletions
diff --git a/Doc/perl/l2hinit.perl b/Doc/perl/l2hinit.perl index ce71c89..5b106e9 100644 --- a/Doc/perl/l2hinit.perl +++ b/Doc/perl/l2hinit.perl @@ -170,7 +170,7 @@ sub use_icon($$$) { my $r = get_my_icon($1); $s =~ s/\<tex2html_[a-z_]+_visible_mark\>/$r/; } - $s =~ s/<[aA] /<a rel="$rel" title="$title" \n /; + $s =~ s/<[aA] /<a rel="$rel" title="$title"\n /; $s =~ s/ HREF=/ href=/; return $s; } @@ -432,7 +432,7 @@ sub do_cmd_tableofcontents { my($closures, $reopens) = preserve_open_tags(); anchor_label('contents', $CURRENT_FILE, $_); # this is added $MY_CONTENTS_PAGE = "$CURRENT_FILE"; - join('', "<br />\n\\tableofchildlinks[off]", $closures + join('', "\\tableofchildlinks[off]", $closures , make_section_heading($toc_title, 'h2'), $toc_mark , $reopens, $_); } @@ -725,23 +725,16 @@ sub make_head_and_body($$) { $charset = $CHARSET; $charset =~ s/_/\-/go; } - # Remove section number from the title for use in the - # <meta name='description' ...> element in the document head. - my $metatitle = "$title"; - $metatitle =~ s/^\d+(\.\d+)*\s*//; - $metatitle = meta_information($metatitle); - $metatitle =~ s/ NAME=/ name=/g; - $metatitle =~ s/ CONTENT=/ content=/g; - join('', $MY_PARTIAL_HEADER, - $metatitle, "<title>", $title, "</title>\n</head>\n<body$body>"); } sub replace_morelinks { $more_links =~ s/ REL=/ rel=/g; $more_links =~ s/ HREF=/ href=/g; + $more_links =~ s/<LINK /<link /g; + $more_links =~ s/">/" \/>/g; $_ =~ s/$more_links_mark/$more_links/e; } |