Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision d2d63d80

Von Sven Donath vor etwa 14 Jahren hinzugefügt

  • ID d2d63d80de28c7356e81eb1143d729e4415cd1b4
  • Vorgänger 6cf3f776
  • Nachfolger ddbe7027

Das (linksseitige) HTML-Menü komaptibel zum Textbrowser Links gemacht.
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.

Unterschiede anzeigen:

bin/mozilla/kopf.pl
111 111 
my $framesize = _calc_framesize(); # framesize calculation as in menu.pl is only a quick and dirty hack here
112 112 
                                   # it would be better to use a global or config variable
113 113 

  		




  
  114
  
    
# is there any better solution then the JS-Link for Back? Possibly with the callback variable?


  		




  
  115
  
    

  		




  114
  116
  
    
print qq|


  		




  115
  117
  
    
<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;">


  		




  116
  118
  
    
<script language='JavaScript' src='js/switchmenuframe.js'></script>


  		




  117
  119
  
    
<table border="0" width="100%" background="image/bg_titel.gif" cellpadding="0" cellspacing="0">


  		




  118
  
  
    
  <tr>


  		




  119
  
  
    
    <td  style="color:white; font-family:verdana,arial,sans-serif; font-size: 12px;" nowrap>


  		




  
  120
  
    
  <tr>|;


  		




  
  121
  
    
   if ($framesize ne 240) {    # only show the the links in case of "links" in $ENV{HTTP_USER_AGENT} (see sub _calc_framesize)


  		




  
  122
  
    
      print qq|


  		




  
  123
  
    
      <td  style="color:white; font-family:verdana,arial,sans-serif; font-size: 12px;" nowrap>


  		




  120
  124
  
    
      [<a href="JavaScript:Switch_Menu(|.$framesize.qq|);" title="| . $locale->text('Switch Menu on / off') . qq|">| . $locale->text('Menu') . qq|</a>]


  		




  121
  125
  
    
      &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>]


  		




  122
  126
  
    
      &nbsp;[<a href="JavaScript:top.main_window.print();" title="| . $locale->text('Hardcopy') . qq|">| . $locale->text('Print') . qq|</a>]


  		




  123
  127
  
    
      &nbsp;[<a href="Javascript:top.main_window.history.back();" title="| . $locale->text('Go one step back') . qq|">| . $locale->text('Back') . qq|</a>]


  		




  124
  128
  
    
      &nbsp;[<a href="Javascript:top.main_window.history.forward();" title="| . $locale->text('Go one step forward') . qq|">| . $locale->text('Fwd') . qq|</a>]


  		




  125
  
  
    
      <!-- is there any better solution for Back? Possibly with the callback variable? -->


  		




  126
  
  
    
    </td>


  		




  
  129
  
    
      </td>|;


  		




  
  130
  
    
   }


  		




  
  131
  
    
   print qq|


  		




  127
  132
  
    
    <td align="right" style="vertical-align:middle; color:white; font-family:verdana,arial,sans-serif; font-size: 12px;" nowrap>|


  		




  128
  133
  
    
  . $login . $datum . qq| <script>writeclock()</script>&nbsp;


  		




  129
  134
  
    
    </td>


  		












  

    
      bin/mozilla/menu.pl
    
  





  33
  33
  
    
# CHANGE LOG:


  		




  34
  34
  
    
#   DS. 2002-03-25  Created


  		




  35
  35
  
    
#  2004-12-14 - New Optik - Marco Welter <mawe@linux-studio.de>


  		




  36
  
  
    
#  2010-08-19 - Icons for sub entries and one click 


  		




  
  36
  
    
#  2010-08-19 - Icons for sub entries and one click


  		




  37
  37
  
    
#               JS switchable HTML-menu - Sven Donath <lxo@dexo.de>


  		




  38
  38
  
    
#######################################################################


  		




  39
  39
  
    

  		




  ......




  45
  45
  
    

  		




  46
  46
  
    
my $menufile = "menu.ini";


  		




  47
  47
  
    
my $mainlevel;


  		




  
  48
  
    
our $framesize;


  		




  48
  49
  
    

  		




  49
  50
  
    
