--- loncom/auth/lonauth.pm 2003/11/12 16:55:40 1.59
+++ loncom/auth/lonauth.pm 2005/02/26 05:37:23 1.65
@@ -1,7 +1,7 @@
# The LearningOnline Network
# User Authentication Module
#
-# $Id: lonauth.pm,v 1.59 2003/11/12 16:55:40 www Exp $
+# $Id: lonauth.pm,v 1.65 2005/02/26 05:37:23 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -108,6 +108,8 @@ sub success {
$FORM{'interface'}=$userenv{'interface'};
}
$ENV{'environment.remote'}=$userenv{'remote'};
+ if ($userenv{'texengine'} eq 'ttm') { $clientmathml=1; }
+
# --------------- Do not trust query string to be put directly into environment
foreach ('imagesuppress','appletsuppress',
'embedsuppress','fontenhance','blackwhite',
@@ -181,13 +183,20 @@ 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