--- loncom/interface/lonmenu.pm	2003/01/29 15:22:06	1.31
+++ loncom/interface/lonmenu.pm	2003/01/31 21:46:36	1.32
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines to control the menu
 #
-# $Id: lonmenu.pm,v 1.31 2003/01/29 15:22:06 www Exp $
+# $Id: lonmenu.pm,v 1.32 2003/01/31 21:46:36 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -39,6 +39,55 @@ use Apache::lonnet;
 use Apache::File;
 use vars qw(@desklines $readdesk);
 
+# ============================================================= Start up remote
+
+sub startupremote {
+    my ($lowerurl)=@_;
+    my $configmenu=&rawconfig();
+    return(<<ENDREMOTESTARTUP);
+<script>
+
+// ---------------------------------------------------------- The wait function
+var canceltim;
+function wait() {
+   if ((menuloaded==1) || (tim==1)) {
+      if (tim==0) {
+         clearTimeout(canceltim);
+         $configmenu
+         window.location='$lowerurl';  
+      } else {
+         alert("Remote Control Timed Out.");
+      }
+   } else {
+      setTimeout('wait();',100);
+   }
+}
+
+function main() {
+   canceltim=setTimeout('tim=1;',80000);
+   wait();
+}
+
+</script>
+ENDREMOTESTARTUP
+}
+
+sub setflags() {
+    return(<<ENDSETFLAGS);
+<script>
+    menuloaded=0;
+    tim=0;
+</script>
+ENDSETFLAGS
+}
+
+sub maincall() {
+    return(<<ENDMAINCALL);
+<script>
+    main();
+</script>
+ENDMAINCALL
+}
 # ================================================================= Reopen menu
 
 sub reopenmenu {
@@ -123,7 +172,6 @@ sub openmenu {
 }
 
 sub rawconfig {
-    my $r = shift;
     my $output="var swmenu=".&openmenu();
     my $uname=$ENV{'user.name'};
     my $udom=$ENV{'user.domain'};
@@ -183,7 +231,7 @@ sub rawconfig {
                     }                       
                     $act =~ s/\$caname/$caname/g;
                     my $home = &Apache::lonnet::homeserver($caname,$cadom);
-                    if ($home eq $r->dir_config('lonHostID')) {
+                    if ($home eq $Apache::lonnet::perlvar{'lonHostID'}) {
                         $output.=switch($caname,$cadom,
                                         $row,$col,$img,$top,$bot,$act,$desc);
                     }