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.4, 2013/08/13 13:29:09
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,'"<>&');
Line 246 sub handler {	Line 246 sub handler {
}	}
$r->print(	$r->print(
$start_page	$start_page
.'<p class="LC_warning>"'.&mt('You are already logged in!').'</p>'	.'<p class="LC_warning">'.&mt('You are already logged in!').'</p>'
.'<p>'.&mt('Please either [_1]continue the current session[_2] or [_3]log out[_4].'	.'<p>'.&mt('Please either [_1]continue the current session[_2] or [_3]log out[_4].'
,'<a href="'.$dest.'">','</a>','<a href="/adm/logout">','</a>')	,'<a href="'.$dest.'">','</a>','<a href="/adm/logout">','</a>')
.'</p>'	.'</p>'