--- loncom/auth/lonauth.pm 2004/01/13 16:29:40 1.61
+++ 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.61 2004/01/13 16:29:40 www 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