[LON-CAPA-cvs] cvs: loncom /auth lonauth.pm

[albertel]

albertel		Mon Feb  7 15:33:05 2005 EDT

  Modified files:              
    /loncom/auth	lonauth.pm 
  Log:
  - add continue link to lonauth.pm BUG#2665
  
  
Index: loncom/auth/lonauth.pm
diff -u loncom/auth/lonauth.pm:1.63 loncom/auth/lonauth.pm:1.64
--- loncom/auth/lonauth.pm:1.63	Thu Oct 28 12:25:19 2004
+++ loncom/auth/lonauth.pm	Mon Feb  7 15:33:04 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # User Authentication Module
 #
-# $Id: lonauth.pm,v 1.63 2004/10/28 16:25:19 albertel Exp $
+# $Id: lonauth.pm,v 1.64 2005/02/07 20:33:04 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -186,6 +186,11 @@
     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="<a href=\"$lowerurl\">".&mt('Continue')."</a>";
+    }
 # ------------------------------------------------- Output for successful login
 
     $r->send_cgi_header(<<ENDHEADER);
@@ -213,6 +218,7 @@
 <a href="/adm/$lt{'log'}">$lt{'pro'}?</a></p>
 $remoteinfo
 $maincall
+$continuelink
 </body>
 </html>
 ENDSUCCESS