|
version 1.136, 2014/12/05 12:03:20
|
version 1.137, 2015/01/26 22:11:52
|
|
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|editupload|public)/) {
|
$desturl = &Apache::lonnet::clutter($desturl);
|
| $desturl = &Apache::lonnet::clutter($desturl);
|
|
| }
|
|
| $desturl = &HTML::Entities::encode($desturl,'"<>&');
|
$desturl = &HTML::Entities::encode($desturl,'"<>&');
|
| $destsymb = &HTML::Entities::encode($destsymb,'"<>&');
|
$destsymb = &HTML::Entities::encode($destsymb,'"<>&');
|
| $destination .= 'destinationurl='.$desturl.
|
$destination .= 'destinationurl='.$desturl.
|
![[BACK]](/icons/back.gif){kind=icon}
Return to lonauth.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / auth