loncom/auth/switchserver.pm - diff

Return to switchserver.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.35.2.6.2.7, 2024/10/08 20:46:49	version 1.35.2.6.2.8, 2024/10/09 15:49:17
Line 31 package Apache::switchserver;	Line 31 package Apache::switchserver;
use strict;	use strict;
use Apache::Constants qw(:common :remotehost);	use Apache::Constants qw(:common :remotehost);
use Apache::lonnet;	use Apache::lonnet;
	use Apache::loncommon;
	use Apache::lonmenu;
use Digest::MD5 qw(md5_hex);	use Digest::MD5 qw(md5_hex);
use CGI::Cookie();	use CGI::Cookie();
use Apache::lonlocal;	use Apache::lonlocal;
Line 274 sub handler {	Line 276 sub handler {
}	}
# -------------------------------------------------------- Menu script and info	# -------------------------------------------------------- Menu script and info

	my $windowinfo = &Apache::lonmenu::close();

# ---------------------------------------------------------------- Get handover	# ---------------------------------------------------------------- Get handover

my ($is_balancer,$setcookie,$newcookieid,$otherbalcookie);	my ($is_balancer,$setcookie,$newcookieid,$otherbalcookie);
Line 399 sub handler {	Line 403 sub handler {
$url .= join('&',@args);	$url .= join('&',@args);
}	}
# --------------------------------------------------------------- Screen Output	# --------------------------------------------------------------- Screen Output
return &do_redirect($r, $url, $only_body, $ssologoutscript, $env{'form.lcssowin'});	return &do_redirect($r, $url, $only_body, $windowinfo.$ssologoutscript,
	$env{'form.lcssowin'});
}	}

1;	1;