$INDEX_COLUMNS = 2;
$MODULE_INDEX_COLUMNS = 4;
+$HAVE_MODULE_INDEX = 0;
+$HAVE_GENERAL_INDEX = 0;
+$HAVE_TABLE_OF_CONTENTS = 0;
+
# A little painful, but lets us clean up the top level directory a little,
# and not be tied to the current directory (as far as I can tell). Testing
sub add_bbl_and_idx_dummy_commands {
my $id = $global{'max_id'};
+ if (/[\\]tableofcontents/) {
+ $HAVE_TABLE_OF_CONTENTS = 1;
+ }
s/([\\]begin\s*$O\d+$C\s*thebibliography)/$bbl_cnt++; $1/eg;
s/([\\]begin\s*$O\d+$C\s*thebibliography)/$id++; "\\bibliography$O$id$C$O$id$C $1"/geo;
my(@parts) = split(/\\begin\s*$O\d+$C\s*theindex/);
$CUSTOM_BUTTONS .= ('<a href="modindex.html" title="Module Index">'
. get_my_icon('modules')
. '</a>');
+ $HAVE_MODULE_INDEX = 1;
+ $HAVE_GENERAL_INDEX = 1;
+ }
+ elsif (scalar(@parts) == 2) {
+ $HAVE_GENERAL_INDEX = 1;
}
else {
$CUSTOM_BUTTONS .= get_my_icon('blank');
# This is added to get rid of the long comment that follows the
# doctype declaration; MSIE5 on NT4 SP4 barfs on it and drops the
# content of the page.
+$MY_PARTIAL_HEADER = '';
sub make_head_and_body {
my($title, $body) = @_;
$body = " $body" unless ($body eq '');
$DTDcomment = "<!DOCTYPE html PUBLIC \"$DOCTYPE//"
. ($ISO_LANGUAGE ? $ISO_LANGUAGE : $isolanguage) . "\">\n";
}
+ if ($MY_PARTIAL_HEADER eq '') {
+ $STYLESHEET = $FILE.".css" unless $STYLESHEET;
+ $MY_PARTIAL_HEADER = join('',
+ ($CHARSET && $HTML_VERSION ge "2.1"
+ ? ('<meta http-equiv="Content-Type" content="text/html; '
+ . "charset=$charset\">\n")
+ : ''),
+ ($BASE ? "<base href=\"$BASE\">\n" : ''),
+ "<link rel=\"STYLESHEET\" href=\"$STYLESHEET\">\n",
+ "<link rel=\"first\" href=\"$FILE.html\">\n",
+ ($HAVE_TABLE_OF_CONTENTS
+ ? ('<link rel="contents" href="contents.html" title="Contents">'
+ . "\n")
+ : ''),
+ ($HAVE_GENERAL_INDEX
+ ? '<link rel="index" href="genindex.html" title="Index">'
+ : ''),
+ # disable for now -- Mozilla doesn't do well with multiple indexes
+ # ($HAVE_MODULE_INDEX
+ # ? '<link rel="index" href="modindex.html" title="Module Index">'
+ # . "\n"
+ # : ''),
+ $more_links_mark);
+ }
- $STYLESHEET = $FILE.".css" unless $STYLESHEET;
if (!$charset && $CHARSET) { $charset = $CHARSET; $charset =~ s/_/\-/go; }
join('', ($DOCTYPE ? $DTDcomment : '' )
- ,"<html>\n<head>\n<title>", $title, "</title>\n"
- , &meta_information($title)
- , ($CHARSET && $HTML_VERSION ge "2.1" ?
- "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=$charset\">\n"
- : "" )
- , ($BASE ? "<base href=\"$BASE\">\n" : "" )
- , "<link rel=\"STYLESHEET\" href=\"$STYLESHEET\">"
- , $more_links_mark
- , "\n</head>\n<body$body>");
+ , "<html>\n<head>\n<title>", $title, "</title>\n"
+ , &meta_information($title)
+ , $MY_PARTIAL_HEADER
+ , "\n</head>\n<body$body>");
}
1; # This must be the last line
projects / python / commitdiff