--- loncom/auth/lonauth.pm	2002/09/14 05:45:45	1.32
+++ loncom/auth/lonauth.pm	2003/01/16 01:37:26	1.34
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # User Authentication Module
 #
-# $Id: lonauth.pm,v 1.32 2002/09/14 05:45:45 albertel Exp $
+# $Id: lonauth.pm,v 1.34 2003/01/16 01:37:26 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -83,14 +83,16 @@ sub success {
     my $clientbrowser='unknown';
     my $clientversion='0';
     my $clientmathml='';
+    my $clientunicode='0';
     for ($i=0;$i<=$#browsertype;$i++) {
-        my ($bname,$match,$notmatch,$vreg,$minv)=split(/\:/,$browsertype[$i]);
+        my ($bname,$match,$notmatch,$vreg,$minv,$univ)=split(/\:/,$browsertype[$i]);
 	if (($httpbrowser=~/$match/i)  && ($httpbrowser!~/$notmatch/i)) {
 	    $clientbrowser=$bname;
             $httpbrowser=~/$vreg/i;
 	    $clientversion=$1;
             $clientmathml=($clientversion>=$minv);
-        }
+            $clientunicode=($clientversion>=$univ);
+	}
     }
     my $clientos='unknown';
     if (($httpbrowser=~/linux/i) ||
@@ -132,6 +134,7 @@ sub success {
             print $idf "browser.type=$clientbrowser\n";
             print $idf "browser.version=$clientversion\n";
             print $idf "browser.mathml=$clientmathml\n";
+            print $idf "browser.unicode=$clientunicode\n";
             print $idf "browser.os=$clientos\n";
             print $idf "request.course.fn=\n";
             print $idf "request.course.uri=\n";
@@ -214,6 +217,10 @@ function main() {
 </script>
 $windowinfo
 <h1>Welcome!</h1>
+Welcome to the Learning<i>Online</i> Network with CAPA.
+Please wait while your session
+is being set up.<p>
+<a href="/adm/loginproblems.html">Problems?</a></p>
 <script>
     main();
 </script>