loncom/auth/switchserver.pm - diff

Return to switchserver.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.23, 2010/03/10 21:25:29	version 1.25, 2010/03/22 20:11:08
Line 58 sub do_redirect {	Line 58 sub do_redirect {
my $start_page =	my $start_page =
&Apache::loncommon::start_page('Switching Server ...',undef,	&Apache::loncommon::start_page('Switching Server ...',undef,
{'redirect' => [0.5,$url],	{'redirect' => [0.5,$url],
'no_inline_link' => 1,
'only_body' => $only_body,});	'only_body' => $only_body,});
my $end_page = &Apache::loncommon::end_page();	my $end_page = &Apache::loncommon::end_page();
$r->print($start_page.$extra_text.$end_page);	$r->print($start_page.$extra_text.$end_page);
Line 122 sub handler {	Line 121 sub handler {
}	}
# -------------------------------------------------------- Menu script and info	# -------------------------------------------------------- Menu script and info

my $windowinfo=
&Apache::lonnavmaps::close();
# ---------------------------------------------------------------- Get handover	# ---------------------------------------------------------------- Get handover

my %info=('ip' => $ENV{'REMOTE_ADDR'},	my %info=('ip' => $ENV{'REMOTE_ADDR'},
Line 150 sub handler {	Line 147 sub handler {
'&token='.$token;	'&token='.$token;
# --------------------------------------------------------------- Screen Output	# --------------------------------------------------------------- Screen Output
&Apache::lonnet::flushcourselogs();	&Apache::lonnet::flushcourselogs();
return &do_redirect($r,$url,0,$windowinfo);	return &do_redirect($r, $url, 0);
}	}

1;	1;