# end of main


  		




  50
  51
  
    

  		




  ......




  82
  83
  
    

  		




  83
  84
  
    
  my $form      = $main::form;


  		




  84
  85
  
    
  my $locale    = $main::locale;


  		




  85
  
  
    
  my $framesize = _calc_framesize(); # how to get it into kopf.pl or vice versa?


  		




  
  86
  
    
     $framesize = _calc_framesize(); # how to get it into kopf.pl or vice versa?


  		




  86
  87
  
    

  		




  87
  88
  
    
  $mainlevel = $form->{level};


  		




  88
  89
  
    
  $mainlevel =~ s/\Q$mainlevel\E--//g;


  		




  ......




  97
  98
  
    

  		




  98
  99
  
    
|;


  		




  99
  100
  
    
  print qq|<div align="left">\n<table width="|


  		




  100
  
  
    
    . $framesize


  		




  
  101
  
    
    . ($framesize-2)


  		




  101
  102
  
    
    . qq|" border="0">\n|;


  		




  102
  103
  
    

  		




  103
  104
  
    
  &section_menu($menu);


  		




  ......




  199
  200
  
    
          if ($zeige) {


  		




  200
  201
  
    
            if (scalar @chunks <= 1) {


  		




  201
  202
  
    
              print


  		




  202
  
  
    
                qq|<tr><td class="hover" height="16" >$spacer| 


  		




  
  203
  
    
                qq|<tr><td class="hover" height="16" >$spacer|


  		




  203
  204
  
    
                . $menu->menuitem(\%myconfig, \%$form, $item, $level) ;


  		




  204
  
  
    
              


  		




  205
  
  
    
            if (-f "image/icons/16x16/$label_icon")


  		




  206
  
  
    
             { print 


  		




  207
  
  
    
                qq|<img src="image/icons/16x16/$label_icon" border="0" style="vertical-align:text-top" title="| 


  		




  208
  
  
    
                . $label 


  		




  209
  
  
    
                . qq|">&nbsp;&nbsp;| } 


  		




  
  205
  
    

  		




  
  206
  
    
            if (-f "image/icons/16x16/$label_icon" && ($framesize ne 240))


  		




  
  207
  
    
             { print


  		




  
  208
  
    
                qq|<img src="image/icons/16x16/$label_icon" border="0" style="vertical-align:text-top" title="|


  		




  
  209
  
    
                . $label


  		




  
  210
  
    
                . qq|">&nbsp;&nbsp;| }


  		




  210
  211
  
    
            else {


  		




  211
  
  
    
               print qq|<img src="image/unterpunkt.png" border="0" style="vertical-align:text-top">|;   


  		




  
  212
  
    
                   if ($framesize ne 240) {


  		




  
  213
  
    
                    print qq|<img src="image/unterpunkt.png" border="0" style="vertical-align:text-top">|;


  		




  
  214
  
    
                   }


  		




  212
  215
  
    
                }


  		




  213
  
  
    
                


  		




  
  216
  
    

  		




  214
  217
  
    
               print


  		




  215
  218
  
    
                 qq|$label</a></td></tr>\n|;


  		




  216
  219
  
    
            } else {


  		




  ......




  231
  234
  
    
      } else {


  		




  232
  235
  
    
        my $ml_ = $form->escape($ml);


  		




  233
  236
  
    
        print


  		




  234
  
  
    
          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|;


  		




  
  237
  
    
          qq|<tr><td class="bg" height="24" align="left" valign="middle">


  		




  
  238
  
    
          <a href="menu.pl?action=acc_menu&level=$ml_" class="nohover" title="$label">|;


  		




  
  239
  
    
              if ($framesize ne 240) {


  		




  
  240
  
    
                  print qq|<img src="image/icons/24x24/$item.png" border="0" style="vertical-align:middle" title="$label">|;


  		




  
  241
  
    
              }


  		




  
  242
  
    
          print qq|&nbsp;$label</a>&nbsp;&nbsp;&nbsp;&nbsp;</td></tr>\n|;


  		




  235
  243
  
    
        &section_menu($menu, $item);


  		




  236
  244
  
    

  		




  237
  245
  
    
        print qq|\n|;


  		












Auch abrufbar als:  Unified diff