Moved the navigation-bar background color to a variable.

diff --git a/Doc/perl/l2hinit.perl b/Doc/perl/l2hinit.perl
index 43d5e1a18e0b91354bdf31f4a4f41785a6a9376c..180874ee25b88d0ea06288e1331f5453ef15b27a 100644 (file)
--- 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