loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.325, 2017/01/28 03:48:52	version 1.326, 2017/02/20 18:29:28
Line 674 ENDENTERKEY	Line 674 ENDENTERKEY
}	}
}	}
}	}
	if ($dest =~ m{^\Q/public/$cdom/$cnum/syllabus\E.*(\?\|\&)usehttp=1}) {
	if ($ENV{'SERVER_PORT'} == 443) {
	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 706 ENDENTERKEY	Line 714 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]',