loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.269.2.35, 2018/09/04 01:55:01	version 1.269.2.36, 2019/07/28 13:57:36
Line 688 ENDENTERKEY	Line 688 ENDENTERKEY
}	}
}	}
}	}
	if (($dest =~ m{^\Q/public/$cdom/$cnum/syllabus\E.*(\?\|\&)usehttp=1}) \|\|
	($dest =~ m{^\Q/adm/wrapper/ext/\E(?!https:)})) {
	if ($ENV{'SERVER_PORT'} == 443) {
	unless (&Apache::lonnet::uses_sts()) {
	my $hostname = $r->hostname();
	if ($hostname ne '') {
	$dest = 'http://'.$hostname.$dest;
	}
	}
	}
	}
if ($dest =~ m{^/enc/}) {	if ($dest =~ m{^/enc/}) {
if ($env{'request.role.adv'}) {	if ($env{'request.role.adv'}) {
$dest = &Apache::lonenc::unencrypted($dest);	$dest = &Apache::lonenc::unencrypted($dest);
Line 720 ENDENTERKEY	Line 731 ENDENTERKEY
unless (($dest =~ m{^/enc/}) \|\| ($dest =~ /(\?\|\&)symb=.+___\d+___.+/)) {	unless (($dest =~ m{^/enc/}) \|\| ($dest =~ /(\?\|\&)symb=.+___\d+___.+/)) {
if (($destsymb ne '') && ($destsymb !~ m{^/enc/})) {	if (($destsymb ne '') && ($destsymb !~ m{^/enc/})) {
my $esc_symb = &escape($destsymb);	my $esc_symb = &escape($destsymb);
$dest .= '?symb='.$esc_symb;	$dest .= (($dest =~/\?/)? '&':'?').'symb='.$esc_symb;
}	}
}	}
&redirect_user($r, &mt('Entering [_1]',	&redirect_user($r, &mt('Entering [_1]',