loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.276, 2012/09/04 20:47:46	version 1.277, 2012/12/03 22:59:03
Line 595 ENDENTERKEY	Line 595 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 620 ENDENTERKEY	Line 620 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;