diff options
| -rw-r--r-- | Doc/perl/l2hinit.perl | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/Doc/perl/l2hinit.perl b/Doc/perl/l2hinit.perl index 6da3926..6bf86f8 100644 --- a/Doc/perl/l2hinit.perl +++ b/Doc/perl/l2hinit.perl @@ -663,9 +663,14 @@ 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*//; + join('', $MY_PARTIAL_HEADER, - &meta_information($title), + &meta_information($metatitle), "<title>", $title, "</title>\n</head>\n<body$body>"); } |