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

Diff for /loncom/interface/lonmenu.pm between versions 1.116 and 1.119

version 1.116, 2004/09/18 16:28:35 version 1.119, 2004/10/28 18:12:48
Line 167  $utility Line 167  $utility
 $reloadlink  $reloadlink
 $navmaps  $navmaps
 <td bgcolor="$tabbg">  <td bgcolor="$tabbg">
 <a href="/adm/remote?action=launch&url=$escurl">  <a href="/adm/remote?action=launch&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">
 <img align="right" src="/adm/lonIcons/minilogo.gif" />  <img align="right" src="/adm/lonIcons/minilogo.gif" />
Line 532  sub startupremote { Line 532  sub startupremote {
 #  #
     my $configmenu=&rawconfig();      my $configmenu=&rawconfig();
     my $esclowerurl=&Apache::lonnet::escape($lowerurl);      my $esclowerurl=&Apache::lonnet::escape($lowerurl);
       my $message=&mt('"Waiting for Remote Control window to load: "+[_1]','waited');
     return(<<ENDREMOTESTARTUP);      return(<<ENDREMOTESTARTUP);
 <script>  <script>
   var timestart;
 function wheelswitch() {  function wheelswitch() {
       if (typeof(document.wheel) != 'undefined') {
    if (typeof(document.wheel.spin) != 'undefined') {
       var date=new Date();
       var waited=Math.round(30-((date.getTime()-timestart)/1000));
       document.wheel.spin.value=$message;
    }
       }
    if (window.status=='|') {      if (window.status=='|') { 
       window.status='/';         window.status='/'; 
    } else {     } else {
Line 573  function wait() { Line 580  function wait() {
 function main() {  function main() {
    canceltim=setTimeout('tim=1;',30000);     canceltim=setTimeout('tim=1;',30000);
    window.status='-';     window.status='-';
      var date=new Date();
      timestart=date.getTime();
    wait();     wait();
 }  }
   
Line 598  sub maincall() { Line 607  sub maincall() {
 </script>  </script>
 ENDMAINCALL  ENDMAINCALL
 }  }
   
   sub load_remote_msg {
       my ($lowerurl)=@_;
   
       if (($ENV{'browser.interface'} eq 'textual') ||
           ($ENV{'environment.remote'} eq 'off')) { return ''; }
   
       my $esclowerurl=&Apache::lonnet::escape($lowerurl);
       my $link=&mt('<a href="[_1]">Continue</a> on in Inline Menu mode',
       "/adm/remote?action=collapse?url=$esclowerurl");
       return(<<ENDREMOTEFORM);
   <p>
   <form name="wheel">
   <input name="spin" type="text" size="60" />
   </form>
   </p>
   <p>$link</p>
   ENDREMOTEFORM
   }
 # ================================================================= Reopen menu  # ================================================================= Reopen menu
   
 sub reopenmenu {  sub reopenmenu {
Removed from v.1.116  
changed lines
  Added in v.1.119

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