--- loncom/auth/lonlogin.pm	2008/03/08 02:53:25	1.102
+++ loncom/auth/lonlogin.pm	2009/05/18 12:59:47	1.106.4.1
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Login Screen
 #
-# $Id: lonlogin.pm,v 1.102 2008/03/08 02:53:25 raeburn Exp $
+# $Id: lonlogin.pm,v 1.106.4.1 2009/05/18 12:59:47 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -83,8 +83,8 @@ sub handler {
 	    &Apache::loncommon::end_page();
 	$r->print(
                   $start_page
-                 .'<h1>'.&mt('You are already logged in').'</h1>'
-                 .'<p>'.&mt('Please either [_1]continue the current session[_2] or [_3]logout[_4].',
+                 .'<h1>'.&mt('You are already logged in!').'</h1>'
+                 .'<p>'.&mt('Please either [_1]continue the current session[_2] or [_3]log out[_4].',
                   '<a href="/adm/roles">','</a>','<a href="/adm/logout">','</a>').'</p>'
                  .'<p><a href="/adm/loginproblems.html">'.&mt('Login problems?').'</a></p>'
                  .$end_page
@@ -201,7 +201,7 @@ sub handler {
                 $hostname.
                 '/adm/login?domain='.$authdomain.'">'.
                 $hostname.'</a>'.
-                ' (preferred)</font>'.$/;
+                ' '.&mt('(preferred)').'</font>'.$/;
 	    $last=$hostname;
         }
         $spares.= '<br />';
@@ -221,16 +221,20 @@ sub handler {
                 $hostname.'</a>';
 	    $last=$hostname;
         }
-	$r->print(<<ENDTROUBLE);
-<html>
-<head><title>The LearningOnline Network with CAPA</title></head>
-<body bgcolor="#FFFFFF">
-<img src="/adm/lonKaputt/lonlogo_broken.gif" align="right" />
-<h3>This LON-CAPA server is temporarily not available for login</h3>
-<p>Please attempt to login to one of the following servers:</p>$spares
-</body>
-</html>
-ENDTROUBLE
+	$r->print(
+           '<html>'
+          .'<head><title>'
+          .&mt('The LearningOnline Network with CAPA')
+          .'</title></head>'
+          .'<body bgcolor="#FFFFFF">'
+          .'<h1>'.&mt('The LearningOnline Network with CAPA').'</h1>'
+          .'<img src="/adm/lonKaputt/lonlogo_broken.gif" align="right" />'
+          .'<h3>'.&mt('This LON-CAPA server is temporarily not available for login.').'</h3>'
+          .'<p>'.&mt('Please attempt to login to one of the following servers:').'</p>'
+          .$spares
+          .'</body>'
+          .'</html>'
+        );
         return OK;
     }
 
@@ -262,6 +266,14 @@ ENDTROUBLE
     if ($login eq '') {
         $login = $iconpath.'/'.&mt('userauthentication.gif');
     }
+    my $showbanner = 1;
+    my $showmainlogo = 1;
+    if (defined(&Apache::loncommon::designparm('login.showlogo_img',$domain))) {
+        $showbanner = &Apache::loncommon::designparm('login.showlogo_img',$domain);
+    }
+    if (defined(&Apache::loncommon::designparm('login.showlogo_logo',$domain))) {
+        $showmainlogo = &Apache::loncommon::designparm('login.showlogo_logo',$domain);
+    }
     my $showadminmail=&Apache::loncommon::designparm('login.adminmail',$domain);
     my $showcoursecat =
         &Apache::loncommon::designparm('login.coursecatalog',$domain);
@@ -271,7 +283,7 @@ ENDTROUBLE
     my $now=time;
     my $js = (<<ENDSCRIPT);
 
- <script language="JavaScript">
+ <script type="text/javascript">
     function send()
     {
         this.document.server.elements.uname.value
@@ -342,8 +354,7 @@ my %lt=&Apache::lonlocal::texthash(
 		  'un'  => 'Username',
 		  'pw'  => 'Password',
 		  'dom' => 'Domain',
-		  'perc' => 'percent',
-		  'load' => 'Load',
+		  'load' => 'Server Load',
                   'userload' => 'User Load',
                   'about'  => 'About LON-CAPA',
                   'access' => 'Accessibility Options',
@@ -375,7 +386,7 @@ my %lt=&Apache::lonlocal::texthash(
 
     if ($fullgraph) {
 	$r->print(
-		  '<table width="100%" cellpadding=0 cellspacing=0 border=0>');
+		  '<table width="100%" cellpadding="0" cellspacing="0" border="0">');
     }
 
     $r->print(<<ENDSERVERFORM);
@@ -406,12 +417,21 @@ ENDSERVERFORM
     if ($shownewuserlink) {
         $newuserlink = &newuser_link($lt{'newuser'});
     }
-    if ($fullgraph) { $r->print(<<ENDTOP);
+    if ($fullgraph) {
+        $r->print(<<HEADER);
   <!-- The LON-CAPA Header -->
   <tr>
 
    <!-- Row 1 Columns 2-4 -->
-   <td width="100%" height=75 colspan=4 align="left" valign="top" bgcolor="$pgbg"><img src="$img" border=0 alt="The Learning Online Network with CAPA" /></td>
+   <td width="100%" height=75 colspan=4 align="left" valign="top" bgcolor="$pgbg">
+HEADER
+        if ($showbanner) {
+            $r->print(<<ENDBANNER);
+<img src="$img" border="0" alt="The Learning Online Network with CAPA" />
+ENDBANNER
+        }
+        $r->print(<<ENDSTART);
+   </td>
   </tr>
 
   <!-- The gray bar that starts the two table frames -->
@@ -455,9 +475,15 @@ ENDSERVERFORM
    <!-- The right main column holding the large LON-CAPA logo-->
    <!-- Rows 3-4 Column 3 -->
    <td align="center" valign="top" width="100%" height="100%" bgcolor="$mainbg">
+ENDSTART
+        if ($showmainlogo) {
+            $r->print(<<ENDLOGO);
     <center>
      <img src="$logo" alt="" />
     </center>
+ENDLOGO
+        }
+        $r->print(<<ENDTOP);
    </td>
 
    <!-- Row 3 Column 4 -->
@@ -469,11 +495,11 @@ ENDSERVERFORM
    <!-- Row 4 Column 1 -->
    <td align="center" valign="middle" bgcolor="$sidebg">
 ENDTOP
-} else {
-    $r->print('<h1>The Learning<i>Online</i> Network with CAPA</h1>'
-             .'<h2>'.&mt('Text-based Interface Login').'</h2>'
-             .$announcements);
-}
+    } else {
+        $r->print('<h1>The Learning<i>Online</i> Network with CAPA</h1>'
+                 .'<h2>'.&mt('Text-based Interface Login').'</h2>'
+                 .$announcements);
+    }
     $r->print('<form name="client" onsubmit="return(send())">');
     unless ($fullgraph) {
         $r->print(<<ENDACCESSOPTIONS);
@@ -486,8 +512,8 @@ ENDTOP
 <br />
 <input type="checkbox" name="remember" /> $lt{'remember'}<hr />
 ENDACCESSOPTIONS
-} else {
-    $r->print(<<ENDNOOPT);
+    } else {
+        $r->print(<<ENDNOOPT);
 <input type="hidden" name="imagesuppress"  value="" />
 <input type="hidden" name="embedsuppress"  value="" />
 <input type="hidden" name="appletsuppress"  value="" />
@@ -495,7 +521,7 @@ ENDACCESSOPTIONS
 <input type="hidden" name="blackwhite"  value="" />
 <input type="hidden" name="remember"  value="" />
 ENDNOOPT
-}
+    }
     my $logintitle;
     if ($loginheader eq 'text') {
         $logintitle = '<td bgcolor="'.$bgcol.'" colspan="2">&nbsp;&nbsp;&nbsp;<b><font size="+1" color="'.$textcol.'">'.$lt{'log'}.'</font></b></td>';
@@ -503,13 +529,18 @@ ENDNOOPT
         $logintitle = '<td bgcolor="'.$sidebg.'" colspan="2"><img src="'.$login.'" alt="'.
                       &mt('User Authentication').'" /></td>';
     }
+    my $noscript_warning='<td colspan="2" bgcolor="'.$mainbg.'">'
+                        .'<noscript><div class="LC_warning"><font size="-1">'
+                        .&mt('Use of LON-CAPA requires Javascript to be enabled in your web browser.')
+                        .'</font></div></noscript></td>';
     $r->print(<<ENDLOGIN);
-     <input type="hidden" name="lextkey" value="$lextkey">
-     <input type="hidden" name="uextkey" value="$uextkey">
+     <input type="hidden" name="lextkey" value="$lextkey" />
+     <input type="hidden" name="uextkey" value="$uextkey" />
 
      <!-- Start the sub-table for text and input alignment -->
-     <table border=0 cellspacing=0 cellpadding=0>
+     <table border="0" cellspacing="0" cellpadding="0">
       <tr>$logintitle</tr>
+      <tr>$noscript_warning</tr>
       <tr>
        <td bgcolor="$mainbg"><br /><font size=-1><b>&nbsp;&nbsp;&nbsp;<label for="uname">$lt{'un'}</label>:</b></font></td>
        <td bgcolor="$mainbg"><br /><input type="text" name="uname" size="10" value="$authusername" /></td>
@@ -562,12 +593,12 @@ ENDLOGIN
    <!-- Row 5 Column 1 -->
    <td bgcolor="$sidebg" valign="middle" align="left">
      <br />
-     <table border=0 cellspacing=0 cellpadding=0>
+     <table border="0" cellspacing="0" cellpadding="0">
       <tr>
        <td bgcolor="$sidebg" align="left" valign="top">
         <small><b>&nbsp;&nbsp;&nbsp;$lt{'dom'}:&nbsp;</b></small>
        </td>
-       <td bgcolor="$sidebg" align="left" valign="top">
+       <td bgcolor="$sidebg" align="left" valign="middle">
         <small><tt>&nbsp;$domain</tt></small>
        </td>
       </tr>
@@ -575,24 +606,24 @@ ENDLOGIN
        <td bgcolor="$sidebg" align="left" valign="top">
         <small><b>&nbsp;&nbsp;&nbsp;$lt{'serv'}:&nbsp;</b></small>
        </td>
-       <td bgcolor="$sidebg" align="left" valign="top">
+       <td bgcolor="$sidebg" align="left" valign="middle">
         <small><tt>&nbsp;$lonhost ($role)</tt></small>
        </td>
       </tr>
       <tr>
-       <td bgcolor="$sidebg" align="left" valign="top">
-        <small><b>&nbsp;&nbsp;&nbsp;$lt{'load'}:&nbsp;</b></small>
+       <td bgcolor="$sidebg" align="left" valign="top"><span class="LC_nobreak">
+        <small><b>&nbsp;&nbsp;&nbsp;$lt{'load'}:&nbsp;</b></small></span>
        </td>
-       <td bgcolor="$sidebg" align="left" valign="top">
-        <small><tt>&nbsp;$loadpercent $lt{'perc'}</tt></small>
+       <td bgcolor="$sidebg" align="left" valign="middle">
+        <small><tt>&nbsp;$loadpercent%</tt></small>
        </td>
       </tr>
       <tr>
-       <td bgcolor="$sidebg" align="left" valign="top">
-        <small><b>&nbsp;&nbsp;&nbsp;$lt{'userload'}:&nbsp;</b></small>
+       <td bgcolor="$sidebg" align="left" valign="top"><span class="LC_nobreak">
+        <small><b>&nbsp;&nbsp;&nbsp;$lt{'userload'}:&nbsp;</b></small></span>
        </td>
-       <td bgcolor="$sidebg" align="left" valign="top">
-        <small><tt>&nbsp;$userloadpercent $lt{'perc'}</tt></small>
+       <td bgcolor="$sidebg" align="left" valign="middle">
+        <small><tt>&nbsp;$userloadpercent%</tt></small>
        </td>
       </tr>
      </table>
