From 7a9ed71e95872dd9c43e63488e80074702d33975 Mon Sep 17 00:00:00 2001
From: Fred Drake <fdrake@acm.org>
Date: Fri, 12 Feb 1999 19:00:38 +0000
Subject: Moved the navigation-bar background color to a variable.

---
 Doc/perl/l2hinit.perl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Doc/perl/l2hinit.perl b/Doc/perl/l2hinit.perl
index 43d5e1a..180874e 100644
--- a/Doc/perl/l2hinit.perl
+++ b/Doc/perl/l2hinit.perl
@@ -109,13 +109,14 @@ $icons{'blank'} = 'blank.' . $IMAGE_TYPE;
 
 $CUSTOM_BUTTONS = '';
 $BLANK_ICON = "\n<td>" . img_tag('blank.' . $IMAGE_TYPE) . "</td>";
+$NAV_BGCOLOR = " bgcolor=\"#99CCFF\"";
 
 sub make_nav_panel{
     ("<table width=\"100%\" cellpadding=0 cellspacing=0>\n<tr>"
      . "\n<td>$NEXT</td>"
      . "\n<td>$UP</td>"
      . "\n<td>$PREVIOUS</td>"
-     . "\n<td align=center bgcolor=\"#99CCFF\" width=\"100%\">"
+     . "\n<td align=center$NAV_BGCOLOR width=\"100%\">"
      . "\n <b>$t_title</b></td>"
      . ($CONTENTS ? "\n<td>$CONTENTS</td>" : $BLANK_ICON)
      . "\n<td>$CUSTOM_BUTTONS</td>" # module index
-- 
cgit v0.12