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

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

version 1.148, 2005/02/18 21:23:12 version 1.150, 2005/02/26 06:14:01
Line 60  sub initlittle { Line 60  sub initlittle {
     return &Apache::lonlocal::texthash('ret' => 'Return to Last Location',      return &Apache::lonlocal::texthash('ret' => 'Return to Last Location',
        'nav' => 'Navigate Contents',         'nav' => 'Navigate Contents',
        'main' => 'Main Menu',         'main' => 'Main Menu',
                                          'roles' => ($ENV{'user.adv'}?
                                                       'Roles':'Courses'),
                                          'exit' => 'Exit',
        'launch' => 'Launch Remote Control');         'launch' => 'Launch Remote Control');
 }  }
   
Line 72  sub menubuttons { Line 75  sub menubuttons {
     my $titletable=shift;      my $titletable=shift;
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
     ['inhibitmenu']);      ['inhibitmenu']);
     if ($ENV{'form.inhibitmenu'} eq 'yes') { return ''; }      if (($ENV{'form.inhibitmenu'} eq 'yes') ||
           ($ENV{'REQUEST_URI'} eq '/adm/logout')) { return ''; }
   
     my $navmaps='';      my $navmaps='';
     my $reloadlink='';      my $reloadlink='';
Line 103  ENDNAV Line 107  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
             }              }
         }   }
         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<br />  $reloadlink $navmaps
   <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>
   <br />
 <script type="text/javascript">  <script type="text/javascript">
 // END LON-CAPA Internal  // END LON-CAPA Internal
 </script>  </script>
Line 181  ENDRELOAD Line 187  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 196  $navmaps Line 203  $navmaps
 <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>
 <td bgcolor="$tabbg">  <td bgcolor="$tabbg">
   <a href="/adm/roles" target="_top"><font color="$font">$lt{'roles'}</font></a>
   </td>
   <td bgcolor="$tabbg">
   <a href="/adm/logout" target="_top"><font color="$font">$lt{'exit'}</font></a>
   </td>
   <td bgcolor="$tabbg">
 <img align="right" src="$logo" />  <img align="right" src="$logo" />
 <b>LON-CAPA</b></td>  <b>LON-CAPA</b></td>
 $form  $form
Line 296  sub innerregister { Line 309  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 490  ENDREGTEXT Line 504  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 525  var swmenu=null; Line 539  var swmenu=null;
   2000);    2000);
       }        }
   
 // END LON-CAPA Internal -->  // END LON-CAPA Internal 
 </script>  </script>
 ENDREGTHIS  ENDREGTHIS
         }          }
Removed from v.1.148  
changed lines
  Added in v.1.150

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