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

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

version 1.98, 2003/11/07 23:22:21 version 1.103, 2003/11/21 21:38:50
Line 76  sub menubuttons { Line 76  sub menubuttons {
     if ($ENV{'browser.interface'} eq 'textual') {      if ($ENV{'browser.interface'} eq 'textual') {
 # Textual display only  # Textual display only
  my %lt=&initlittle();   my %lt=&initlittle();
           $pgbg='#FFFFFF';
           $tabbg='#FFFFFF';
    $font='#000000';
         if ($ENV{'request.course.id'}) {          if ($ENV{'request.course.id'}) {
     $navmaps=(<<ENDNAV);      $navmaps=(<<ENDNAV);
 <a href="/adm/navmaps?postdata=$escurl&postsymb=$escsymb" target="_top">$lt{'nav'}</a>  <a href="/adm/navmaps?postdata=$escurl&postsymb=$escsymb" target="_top">$lt{'nav'}</a>
Line 148  ENDRELOAD Line 151  ENDRELOAD
 <script>  <script>
 // BEGIN LON-CAPA Internal  // BEGIN LON-CAPA Internal
 </script>  </script>
 <table bgcolor="$pgbg" width="100%" border="0" cellpadding="3" cellspacing="3">  <font face="Arial,Helvetica,sans-serif"><table bgcolor="$pgbg" width="100%" border="0" cellpadding="1" cellspacing="1">
 <tr>  <tr>
 <td bgcolor="$tabbg">  <td bgcolor="$tabbg">
 <a href="/adm/menu" target="_top"><font color="$font">$lt{'main'}</font></a>  <a href="/adm/menu" target="_top"><font color="$font">$lt{'main'}</font></a>
Line 163  $navmaps Line 166  $navmaps
 <b>LON-CAPA</b></td>  <b>LON-CAPA</b></td>
 </tr>  </tr>
 </table>  </table>
   </font>
 <script>  <script>
 // END LON-CAPA Internal  // END LON-CAPA Internal
 </script>  </script>
Line 230  sub innerregister { Line 234  sub innerregister {
   
     my $newmail='';      my $newmail='';
     if ($noremote) {      if ($noremote) {
  $newmail='<table bgcolor="'.$pgbg.'" border="0" cellspacing="3" cellpadding="3" width="100%"><tr><td bgcolor="'.$tabbg.'">';   $newmail='<font face="Arial,Helvetica,sans-serif"><table bgcolor="'.$pgbg.'" border="0" cellspacing="1" cellpadding="1" width="100%"><tr><td bgcolor="'.$tabbg.'">';
     }      }
     if (($textual) && ($ENV{'request.symb'}) && ($ENV{'request.course.id'})) {      if (($textual) && ($ENV{'request.symb'}) && ($ENV{'request.course.id'})) {
  my ($mapurl,$rid,$resurl)=&Apache::lonnet::decode_symb($ENV{'request.symb'});   my ($mapurl,$rid,$resurl)=&Apache::lonnet::decode_symb($ENV{'request.symb'});
Line 251  sub innerregister { Line 255  sub innerregister {
                           'swmenu.setstatus("you have","messages");');                            'swmenu.setstatus("you have","messages");');
     }      }
     if ($noremote) {      if ($noremote) {
  $newmail.='</td></tr></table>';   $newmail.='</td></tr></table></font>';
     }      }
     my $timesync=($textual?'':'swmenu.syncclock(1000*'.time.');');      my $timesync=($textual?'':'swmenu.syncclock(1000*'.time.');');
     my $tablestart=($noremote?'<table bgcolor="'.$pgbg.'" border="0" cellspacing="3" cellpadding="3" width="100%">':'');      my $tablestart=($noremote?'<font face="Arial,Helvetica,sans-serif"><table bgcolor="'.$pgbg.'" border="0" cellspacing="1" cellpadding="1" width="100%">':'').($textinter?'<br /><a href="#content">'.&mt('Skip to Content').'</a><br />':'');
     my $tableend=($noremote?'</table>':'');      my $tableend=($noremote?'</table></font>':'').($textinter?'<a name="content" />':'');
 # =============================================================================  # =============================================================================
 # ============================ This is for URLs that actually can be registered  # ============================ This is for URLs that actually can be registered
     if (($ENV{'request.noversionuri'}!~/^\/(res\/)*adm\//) || ($forcereg)) {      if (($ENV{'request.noversionuri'}!~/^\/(res\/)*adm\//) || ($forcereg)) {
Line 374  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 645  sub switch { Line 661  sub switch {
        '<a href="javascript:'.$act.';">'.$text.'</a>';         '<a href="javascript:'.$act.';">'.$text.'</a>';
        } else {         } else {
    $inlineremote[10*$row+$col]="\n<br />".     $inlineremote[10*$row+$col]="\n<br />".
        '<a href="javascript:'.$act.';">'.$desc.'</a>';         $desc.' <a href="javascript:'.$act.';">'.$text.'</a>';
        }         }
    } else {     } else {
 # Inline Remote  # Inline Remote
        if ($nobreak==2) { return ''; }         if ($nobreak==2) { return ''; }
        my $text=$top.' '.$bot;         my $text=$top.' '.$bot;
        $text=~s/\s*\-\s*//gs;         $text=~s/\s*\-\s*//gs;
        if ($nobreak==3) {         my $pic=
    $inlineremote[10*$row+$col]="\n".     '<img border="0" alt="'.$text.'" src="/res/adm/pages/'.$img.'" align="'.
      '<td width="50%" colspan="2" align="right" bgcolor="'.$tabbg.'">'.     ($nobreak==3?'right':'left').'" />';
      '<a href="javascript:'.$act.';"><font color="'.$font.'" size="+1">'.$text.         if (($ENV{'browser.interface'} eq 'textual') || ($ENV{'browser.interface'} eq 'faketextual')) {
      '</font></a></td></tr>';  # Accessibility
        } elsif ($nobreak) {     if ($nobreak==3) {
    $inlineremote[10*$row+$col]="\n<tr>".         $inlineremote[10*$row+$col]="\n".
      '<td width="50%" colspan="2" align="left" bgcolor="'.$tabbg.'">'.     '<td width="40%" align="right"><font color="'.$font.'" size="+1">'.$text.
      '<a href="javascript:'.$act.';"><font color="'.$font.'" size="+1">'.$text.     '</font></td><td width="10%" align="right" bgcolor="'.$tabbg.'">'.
      '</font></a></td>';     '<a href="javascript:'.$act.';">'.$pic.'</a></td></tr>';
      } elsif ($nobreak) {
          $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="50%" colspan="4" align="left" bgcolor="'.$tabbg.'">'.     $inlineremote[10*$row+$col]=
      '<a href="javascript:'.$act.';"><font color="'.$font.'">'.$desc.     '<a href="javascript:'.$act.';">'.$pic.
      '</font></a></td></tr>';            '</a><font color="'.$font.'" size="2">'.$desc.
      '</font>';
        }         }
    }     }
     return '';      return '';
Line 862  function gocmd(url,cmd) { Line 891  function gocmd(url,cmd) {
 }  }
   
 function catalog_info() {  function catalog_info() {
    loncatinfo=window.open(window.location.pathname+'.meta',"LONcatInfo",'height=320,width=280,resizeable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no');     loncatinfo=window.open(window.location.pathname+'.meta',"LONcatInfo",'height=320,width=280,resizable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no');
 }  }
   
 function chat_win() {  function chat_win() {
    lonchat=window.open('/res/adm/pages/chatroom.html',"LONchat",'height=320,width=280,resizeable=yes,location=no,menubar=no,toolbar=no');     lonchat=window.open('/res/adm/pages/chatroom.html',"LONchat",'height=320,width=280,resizable=yes,location=no,menubar=no,toolbar=no');
 }  }
 ENDUTILITY  ENDUTILITY
 }  }
Line 909  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.98  
changed lines
  Added in v.1.103

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