[BACK]Return to lonmenu.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonmenu.pm between versions 1.102 and 1.103

version 1.102, 2003/11/11 20:27:15 version 1.103, 2003/11/21 21:38:50
Line 378  ENDREALRES Line 378  ENDREALRES
 # Registered, textual output  # Registered, textual output
             my $utility=&utilityfunctions();              my $utility=&utilityfunctions();
             my $form=&serverform();              my $form=&serverform();
             my $inlinebuttons=      my $inlinebuttons='';
   
       if ($ENV{'browser.interface'} eq 'textual') {
    $inlinebuttons=
                         join('',map { (defined($_)?$_:'') } @inlineremote);                          join('',map { (defined($_)?$_:'') } @inlineremote);
       } else {
    $inlinebuttons=(<<ENDINLINE);
   <tr><td>$inlineremote[21]</td><td>&nbsp</td><td>$inlineremote[23]</td></tr>
   <tr><td>$inlineremote[61]</td><td>$inlineremote[62]</td><td>$inlineremote[63]</td></tr>
   <tr><td>$inlineremote[71]</td><td>$inlineremote[72]</td><td>$inlineremote[73]</td></tr>
   <tr><td>$inlineremote[81]</td><td>$inlineremote[82]</td><td>$inlineremote[83]</td></tr>
   <tr><td>$inlineremote[91]</td><td>$inlineremote[92]</td><td>$inlineremote[93]</td></tr>
   ENDINLINE
       }
     $result =(<<ENDREGTEXT);      $result =(<<ENDREGTEXT);
 <script>  <script>
 // BEGIN LON-CAPA Internal  // BEGIN LON-CAPA Internal
Line 657  sub switch { Line 669  sub switch {
        my $text=$top.' '.$bot;         my $text=$top.' '.$bot;
        $text=~s/\s*\-\s*//gs;         $text=~s/\s*\-\s*//gs;
        my $pic=         my $pic=
    '<img border="0" alt="'.$text.'" src="/res/adm/pages/'.$img.'" />';     '<img border="0" alt="'.$text.'" src="/res/adm/pages/'.$img.'" align="'.
        if ($nobreak==3) {     ($nobreak==3?'right':'left').'" />';
    $inlineremote[10*$row+$col]="\n".         if (($ENV{'browser.interface'} eq 'textual') || ($ENV{'browser.interface'} eq 'faketextual')) {
      '<td width="40%" align="right"><font color="'.$font.'" size="+1">'.$text.  # Accessibility
      '</font></td><td width="10%" align="right" bgcolor="'.$tabbg.'">'.     if ($nobreak==3) {
      '<a href="javascript:'.$act.';">'.$pic.'</a></td></tr>';         $inlineremote[10*$row+$col]="\n".
        } elsif ($nobreak) {     '<td width="40%" align="right"><font color="'.$font.'" size="+1">'.$text.
    $inlineremote[10*$row+$col]="\n<tr>".     '</font></td><td width="10%" align="right" bgcolor="'.$tabbg.'">'.
      '<td width="10%" align="left" bgcolor="'.$tabbg.'">'.     '<a href="javascript:'.$act.';">'.$pic.'</a></td></tr>';
      '<a href="javascript:'.$act.';">'.$pic.     } elsif ($nobreak) {
      '</a></td><td width="40%" align="left"><font color="'.$font.'" size="+1">'.$text.'</font></td>';         $inlineremote[10*$row+$col]="\n<tr>".
      '<td width="10%" align="left" bgcolor="'.$tabbg.'">'.
      '<a href="javascript:'.$act.';">'.$pic.
      '</a></td><td width="40%" align="left"><font color="'.$font.'" size="+1">'.$text.'</font></td>';
      } else {
          $inlineremote[10*$row+$col]="\n<tr>".
      '<td width="10%" align="left" bgcolor="'.$tabbg.'">'.
      '<a href="javascript:'.$act.';">'.$pic.
      '</a></td><td colspan="3"><font color="'.$font.'">'.$desc.
      '</font></td></tr>';       
      }
        } else {         } else {
    $inlineremote[10*$row+$col]="\n<tr>".  # Inline Menu
      '<td width="10%" align="left" bgcolor="'.$tabbg.'">'.     $inlineremote[10*$row+$col]=
      '<a href="javascript:'.$act.';">'.$pic.     '<a href="javascript:'.$act.';">'.$pic.
      '</a></td><td colspan="3"><font color="'.$font.'">'.$desc.     '</a><font color="'.$font.'" size="2">'.$desc.
      '</font></td></tr>';            '</font>';
        }         }
    }     }
     return '';      return '';
Line 916  sub handler { Line 938  sub handler {
     $tabbg=&Apache::loncommon::designparm($function.'.tabbg',$domain);      $tabbg=&Apache::loncommon::designparm($function.'.tabbg',$domain);
     $font=&Apache::loncommon::designparm($function.'.font',$domain);      $font=&Apache::loncommon::designparm($function.'.font',$domain);
 # ---- Print the screen, pretent to be in text mode to generate text-based menu  # ---- Print the screen, pretent to be in text mode to generate text-based menu
     unless ($ENV{'brower.interface'} eq 'textual') {      unless ($ENV{'browser.interface'} eq 'textual') {
    $ENV{'browser.interface'}='faketextual';
  $ENV{'environment.remote'}='off';   $ENV{'environment.remote'}='off';
     }      }
     my $utility=&utilityfunctions();      my $utility=&utilityfunctions();
Removed from v.1.102  
changed lines
  Added in v.1.103

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>