Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 40255f36

Von Sven Schöling vor etwa 15 Jahren hinzugefügt

  • ID 40255f36b6d4986caa11f5136a3d18857c2231a7
  • Vorgänger 2c7a89dd
  • Nachfolger ebceac3e

Fenster und Tabtitle im XUL Menü gefixt.

Ausserdem unterstützt login.pl jetzt den Parameter callback in allen
Menüs. Solange keiner angegeben ist, wird nach wie vor company_logo
aufegrufen, ansonsten die übergebene relative oder absolute url, und im
iframe aufgerufen.

Unterschiede anzeigen:

bin/mozilla/menu.pl
48 48
sub display {
49 49
  $lxdebug->enter_sub();
50 50

  
51
  $form->{callback}   = $form->unescape($form->{callback});
52
  $form->{callback} ||= "login.pl?action=company_logo";
53

  
51 54
  $form->header;
52 55

  
53 56
  print qq|
......
55 58
  <frame  src="kopf.pl" name="kopf"  scrolling="NO">
56 59
  <frameset cols="$framesize,*" framespacing="0" frameborder="0" border="0" >
57 60
    <frame src="$form->{script}?action=acc_menu" name="acc_menu"  scrolling="auto" noresize marginwidth="0">
58
    <frame src="login.pl?action=company_logo" name="main_window" scrolling="auto">
61
    <frame src="$form->{callback}" name="main_window" scrolling="auto">
59 62
  </frameset>
60 63
  <noframes>
61 64
  You need a browser that can read frames to see this page.
......
115 118
    $label_icon = $label . ".gif";
116 119
    $mlab       = $label;
117 120
    $label      = $locale->text($label);
118
 
121

  
119 122
    # multi line hack, sschoeling jul06
120
    # if a label is too long, try to split it at whitespaces, then join it to chunks of less 
123
    # if a label is too long, try to split it at whitespaces, then join it to chunks of less
121 124
    # than 20 chars and store it in an array.
122 125
    # use this array later instead of the &nbsp;-ed label
123 126
    @chunks = ();
......
125 128
    map {
126 129
      if (($l += length $_) < 20) {
127 130
        $chunks[$i] .= " $_";
128
      } else { 
129
        $l = length $_; 
130
        $chunks[++$i] = $_; 
131
      } else {
132
        $l = length $_;
133
        $chunks[++$i] = $_;
134

  
131 135
      }
132 136
    } split / /, $label;
133 137
    map { s/ /&nbsp;/ } @chunks;

Auch abrufbar als: Unified diff