Hackish way to generate an up-<link> for the title page if we have

one.

Added misc. comments.
This commit is contained in:
Fred Drake 2002-10-30 21:38:32 +00:00
parent 4a4734927d
commit dbb2b9d77e

View file

@ -724,9 +724,9 @@ sub make_str_index_entry($){
} }
%TokenToTargetMapping = (); %TokenToTargetMapping = (); # language:token -> link target
%DefinedGrammars = (); %DefinedGrammars = (); # language -> full grammar text
%BackpatchGrammarFiles = (); %BackpatchGrammarFiles = (); # file -> 1 (hash of files to fixup)
sub do_cmd_token{ sub do_cmd_token{
local($_) = @_; local($_) = @_;
@ -1647,7 +1647,18 @@ sub make_my_titlegraphic(){
sub do_cmd_maketitle{ sub do_cmd_maketitle{
local($_) = @_; local($_) = @_;
my $the_title = "\n<div class=\"titlepage\">"; my $the_title = "\n";
if ($EXTERNAL_UP_LINK) {
# This generates a <LINK> element in the wrong place (the
# body), but I don't see any other way to get this generated
# at all. Browsers like Mozilla, that support navigation
# links, can make use of this.
$the_title .= ("<link rel='up' href='$EXTERNAL_UP_LINK'"
. ($EXTERNAL_UP_TITLE
? " title='$EXTERNAL_UP_TITLE'" : '')
. ">\n");
}
$the_title .= '<div class="titlepage">';
if ($TITLE_PAGE_GRAPHIC) { if ($TITLE_PAGE_GRAPHIC) {
if ($TITLE_PAGE_GRAPHIC_ON_RIGHT) { if ($TITLE_PAGE_GRAPHIC_ON_RIGHT) {
$the_title .= ("\n<table border=\"0\" width=\"100%\">" $the_title .= ("\n<table border=\"0\" width=\"100%\">"
@ -1854,6 +1865,7 @@ sub do_cmd_seepep{
} }
sub do_cmd_seerfc{ sub do_cmd_seerfc{
# XXX Would be nice to add links to the text/plain and PDF versions.
return handle_rfclike_reference(@_[0], "RFC", $RFC_FORMAT); return handle_rfclike_reference(@_[0], "RFC", $RFC_FORMAT);
} }