Das (linksseitige) HTML-Menü komaptibel zum Textbrowser Links gemacht.
authorSven Donath <lxo@dexo.de>
Sun, 26 Sep 2010 21:08:58 +0000 (23:08 +0200)
committerSven Donath <lxo@dexo.de>
Sun, 26 Sep 2010 21:08:58 +0000 (23:08 +0200)
Weiterhin werden die Bedienelemente (HTML-Links) im Kopf nur angezeigt,
wenn nicht der Browser Links oder Links2 verwendet wird, da sie auf JavaScript
basieren und somit keine Funktion hätten.

bin/mozilla/kopf.pl
bin/mozilla/menu.pl

index ac3935d..ad0b817 100644 (file)
@@ -111,19 +111,24 @@ window.onload=clockon
 my $framesize = _calc_framesize(); # framesize calculation as in menu.pl is only a quick and dirty hack here
                                    # it would be better to use a global or config variable
 
+# is there any better solution then the JS-Link for Back? Possibly with the callback variable?
+
 print qq|
 <body bgcolor="#ffffff" text="#ffffff" link="#ffffff" vlink="#ffffff" alink="#ffffff" topmargin="0" leftmargin="0"  marginwidth="0" marginheight="0" style="background-image: url('image/fade.png'); background-repeat:repeat-x;">
 <script language='JavaScript' src='js/switchmenuframe.js'></script>
 <table border="0" width="100%" background="image/bg_titel.gif" cellpadding="0" cellspacing="0">
-  <tr>
-    <td  style="color:white; font-family:verdana,arial,sans-serif; font-size: 12px;" nowrap>
+  <tr>|;
+   if ($framesize ne 240) {    # only show the the links in case of "links" in $ENV{HTTP_USER_AGENT} (see sub _calc_framesize)
+      print qq|
+      <td  style="color:white; font-family:verdana,arial,sans-serif; font-size: 12px;" nowrap>
       [<a href="JavaScript:Switch_Menu(|.$framesize.qq|);" title="| . $locale->text('Switch Menu on / off') . qq|">| . $locale->text('Menu') . qq|</a>]
       &nbsp;[<a HREF="login.pl" target="_blank" title="| . $locale->text('Open a further Lx-Office Window or Tab') . qq|">| . $locale->text('New Win/Tab') . qq|</a>]
       &nbsp;[<a href="JavaScript:top.main_window.print();" title="| . $locale->text('Hardcopy') . qq|">| . $locale->text('Print') . qq|</a>]
       &nbsp;[<a href="Javascript:top.main_window.history.back();" title="| . $locale->text('Go one step back') . qq|">| . $locale->text('Back') . qq|</a>]
       &nbsp;[<a href="Javascript:top.main_window.history.forward();" title="| . $locale->text('Go one step forward') . qq|">| . $locale->text('Fwd') . qq|</a>]
-      <!-- is there any better solution for Back? Possibly with the callback variable? -->
-    </td>
+      </td>|;
+   }
+   print qq|
     <td align="right" style="vertical-align:middle; color:white; font-family:verdana,arial,sans-serif; font-size: 12px;" nowrap>|
   . $login . $datum . qq| <script>writeclock()</script>&nbsp;
     </td>
index 115880d..f6305df 100644 (file)
@@ -33,7 +33,7 @@
 # CHANGE LOG:
 #   DS. 2002-03-25  Created
 #  2004-12-14 - New Optik - Marco Welter <mawe@linux-studio.de>
-#  2010-08-19 - Icons for sub entries and one click 
+#  2010-08-19 - Icons for sub entries and one click
 #               JS switchable HTML-menu - Sven Donath <lxo@dexo.de>
 #######################################################################
 
@@ -45,6 +45,7 @@ use URI;
 
 my $menufile = "menu.ini";
 my $mainlevel;
+our $framesize;
 
 # end of main
 
@@ -82,7 +83,7 @@ sub acc_menu {
 
   my $form      = $main::form;
   my $locale    = $main::locale;
-  my $framesize = _calc_framesize(); # how to get it into kopf.pl or vice versa?
+     $framesize = _calc_framesize(); # how to get it into kopf.pl or vice versa?
 
   $mainlevel = $form->{level};
   $mainlevel =~ s/\Q$mainlevel\E--//g;
@@ -97,7 +98,7 @@ sub acc_menu {
 
 |;
   print qq|<div align="left">\n<table width="|
-    . $framesize
+    . ($framesize-2)
     . qq|" border="0">\n|;
 
   &section_menu($menu);
@@ -199,18 +200,20 @@ sub section_menu {
           if ($zeige) {
             if (scalar @chunks <= 1) {
               print
-                qq|<tr><td class="hover" height="16" >$spacer| 
+                qq|<tr><td class="hover" height="16" >$spacer|
                 . $menu->menuitem(\%myconfig, \%$form, $item, $level) ;
-              
-            if (-f "image/icons/16x16/$label_icon")
-             { print 
-                qq|<img src="image/icons/16x16/$label_icon" border="0" style="vertical-align:text-top" title="| 
-                . $label 
-                . qq|">&nbsp;&nbsp;| } 
+
+            if (-f "image/icons/16x16/$label_icon" && ($framesize ne 240))
+             { print
+                qq|<img src="image/icons/16x16/$label_icon" border="0" style="vertical-align:text-top" title="|
+                . $label
+                . qq|">&nbsp;&nbsp;| }
             else {
-               print qq|<img src="image/unterpunkt.png" border="0" style="vertical-align:text-top">|;   
+                   if ($framesize ne 240) {
+                    print qq|<img src="image/unterpunkt.png" border="0" style="vertical-align:text-top">|;
+                   }
                 }
-                
+
                print
                  qq|$label</a></td></tr>\n|;
             } else {
@@ -231,7 +234,12 @@ sub section_menu {
       } else {
         my $ml_ = $form->escape($ml);
         print
-          qq|<tr><td class="bg" height="24" align="left" valign="middle"><a href="menu.pl?action=acc_menu&level=$ml_" class="nohover" title="$label"><img src="image/icons/24x24/$item.png" border="0" style="vertical-align:middle" title="$label">&nbsp;$label</a>&nbsp;&nbsp;&nbsp;&nbsp;</td></tr>\n|;
+          qq|<tr><td class="bg" height="24" align="left" valign="middle">
+          <a href="menu.pl?action=acc_menu&level=$ml_" class="nohover" title="$label">|;
+              if ($framesize ne 240) {
+                  print qq|<img src="image/icons/24x24/$item.png" border="0" style="vertical-align:middle" title="$label">|;
+              }
+          print qq|&nbsp;$label</a>&nbsp;&nbsp;&nbsp;&nbsp;</td></tr>\n|;
         &section_menu($menu, $item);
 
         print qq|\n|;