loncom/lontrans.pm - diff

Return to lontrans.pm CVS log

Up to [LON-CAPA] / loncom

version 1.31, 2021/05/03 15:27:42	version 1.33, 2021/07/17 21:48:27
Line 89 sub handler {	Line 89 sub handler {
}	}
if ($redirect) {	if ($redirect) {
my $uri = $r->uri;	my $uri = $r->uri;
	if (($uri eq '/adm/sso') \|\| ($uri eq '/adm/switchserver') \|\|
	($uri =~ m{^/Shibboleth.sso/})) {
	return DECLINED;
	}
unless ($uri eq '/adm/migrateuser') {	unless ($uri eq '/adm/migrateuser') {
my %user;	my %user;
my $handle = &Apache::lonnet::check_for_valid_session($r,undef,\%user);	my $handle = &Apache::lonnet::check_for_valid_session($r,undef,\%user);
Line 107 sub handler {	Line 111 sub handler {
$protocol = 'https';	$protocol = 'https';
}	}
my $querystring = $r->args;	my $querystring = $r->args;
	if ($uri =~ m{^(/adm/css/)(.+)(.css)$}) {
	$uri = $1.&escape($2).$3;
	}
my $location = $protocol.'://'.$redirect.$uri;	my $location = $protocol.'://'.$redirect.$uri;
if ($querystring) {	if ($querystring) {
$location .= "?$querystring";	$location .= "?$querystring";