loncom/interface/lonremote.pm - diff

Return to lonremote.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.4, 2003/04/03 03:08:12	version 1.5, 2003/04/03 14:44:01
Line 60 $startupremote	Line 60 $startupremote
$bodytag	$bodytag
$setflags	$setflags
$windowinfo	$windowinfo
	$maincall
</body>	</body>
</html>	</html>
ENDLAUNCH	ENDLAUNCH
Line 86 ENDCOLLAPSE	Line 87 ENDCOLLAPSE

sub handler {	sub handler {
my $r = shift;	my $r = shift;
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['action']);	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
	['action','url']);
unless ($ENV{'form.action'}) {	unless ($ENV{'form.action'}) {
if ($ENV{'environment.remote'} eq 'on') {	if ($ENV{'environment.remote'} eq 'on') {
$ENV{'form.action'}='collapse';	$ENV{'form.action'}='collapse';
Line 94 sub handler {	Line 96 sub handler {
$ENV{'form.action'}='launch';	$ENV{'form.action'}='launch';
}	}
}	}
# FIXME - testurl
my $lowerurl='/adm/roles';	my $lowerurl=$ENV{'form.url'};
###
if ($ENV{'form.action'} eq 'launch') {	if ($ENV{'form.action'} eq 'launch') {
&launchremote($r,$lowerurl);	&launchremote($r,$lowerurl);
} else {	} else {