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

Diff for /loncom/interface/lonmenu.pm between versions 1.150 and 1.151

version 1.150, 2005/02/26 06:14:01 version 1.151, 2005/03/10 15:32:03
Line 62  sub initlittle { Line 62  sub initlittle {
        'main' => 'Main Menu',         'main' => 'Main Menu',
                                        'roles' => ($ENV{'user.adv'}?                                         'roles' => ($ENV{'user.adv'}?
                                                     'Roles':'Courses'),                                                      'Roles':'Courses'),
                                          'docs' => 'Course Documents',
                                        'exit' => 'Exit',                                         'exit' => 'Exit',
        'launch' => 'Launch Remote Control');         'launch' => 'Launch Remote Control');
 }  }
Line 80  sub menubuttons { Line 81  sub menubuttons {
   
     my $navmaps='';      my $navmaps='';
     my $reloadlink='';      my $reloadlink='';
       my $docs='';
     my $escurl=&Apache::lonnet::escape(&Apache::lonenc::check_encrypt($ENV{'request.noversionuri'}));      my $escurl=&Apache::lonnet::escape(&Apache::lonenc::check_encrypt($ENV{'request.noversionuri'}));
     my $escsymb=&Apache::lonnet::escape(&Apache::lonenc::check_encrypt($ENV{'request.symb'}));      my $escsymb=&Apache::lonnet::escape(&Apache::lonenc::check_encrypt($ENV{'request.symb'}));
     if ($ENV{'request.state'} eq 'construct') {      if ($ENV{'request.state'} eq 'construct') {
Line 107  ENDNAV Line 109  ENDNAV
 <a href="/adm/flip?postdata=$escreload" target="_top"><font color="$font">$lt{'ret'}</font></a>  <a href="/adm/flip?postdata=$escreload" target="_top"><font color="$font">$lt{'ret'}</font></a>
 ENDRELOAD  ENDRELOAD
             }              }
       if (&Apache::lonnet::allowed('mdc',$ENV{'request.course.id'})) {
                  $docs=(<<ENDDOCS);
   <a href="/adm/coursedocs" target="_top"><font color="$font">$lt{'docs'}</font></a>
   ENDDOCS
               }
  }   }
         my $form=&serverform();          my $form=&serverform();
         my $utility=&utilityfunctions();          my $utility=&utilityfunctions();
Line 116  ENDRELOAD Line 123  ENDRELOAD
 $utility  $utility
 </script>  </script>
 <a href="/adm/menu" target="_top">$lt{'main'}</a>  <a href="/adm/menu" target="_top">$lt{'main'}</a>
 $reloadlink $navmaps  $reloadlink $navmaps $docs
 <a href="/adm/roles" target="_top"><font color="$font">$lt{'roles'}</font></a>  <a href="/adm/roles" target="_top"><font color="$font">$lt{'roles'}</font></a>
 <a href="/adm/logout" target="_top"><font color="$font">$lt{'exit'}</font></a>  <a href="/adm/logout" target="_top"><font color="$font">$lt{'exit'}</font></a>
 <br />  <br />
Line 161  ENDMAINMENU Line 168  ENDMAINMENU
 <td bgcolor="$tabbg">  <td bgcolor="$tabbg">
 <a href="$link"><font color="$font">$lt{'nav'}</font></a></td>  <a href="$link"><font color="$font">$lt{'nav'}</font></a></td>
 ENDNAV  ENDNAV
       if (&Apache::lonnet::allowed('mdc',$ENV{'request.course.id'})) {
    $docs=(<<ENDDOCS);
   <td bgcolor="$tabbg">
   <a href="/adm/coursedocs"><font color="$font">$lt{'docs'}</font></a></td>
   ENDDOCS
               }
     if (      if (
  ($ENV{'request.noversionuri'}=~m[^/(res|public)/] &&   ($ENV{'request.noversionuri'}=~m[^/(res|public)/] &&
  $ENV{'request.symb'} eq '')   $ENV{'request.symb'} eq '')
Line 199  $utility Line 212  $utility
 </td>  </td>
 $reloadlink  $reloadlink
 $navmaps  $navmaps
   $docs
 <td bgcolor="$tabbg">  <td bgcolor="$tabbg">
 <a href="/adm/remote?action=launch&amp;url=$escurl" target="_top">  <a href="/adm/remote?action=launch&amp;url=$escurl" target="_top">
 <font color="$font">$lt{'launch'}</font></a></td>  <font color="$font">$lt{'launch'}</font></a></td>
Removed from v.1.150  
changed lines
  Added in v.1.151

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