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

Diff for /loncom/interface/lonmenu.pm between versions 1.99 and 1.101

version 1.99, 2003/11/10 15:15:08 version 1.101, 2003/11/10 16:51:12
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 255  sub innerregister { Line 258  sub innerregister {
  $newmail.='</td></tr></table></font>';   $newmail.='</td></tr></table></font>';
     }      }
     my $timesync=($textual?'':'swmenu.syncclock(1000*'.time.');');      my $timesync=($textual?'':'swmenu.syncclock(1000*'.time.');');
     my $tablestart=($noremote?'<font face="Arial,Helvetica,sans-serif"><table bgcolor="'.$pgbg.'" border="0" cellspacing="1" cellpadding="1" 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></font>':'');      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 646  sub switch { Line 649  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
Removed from v.1.99  
changed lines
  Added in v.1.101

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