loncom/auth/lonauth.pm - diff

Return to lonauth.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.121.2.2, 2012/08/27 11:55:26	version 1.121.2.3, 2012/12/18 20:53:33
Line 103 sub success {	Line 103 sub success {
if ($destsymb =~ /___/) {	if ($destsymb =~ /___/) {
# FIXME Need to deal with encrypted symbs and urls as needed.	# FIXME Need to deal with encrypted symbs and urls as needed.
my ($map,$resid,$desturl)=split(/___/,$destsymb);	my ($map,$resid,$desturl)=split(/___/,$destsymb);
unless ($desturl=~/^(adm\|uploaded\|editupload\|public)/) {	unless ($desturl=~/^(adm\|editupload\|public)/) {
$desturl = &Apache::lonnet::clutter($desturl);	$desturl = &Apache::lonnet::clutter($desturl);
}	}
$desturl = &HTML::Entities::encode($desturl,'"<>&');	$desturl = &HTML::Entities::encode($desturl,'"<>&');