--- loncom/auth/lonauth.pm 2012/08/27 00:52:45 1.122 +++ loncom/auth/lonauth.pm 2013/08/21 16:15:44 1.126 @@ -1,7 +1,7 @@ # The LearningOnline Network # User Authentication Module # -# $Id: lonauth.pm,v 1.122 2012/08/27 00:52:45 raeburn Exp $ +# $Id: lonauth.pm,v 1.126 2013/08/21 16:15:44 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -103,7 +103,7 @@ sub success { if ($destsymb =~ /___/) { # FIXME Need to deal with encrypted symbs and urls as needed. my ($map,$resid,$desturl)=split(/___/,$destsymb); - unless ($desturl=~/^(adm|uploaded|editupload|public)/) { + unless ($desturl=~/^(adm|editupload|public)/) { $desturl = &Apache::lonnet::clutter($desturl); } $desturl = &HTML::Entities::encode($desturl,'"<>&'); @@ -173,13 +173,18 @@ sub failed { my $end_page = &Apache::loncommon::end_page(); &Apache::loncommon::content_type($r,'text/html'); $r->send_http_header; + my $loginhelp = &loginhelpdisplay($form->{'udom'}); + if ($loginhelp) { + $loginhelp = '
'; + } + $r->print( $start_page .''.&mt($message).'
' .''.&mt('Please [_1]log in again[_2].','','') .'
' - .'' + .$loginhelp .$end_page ); } @@ -190,9 +195,9 @@ sub reroute { my ($r) = @_; &Apache::loncommon::content_type($r,'text/html'); $r->send_http_header; - my $msg='' + .'
'.&mt('You are already logged in!').'
' .''.&mt('Please either [_1]continue the current session[_2] or [_3]log out[_4].' ,'','','','') .'
'