--- loncom/interface/Attic/lonremote.pm 2003/04/03 14:44:01 1.5
+++ loncom/interface/Attic/lonremote.pm 2003/04/03 16:50:46 1.6
@@ -1,7 +1,7 @@
# The LearningOnline Network
# User Authentication Module
#
-# $Id: lonremote.pm,v 1.5 2003/04/03 14:44:01 www Exp $
+# $Id: lonremote.pm,v 1.6 2003/04/03 16:50:46 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -71,10 +71,12 @@ sub collapseremote {
# -------------------------------------------------------- Menu script and info
my $bodytag=&Apache::loncommon::bodytag('Collapse Remote Control');
my $windowinfo=&Apache::lonmenu::close();
+ my $switch='';
$r->print(<
The LearningOnline Network with CAPA
+$switch
$bodytag
$windowinfo
@@ -98,6 +100,7 @@ sub handler {
}
my $lowerurl=$ENV{'form.url'};
+ unless ($lowerurl) { $lowerurl='/adm/menu'; }
if ($ENV{'form.action'} eq 'launch') {
&launchremote($r,$lowerurl);