--- loncom/auth/lonlogin.pm	2003/09/11 20:54:11	1.49
+++ loncom/auth/lonlogin.pm	2003/09/21 20:06:36	1.54
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Login Screen
 #
-# $Id: lonlogin.pm,v 1.49 2003/09/11 20:54:11 www Exp $
+# $Id: lonlogin.pm,v 1.54 2003/09/21 20:06:36 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -41,11 +41,13 @@ use Apache::File ();
 use Apache::lonnet();
 use Apache::loncommon();
 use Apache::lonauth();
+use Apache::lonlocal;
 
 sub handler {
     my $r = shift;
-    $r->content_type('text/html');
     &Apache::loncommon::no_cache($r);
+    &Apache::lonlocal::get_language_handle($r);
+    &Apache::loncommon::content_type($r,'text/html');
     $r->send_http_header;
     return OK if $r->header_only;
 
@@ -60,6 +62,7 @@ sub handler {
      ($ENV{'QUERY_STRING'}.'&'.$ENV{'request.querystring'},
       ['interface','username','domain','firsturl','localpath','localres']);
  
+
 # ----------------------------------------------------------- Process Interface
     $ENV{'form.interface'}=~s/\W//g;
 
@@ -212,6 +215,24 @@ ENDHEADER
     my $logo=&Apache::loncommon::designparm('login.logo',$domain);
     my $img=&Apache::loncommon::designparm('login.img',$domain);
 
+# ----------------------------------------------------------------------- Texts
+
+my %lt=&Apache::lonlocal::texthash(
+		  'un'  => 'Username',
+		  'pw'  => 'Password',
+		  'dom' => 'Domain',
+		  'perc' => 'percent',
+		  'load' => 'Load',
+                  'userload' => 'User Load',
+                  'about'  => 'aboutlon.gif',
+                  'access' => 'accessbutton.gif',
+		  'auth' => 'userauthentication.gif',
+		  'log' => 'Log in',
+		  'help' => 'Help',
+		  'serv' => 'Server',
+                  'servadm' => 'Server Administration',
+                  'sysadm' => 'System Administration');
+
 
 # ---------------------------------------------------------- Serve rest of page
     $r->print(<<ENDSCRIPT);
@@ -310,9 +331,9 @@ ENDSERVERFORM
    <!-- A cell that will hold the 'access' and 'about' buttons -->
    <!-- Row 3 Column 1 -->
    <td valign="top" height=60 align="center" bgcolor="$sidebg">
-    <a href="/adm/login?interface=textual"><img src="$iconpath/accessbutton.gif" border=0 alt="Accessibility Options" /></a>
+    <a href="/adm/login?interface=textual"><img src="$iconpath/$lt{'access'}" border=0 alt="Accessibility Options" /></a>
     <br />
-    <a href="/adm/about.html"><img src="$iconpath/aboutlon.gif" border=0 alt="About LON-CAPA" /></a>
+    <a href="/adm/about.html"><img src="$iconpath/$lt{'about'}" border=0 alt="About LON-CAPA" /></a>
    </td>
 
    <!-- The shaded space between the two main columns -->
@@ -369,24 +390,24 @@ ENDNOOPT
 
      <!-- Start the sub-table for text and input alignment -->
      <table border=0 cellspacing=0 cellpadding=0>
-      <tr><td bgcolor="$sidebg" colspan=2><img src="$iconpath/userauthentication.gif" alt="User Authentication" /></td></tr>
+      <tr><td bgcolor="$sidebg" colspan=2><img src="$iconpath/$lt{'auth'}" alt="User Authentication" /></td></tr>
       <tr>
-       <td bgcolor="$mainbg"><br /><font size=-1><b>&nbsp;&nbsp;&nbsp;User Name:</b></font></td>
+       <td bgcolor="$mainbg"><br /><font size=-1><b>&nbsp;&nbsp;&nbsp;$lt{'un'}:</b></font></td>
        <td bgcolor="$mainbg"><br /><input type="text" name="uname" size="10" value="$authusername" /></td>
       </tr>
       <tr>
-       <td bgcolor="$mainbg"><font size=-1><b>&nbsp;&nbsp;&nbsp;Password:</b></font></td>
+       <td bgcolor="$mainbg"><font size=-1><b>&nbsp;&nbsp;&nbsp;$lt{'pw'}:</b></font></td>
        <td bgcolor="$mainbg"><input type="password" name="upass" size="10" /></td>
       </tr>
       <tr>
-       <td bgcolor="$mainbg"><font size=-1><b>&nbsp;&nbsp;&nbsp;Domain:</b></font></td>
+       <td bgcolor="$mainbg"><font size=-1><b>&nbsp;&nbsp;&nbsp;$lt{'dom'}:</b></font></td>
        <td bgcolor="$mainbg"><input type="text" name="udom" size="10" value="$authdomain" /></td>
       </tr>
       <tr>
-       <td bgcolor="$mainbg">&nbsp;&nbsp;&nbsp;<a href="/adm/loginproblems.html">Help</a></td>
+       <td bgcolor="$mainbg">&nbsp;&nbsp;&nbsp;<a href="/adm/loginproblems.html">$lt{'help'}</a></td>
        <td bgcolor="$mainbg" valign="bottom" align="center">
         <br />
-        <input type="submit" value="Log In" />
+        <input type="submit" value="$lt{'log'}" />
        </td>
       </tr>
      </table>
@@ -414,7 +435,7 @@ ENDLOGIN
      <table border=0 cellspacing=0 cellpadding=0>
       <tr>
        <td bgcolor="$sidebg" align="left" valign="top">
-        <small><b>&nbsp;&nbsp;&nbsp;Domain:&nbsp;</b></small>
+        <small><b>&nbsp;&nbsp;&nbsp;$lt{'dom'}:&nbsp;</b></small>
        </td>
        <td bgcolor="$sidebg" align="left" valign="top">
         <small><tt>&nbsp;$domain</tt></small>
@@ -422,7 +443,7 @@ ENDLOGIN
       </tr>
       <tr>
        <td bgcolor="$sidebg" align="left" valign="top">
-        <small><b>&nbsp;&nbsp;&nbsp;Server:&nbsp;</b></small>
+        <small><b>&nbsp;&nbsp;&nbsp;$lt{'serv'}:&nbsp;</b></small>
        </td>
        <td bgcolor="$sidebg" align="left" valign="top">
         <small><tt>&nbsp;$lonhost ($role)</tt></small>
@@ -430,26 +451,26 @@ ENDLOGIN
       </tr>
       <tr>
        <td bgcolor="$sidebg" align="left" valign="top">
-        <small><b>&nbsp;&nbsp;&nbsp;Load:&nbsp;</b></small>
+        <small><b>&nbsp;&nbsp;&nbsp;$lt{'load'}:&nbsp;</b></small>
        </td>
        <td bgcolor="$sidebg" align="left" valign="top">
-        <small><tt>&nbsp;$loadpercent percent</tt></small>
+        <small><tt>&nbsp;$loadpercent $lt{'perc'}</tt></small>
        </td>
       </tr>
       <tr>
        <td bgcolor="$sidebg" align="left" valign="top">
-        <small><b>&nbsp;&nbsp;&nbsp;User&nbsp;Load:&nbsp;</b></small>
+        <small><b>&nbsp;&nbsp;&nbsp;$lt{'userload'}:&nbsp;</b></small>
        </td>
        <td bgcolor="$sidebg" align="left" valign="top">
-        <small><tt>&nbsp;$userloadpercent percent</tt></small>
+        <small><tt>&nbsp;$userloadpercent $lt{'perc'}</tt></small>
        </td>
       </tr>
      </table>
      <br />
     <small>
-     <b>&nbsp;&nbsp;&nbsp;System Administration:</b><br />
+     <b>&nbsp;&nbsp;&nbsp;$lt{'sysadm'}:</b><br />
      <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$sysadm</tt><br />
-     <b>&nbsp;&nbsp;&nbsp;Server Administration:</b><br />
+     <b>&nbsp;&nbsp;&nbsp;$lt{'servadm'}:</b><br />
      <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$servadm</tt><br />&nbsp;<br />
      &nbsp;&nbsp;&nbsp;$version
     </small>