don't sow underlinks on launch index frame 0

diff --git a/bsta_lib.1.pm b/bsta_lib.1.pm
index c8dc266739c641e0d7f7c3e66e8d9f503b9eed8a..7fe9a8e5e0847fcd16f5fd4b70759772239734d8 100644 (file)
--- a/bsta_lib.1.pm
+++ b/bsta_lib.1.pm
@@ -970,6 +970,7 @@ sub print_viewer_page {
        );
        my $show_command_link = ($next_available || (!$access));
        my $show_command_cursor = ((!$next_available) || ($command eq ''));
+       my $show_underlinks = !$launch;
        my $show_words = ($password_ok || ($access && !$launch));
        
        my $frame_indirect = !(
@@ -1325,35 +1326,37 @@ sub print_viewer_page {
        print $fh "<br>\n";
        print $fh "    </div>\n";
        
-       print $fh '    <div id="underlinks">'."\n     ";
-       
-       unless (($frame == 0) && $static) {
-               print $fh '<a href="'.$_base_url.'">Once again</a> | ';
-       }
-       if ($prev_available) {
-               print $fh '<a href="'.$_viewer_prev_url.'">Before</a> | ';
-       }
-       unless ($frame == $last_frame) {
-               print $fh '<a href="'.$_viewer_last_url.'">Now</a> | ';
-       }
-       print $fh '<a href="'.$_goto_url.'">GOTO</a>'."\n";
-       print $fh '     <span style="float: right;">'."\n      ";
-       if (
-               ($text_mode == TEXT_MODE->{'normal'})
-               # && (!$goto)
-       ){
-               if ($show_words) {
-                       print $fh '<a href="'.$_words_url.'">'.$words_link_text.'</a> | ';
+       if ($show_underlinks) {
+               print $fh '    <div id="underlinks">'."\n     ";
+               
+               unless (($frame == 0) && $static) {
+                       print $fh '<a href="'.$_base_url.'">Once again</a> | ';
                }
+               if ($prev_available) {
+                       print $fh '<a href="'.$_viewer_prev_url.'">Before</a> | ';
+               }
+               unless ($frame == $last_frame) {
+                       print $fh '<a href="'.$_viewer_last_url.'">Now</a> | ';
+               }
+               print $fh '<a href="'.$_goto_url.'">GOTO</a>'."\n";
+               print $fh '     <span style="float: right;">'."\n      ";
+               if (
+                       ($text_mode == TEXT_MODE->{'normal'})
+                       # && (!$goto)
+               ){
+                       if ($show_words) {
+                               print $fh '<a href="'.$_words_url.'">'.$words_link_text.'</a> | ';
+                       }
+               }
+               else {
+                       print $fh '<a href="'.$_viewer_url.'">Without</a> | ';
+               }
+               print $fh '<a href="'.$_info_url.'">Info</a> | ';
+               print $fh '<a href="'.$_bbcode_url.'">BB</a>';
+               print $fh "\n     </span>\n";
+               
+               print $fh "    </div>\n";
        }
-       else {
-               print $fh '<a href="'.$_viewer_url.'">Without</a> | ';
-       }
-       print $fh '<a href="'.$_info_url.'">Info</a> | ';
-       print $fh '<a href="'.$_bbcode_url.'">BB</a>';
-       print $fh "\n     </span>\n";
-       
-       print $fh "    </div>\n";
        
        if ($goto) {
                print $fh '    <div class="underlinks" id="goto">'."\n";