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

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

version 1.149, 2005/02/21 00:32:04 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();
  my $output=(<<ENDMAINMENU);   my $output=(<<ENDMAINMENU);
 <script type="text/javascript">  <script type="text/javascript">
 <!-- // BEGIN LON-CAPA Internal  // BEGIN LON-CAPA Internal
 $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 162  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 188  ENDRELOAD Line 200  ENDRELOAD
  my $logo=&Apache::loncommon::lonhttpdurl("/adm/lonIcons/minilogo.gif");   my $logo=&Apache::loncommon::lonhttpdurl("/adm/lonIcons/minilogo.gif");
  return (<<ENDINLINEMENU);   return (<<ENDINLINEMENU);
 <script type="text/javascript">  <script type="text/javascript">
 <!-- // BEGIN LON-CAPA Internal  // BEGIN LON-CAPA Internal
   // <![CDATA[
 $utility  $utility
 -->  // ]]>
 </script>  </script>
 <font face="Arial,Helvetica,sans-serif"><table bgcolor="$pgbg" width="100%" border="0" cellpadding="1" cellspacing="1">  <font face="Arial,Helvetica,sans-serif"><table bgcolor="$pgbg" width="100%" border="0" cellpadding="1" cellspacing="1">
 <tr>  <tr>
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>
Line 309  sub innerregister { Line 323  sub innerregister {
     }      }
     if ($ENV{'request.state'} eq 'construct') {      if ($ENV{'request.state'} eq 'construct') {
         $newmail = $titletable;          $newmail = $titletable;
     }      } else {
     if ($noremote) {   if ($noremote) {
  $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%">':'').($textinter?'<br /><a href="#content">'.&mt('Skip to Content').'</a><br />':'');      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 />':'');
Line 503  ENDREGTEXT Line 518  ENDREGTEXT
     $result = (<<ENDREGTHIS);      $result = (<<ENDREGTHIS);
             
 <script type="text/javascript">  <script type="text/javascript">
 // <!-- BEGIN LON-CAPA Internal  // BEGIN LON-CAPA Internal
 var swmenu=null;  var swmenu=null;
   
     function LONCAPAreg() {      function LONCAPAreg() {
Line 538  var swmenu=null; Line 553  var swmenu=null;
   2000);    2000);
       }        }
   
 // END LON-CAPA Internal -->  // END LON-CAPA Internal 
 </script>  </script>
 ENDREGTHIS  ENDREGTHIS
         }          }
Removed from v.1.149  
changed lines
  Added in v.1.151

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