--- loncom/interface/lonmenu.pm 2003/01/29 15:22:06 1.31 +++ loncom/interface/lonmenu.pm 2003/02/13 15:52:53 1.33 @@ -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.33 2003/02/13 15:52:53 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -36,9 +36,60 @@ package Apache::lonmenu; use strict; use Apache::lonnet; +use Apache::Constants qw(:common); +use Apache::loncommon; use Apache::File; use vars qw(@desklines $readdesk); +# ============================================================= Start up remote + +sub startupremote { + my ($lowerurl)=@_; + my $configmenu=&rawconfig(); + return(< + +// ---------------------------------------------------------- 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(); +} + + +ENDREMOTESTARTUP +} + +sub setflags() { + return(< + menuloaded=0; + tim=0; + +ENDSETFLAGS +} + +sub maincall() { + return(< + main(); + +ENDMAINCALL +} # ================================================================= Reopen menu sub reopenmenu { @@ -123,7 +174,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 +233,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); } @@ -215,6 +265,23 @@ sub footer { } +# ================================================ Handler when called directly + + +sub handler { + my $r = shift; + $r->content_type('text/html'); + $r->send_http_header; + return OK if $r->header_only; + +# ------------------------------------------------------------ Print the screen + $r->print('LON-CAPA Main Menu'); + $r->print(''); + $r->print('

LON-CAPA Main Menu

'); + $r->print(''); + return OK; +} + # ================================================================ Main Program BEGIN {