version 1.2, 2003/04/02 21:23:04
|
version 1.3, 2003/04/02 22:02:19
|
Line 43 use Apache::lonmenu();
|
Line 43 use Apache::lonmenu();
|
|
|
sub launchremote { |
sub launchremote { |
my ($r,$lowerurl)=@_; |
my ($r,$lowerurl)=@_; |
|
&Apache::lonnet::put('environment',{'remote' => 'on'}); |
|
&Apache::lonnet::appenv('environment.remote' => 'on'); |
# -------------------------------------------------------- Menu script and info |
# -------------------------------------------------------- Menu script and info |
# my $windowinfo=&Apache::lonmenu::open($clientos); |
# my $windowinfo=&Apache::lonmenu::open($clientos); |
# my $startupremote=&Apache::lonmenu::startupremote($lowerurl); |
# my $startupremote=&Apache::lonmenu::startupremote($lowerurl); |
Line 58 $bodytag
|
Line 60 $bodytag
|
</body> |
</body> |
</html> |
</html> |
ENDLAUNCH |
ENDLAUNCH |
&Apache::lonnet::put('environment',{'remote' => 'on'}); |
|
&Apache::lonnet::appenv('environment.remote' => 'on'); |
|
} |
} |
|
|
sub collapseremote { |
sub collapseremote { |