loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.269.2.3, 2012/09/25 22:51:43	version 1.269.2.4, 2012/12/13 21:11:17
Line 601 ENDENTERKEY	Line 601 ENDENTERKEY
if ($env{'request.role.adv'}) {	if ($env{'request.role.adv'}) {
$dest = &Apache::lonenc::unencrypted($dest);	$dest = &Apache::lonenc::unencrypted($dest);
if ($destsymb eq '') {	if ($destsymb eq '') {
($destsymb) = ($dest =~ /\?symb=([^\&]*)/);	($destsymb) = ($dest =~ /(?:\?\|\&)symb=([^\&]*)/);
$destsymb = &unescape($destsymb);	$destsymb = &unescape($destsymb);
}	}
}	}
} else {	} else {
if ($destsymb eq '') {	if ($destsymb eq '') {
($destsymb) = ($dest =~ /\?symb=([^\&]+)/);	($destsymb) = ($dest =~ /(?:\?\|\&)symb=([^\&]+)/);
$destsymb = &unescape($destsymb);	$destsymb = &unescape($destsymb);
}	}
unless ($env{'request.role.adv'}) {	unless ($env{'request.role.adv'}) {
Line 626 ENDENTERKEY	Line 626 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 .= '?symb='.$esc_symb;