--- loncom/auth/lonauth.pm 2004/03/16 20:42:50 1.62 +++ loncom/auth/lonauth.pm 2005/02/07 20:33:04 1.64 @@ -1,7 +1,7 @@ # The LearningOnline Network # User Authentication Module # -# $Id: lonauth.pm,v 1.62 2004/03/16 20:42:50 albertel Exp $ +# $Id: lonauth.pm,v 1.64 2005/02/07 20:33:04 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -181,10 +181,16 @@ sub success { # -------------------------------------------------------- Menu script and info my $windowinfo=&Apache::lonmenu::open($clientos); my $startupremote=&Apache::lonmenu::startupremote($lowerurl); + my $remoteinfo=&Apache::lonmenu::load_remote_msg($lowerurl); my $setflags=&Apache::lonmenu::setflags(); my $maincall=&Apache::lonmenu::maincall(); my $bodytag=&Apache::loncommon::bodytag('Successful Login'); my $add=&addcontent(); + my $continuelink; + if (($ENV{'browser.interface'} eq 'textual') || + ($ENV{'environment.remote'} eq 'off')) { + $continuelink="".&mt('Continue').""; + } # ------------------------------------------------- Output for successful login $r->send_cgi_header(<$lt{'wel'} $lt{'mes'}.

$lt{'pro'}?

+$remoteinfo $maincall +$continuelink ENDSUCCESS