traverseda
/
cpython
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

- remove some bogus <meta> tags from the document head 

- clean up some of the generated markup
This commit is contained in:
Fred Drake 2004-11-05 06:42:22 +00:00
parent 0384be3b07
commit e0bdaefaf4
1 changed files with 4 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
Doc/perl/l2hinit.perl
View File

@ -432,7 +432,7 @@ sub do_cmd_tableofcontents {
my($closures, $reopens) = preserve_open_tags(); my($closures, $reopens) = preserve_open_tags();
anchor_label('contents', $CURRENT_FILE, $_); # this is added anchor_label('contents', $CURRENT_FILE, $_); # this is added
$MY_CONTENTS_PAGE = "$CURRENT_FILE"; $MY_CONTENTS_PAGE = "$CURRENT_FILE";
join('', "<br />\n\\tableofchildlinks[off]", $closures join('', "\\tableofchildlinks[off]", $closures
, make_section_heading($toc_title, 'h2'), $toc_mark , make_section_heading($toc_title, 'h2'), $toc_mark
, $reopens, $_); , $reopens, $_);
} }
@ -725,23 +725,16 @@ sub make_head_and_body($$) {
$charset = $CHARSET; $charset = $CHARSET;
$charset =~ s/_/\-/go; $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('', join('',
$MY_PARTIAL_HEADER, $MY_PARTIAL_HEADER,
$metatitle,
"<title>", $title, "</title>\n</head>\n<body$body>"); "<title>", $title, "</title>\n</head>\n<body$body>");
} }
sub replace_morelinks { sub replace_morelinks {
$more_links =~ s/ REL=/ rel=/g; $more_links =~ s/ REL=/ rel=/g;
$more_links =~ s/ HREF=/ href=/g; $more_links =~ s/ HREF=/ href=/g;
$more_links =~ s/<LINK /<link /g;
$more_links =~ s/">/" \/>/g;
$_ =~ s/$more_links_mark/$more_links/e; $_ =~ s/$more_links_mark/$more_links/e;
} }