commit 7a9ed71e95872dd9c43e63488e80074702d33975
author Fred Drake <fdrake@acm.org> Fri Feb 12 19:00:38 1999 +0000
committer Fred Drake <fdrake@acm.org> Fri Feb 12 19:00:38 1999 +0000
tree 0018ca21cee219fa74c64871d72ffcf2c46da20d
parent 26b698fa4de6b06cf0950c8da781596a3860eca3

Moved the navigation-bar background color to a variable.

Doc/perl/l2hinit.perl

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 @@
 
 $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