[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.150

version 1.149, 2005/02/21 00:32:04 version 1.150, 2005/02/26 06:14:01
Line 112  ENDRELOAD Line 112  ENDRELOAD
         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
Line 188  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 309  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 503  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 538  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.149  
changed lines
  Added in v.1.150

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