From 0739c44bbd0972b65a549b246dc38e41a1e9711b Mon Sep 17 00:00:00 2001
From: Fred Drake <fdrake@acm.org>
Date: Thu, 4 Sep 2003 22:16:45 +0000
Subject: Suppress more online-only navigation in the printed HTML.

---
 Doc/html/style.css    |  2 +-
 Doc/perl/l2hinit.perl | 22 ++++++++++++++--------
 2 files changed, 15 insertions(+), 9 deletions(-)

diff --git a/Doc/html/style.css b/Doc/html/style.css
index bd79427..70cc235 100644
--- a/Doc/html/style.css
+++ b/Doc/html/style.css
@@ -146,5 +146,5 @@ div.note .label         { margin-right: 0.5em;
  * Some specialization for printed output.
  */
 @media print {
-  #bottom-navigation-panel { display: none; }
+  .online-navigation    { display: none; }
   }
diff --git a/Doc/perl/l2hinit.perl b/Doc/perl/l2hinit.perl
index 41b2f94..4748b8c 100644
--- a/Doc/perl/l2hinit.perl
+++ b/Doc/perl/l2hinit.perl
@@ -26,7 +26,7 @@ $BOTTOM_NAVIGATION = 1;
 $AUTO_NAVIGATION = 0;
 
 $BODYTEXT = '';
-$CHILDLINE = "\n<p></p><hr />\n";
+$CHILDLINE = "\n<p><br /></p><hr class='online-navigation' />\n";
 $VERBOSITY = 0;
 
 # default # of columns for the indexes
@@ -180,20 +180,23 @@ sub make_nav_panel() {
     $s = ('<table align="center" width="100%" cellpadding="0" cellspacing="2">'
           . "\n<tr>"
           # left-hand side
-          . "\n<td>$PREVIOUS</td>"
-          . "\n<td>$UP</td>"
-          . "\n<td>$NEXT</td>"
+          . "\n<td class='online-navigation'>$PREVIOUS</td>"
+          . "\n<td class='online-navigation'>$UP</td>"
+          . "\n<td class='online-navigation'>$NEXT</td>"
           # title box
           . "\n<td align=\"center\" width=\"100%\">$t_title</td>"
           # right-hand side
-          . "\n<td>$CONTENTS</td>"
-          . "\n<td>$CUSTOM_BUTTONS</td>" # module index
-          . "\n<td>$INDEX</td>"
+          . "\n<td class='online-navigation'>$CONTENTS</td>"
+          # module index
+          . "\n<td class='online-navigation'>$CUSTOM_BUTTONS</td>"
+          . "\n<td class='online-navigation'>$INDEX</td>"
           . "\n</tr></table>\n"
           # textual navigation
+          . "<div class='online-navigation'>\n"
           . make_nav_sectref("Previous", "prev", $PREVIOUS_TITLE)
           . make_nav_sectref("Up", "parent", $UP_TITLE)
           . make_nav_sectref("Next", "next", $NEXT_TITLE)
+          . "</div>\n"
           );
     # remove these; they are unnecessary and cause errors from validation
     $s =~ s/ NAME="tex2html\d+"\n */ /g;
@@ -205,6 +208,9 @@ sub add_child_links {
     $toc =~ s|\s*</[aA]>|</a>|g;
     $toc =~ s/ NAME=\"tex2html\d+\"\s*href=/ href=/gi;
     $toc =~ s|</UL>(\s*<BR( /)?>)?|</ul>|gi;
+    if ($toc =~ / NAME=["']CHILD_LINKS["']/) {
+        return "<div class='online-navigation'>\n$toc</div>\n";
+    }
     return $toc;
 }
 
@@ -233,7 +239,7 @@ sub top_navigation_panel() {
 }
 
 sub bot_navigation_panel() {
-    return "\n<div id='bottom-navigation-panel'>\n"
+    return "\n<div class='online-navigation'>\n"
            . "<p></p><hr />\n"
            . make_nav_panel()
            . "</div>\n"
-- 
cgit v0.12