mini_ker_t2h.init 793 B

123456789101112131415161718192021222324252627
  1. set_from_init_file('shortcontents', 1);
  2. $print_Top = \&mini_ker_print_Top;
  3. sub mini_ker_print_Top
  4. {
  5. my $fh = shift;
  6. my $has_top_heading = shift;
  7. # for redefining navigation buttons use:
  8. # my $buttons = [...];
  9. # as it is, 'Top', 'Contents', 'Index', 'About' are printed
  10. my $buttons = \@MISC_BUTTONS;
  11. &$print_head_navigation($fh, $buttons);
  12. my $nw;
  13. # top-level node is fully enclosed in @ifnothtml
  14. # print fulltitle, subtitle, author, Overview
  15. print $fh $Texi2HTML::TITLEPAGE;
  16. if (@{$Texi2HTML::OVERVIEW})
  17. {
  18. print $fh '<h2> ' . gdt('Overview:') . "</h2>\n" . "<blockquote>\n";
  19. my $nw = main::print_lines($fh, $Texi2HTML::OVERVIEW);
  20. print $fh "</blockquote>\n";
  21. }
  22. }