loncom/auth/lonauth.pm - diff

Return to lonauth.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.123, 2012/08/27 02:02:20	version 1.124, 2012/12/18 20:52:18
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,'"<>&');