[Python-checkins] python/dist/src/Doc/perl l2hinit.perl,1.85,1.86

Fri Nov 5 07:42:24 CET 2004

Update of /cvsroot/python/python/dist/src/Doc/perl
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4531/perl
Modified Files:
	l2hinit.perl 
Log Message:
- remove some bogus <meta> tags from the document head
- clean up some of the generated markup
Index: l2hinit.perl
===================================================================
RCS file: /cvsroot/python/python/dist/src/Doc/perl/l2hinit.perl,v
retrieving revision 1.85
retrieving revision 1.86
diff -u -d -r1.85 -r1.86

--- l2hinit.perl	5 Nov 2004 05:06:08 -0000	1.85
+++ l2hinit.perl	5 Nov 2004 06:42:22 -0000	1.86
@@ -170,7 +170,7 @@
 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 @@
 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 @@
 $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;
 }
 
