loncom/auth/switchserver.pm - diff

Return to switchserver.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.15, 2007/08/25 01:24:05	version 1.16, 2007/09/08 02:43:33
Line 62 sub init_env {	Line 62 sub init_env {
sub do_redirect {	sub do_redirect {
my ($r,$url,$only_body,$extra_text) = @_;	my ($r,$url,$only_body,$extra_text) = @_;
$r->send_http_header;	$r->send_http_header;
my $switch='<meta HTTP-EQUIV="Refresh" CONTENT="0.5; url='.$url.'">';
my $start_page =	my $start_page =
&Apache::loncommon::start_page('Switching Server ...', $switch,	&Apache::loncommon::start_page('Switching Server ...',undef,
{'no_inline_link' => 1,	{'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);