--- loncom/interface/Attic/lonremote.pm 2003/04/03 14:44:01 1.5
+++ loncom/interface/Attic/lonremote.pm 2003/08/23 08:29:01 1.9
@@ -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.9 2003/08/23 08:29:01 albertel 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,11 @@ sub handler {
}
my $lowerurl=$ENV{'form.url'};
+ unless ($lowerurl) { $lowerurl='/adm/menu'; }
+
+ $r->content_type('text/html');
+ $r->send_http_header;
+ return OK if $r->header_only;
if ($ENV{'form.action'} eq 'launch') {
&launchremote($r,$lowerurl);