[Python-checkins] python/dist/src/Doc/perl l2hinit.perl,1.68,1.69
fdrake@users.sourceforge.net
fdrake@users.sourceforge.net
Fri, 02 May 2003 11:08:20 -0700
Update of /cvsroot/python/python/dist/src/Doc/perl
In directory sc8-pr-cvs1:/tmp/cvs-serv29005
Modified Files:
l2hinit.perl
Log Message:
Remove section number from the title for use in the
<meta name='description' ...> element in the document head.
Index: l2hinit.perl
===================================================================
RCS file: /cvsroot/python/python/dist/src/Doc/perl/l2hinit.perl,v
retrieving revision 1.68
retrieving revision 1.69
diff -C2 -d -r1.68 -r1.69
*** l2hinit.perl 30 Oct 2002 21:51:18 -0000 1.68
--- l2hinit.perl 2 May 2003 18:08:16 -0000 1.69
***************
*** 664,670 ****
$charset =~ s/_/\-/go;
}
join('',
$MY_PARTIAL_HEADER,
! &meta_information($title),
"<title>", $title, "</title>\n</head>\n<body$body>");
}
--- 664,675 ----
$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*//;
+
join('',
$MY_PARTIAL_HEADER,
! &meta_information($metatitle),
"<title>", $title, "</title>\n</head>\n<body$body>");
}