--- loncom/auth/lonlogin.pm	2009/10/06 23:43:21	1.127
+++ loncom/auth/lonlogin.pm	2009/12/04 13:50:48	1.131
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Login Screen
 #
-# $Id: lonlogin.pm,v 1.127 2009/10/06 23:43:21 raeburn Exp $
+# $Id: lonlogin.pm,v 1.131 2009/12/04 13:50:48 jms Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -85,13 +85,21 @@ sub handler {
         if ($env{'form.firsturl'} ne '') {
             $dest = $env{'form.firsturl'}; 
         }
+        
+    my $dom = &Apache::lonnet::default_login_domain();
+    my %helpconfig = &Apache::lonnet::get_dom('configuration',['helpsettings'],$dom);
+    
+    my $loginhelp_page = $helpconfig{'helpsettings'}{'loginhelpurl'};
+    if ($loginhelp_page eq '') {
+		$loginhelp_page = '/adm/loginproblems.html';
+    }
 	$r->print(
                   $start_page
                  .'<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="'.$dest.'">','</a>','<a href="/adm/logout">','</a>').'</p>'
-                 .'<p><a href="/adm/loginproblems.html">'.&mt('Login problems?').'</a></p>'
-                 .$end_page
+                 .'<p><a href="'.$loginhelp_page.'">'.&mt('Login problems?').'</a></p>'
+                 .$dom.' '.$end_page
                  );
         return OK;
     }
@@ -117,8 +125,7 @@ sub handler {
     if ($lonhost ne '') {
         my $loginvia = $domconfhash{$domain.'.login.loginvia_'.$lonhost};
         if (($loginvia ne '') && ($loginvia ne $lonhost)) {
-            my %servers = &Apache::lonnet::get_servers($domain);
-            if ($servers{$loginvia} ne '') {
+            if (&Apache::lonnet::hostname($loginvia) ne '') {
                 $r->print(&redirect_page($loginvia));
                 return OK;
             }
@@ -338,22 +345,23 @@ $r->print(&Apache::loncommon::start_page
 # ----------------------------------------------------------------------- Texts
 
 my %lt=&Apache::lonlocal::texthash(
-	  'un'  => 'Username',
-	  'pw'  => 'Password',
-	  'dom' => 'Domain',
-	  'perc' => 'percent',
-	  'load' => 'Server Load',
-	  'userload' => 'User Load',
-	  'catalog' => 'Course Catalog',
-	  'log' => 'Log in',
-	  'help' => 'Log-in Help',
-	  'serv' => 'Server',
-	  'servadm' => 'Server Administration',
-	  'helpdesk' => 'Contact Helpdesk',
-	  'forgotpw' => 'Forgot password?',
-	  'newuser'  => 'New User?',
-	  );
+          'un'       => 'Username',
+          'pw'       => 'Password',
+          'dom'      => 'Domain',
+          'perc'     => 'percent',
+          'load'     => 'Server Load',
+          'userload' => 'User Load',
+          'catalog'  => 'Course/Community Catalog',
+          'log'      => 'Log in',
+          'help'     => 'Log-in Help',
+          'serv'     => 'Server',
+          'servadm'  => 'Server Administration',
+          'helpdesk' => 'Contact Helpdesk',
+          'forgotpw' => 'Forgot password?',
+          'newuser'  => 'New User?',
+       );
 # -------------------------------------------------- Change password field name
+
 my $forgotpw = &forgotpwdisplay(%lt);
 my $loginhelp = &loginhelpdisplay(%lt);
 
@@ -391,7 +399,7 @@ if (($showcoursecat eq '') || ($showcour
 }
 my $newuserlink;
 if ($shownewuserlink) {
-    $newuserlink = &newuser_link($lt{'newuser'}).'<br />';
+    $newuserlink = &newuser_link($lt{'newuser'});
 }
 my $logintitle;
 if ($loginheader eq 'text') {
@@ -413,11 +421,11 @@ my $loginform=(<<LFORM);
   <input type="hidden" name="lextkey" value="$lextkey" />
   <input type="hidden" name="uextkey" value="$uextkey" />
   <b><label for="uname">$lt{'un'}</label>:</b><br />
-  <input type="text" name="uname" size="15" value="$authusername" /><br />
+  <input type="text" name="uname" id="uname" size="15" value="$authusername" /><br />
   <b><label for="upass$now">$lt{'pw'}</label>:</b><br />
-  <input type="password" name="upass$now" size="15" /><br />
+  <input type="password" name="upass$now" id="upass$now" size="15" /><br />
   <b><label for="udom">$lt{'dom'}</label>:</b><br />
-  <input type="text" name="udom" size="15" value="$authdomain" /><br />
+  <input type="text" name="udom" id="udom" size="15" value="$authdomain" /><br />
   <input type="submit" value="$lt{'log'}" />
 </form>
 LFORM
@@ -450,11 +458,13 @@ HEADER
 </div>
   
 <div class="LC_loginpage_loginInfo">
-        $loginhelp<br />
-        $forgotpw<br />
-	$contactblock<br />
-        $newuserlink
-        $coursecatalog
+  $loginhelp<br />
+  $forgotpw<br />
+  <br />
+  $contactblock<br />
+  <br />
+  $newuserlink<br />
+  $coursecatalog
 </div>
 </div>
 ENDTOP
@@ -541,8 +551,8 @@ sub contactdisplay {
         $showhelpdesk = 1;
     }
     if ($servadm && $showadminmail) {
-        $contactblock .= '<b>&nbsp;&nbsp;&nbsp;'.$$lt{'servadm'}.':</b><br />'.
-                         '<tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'.$servadm.'</tt><br />&nbsp;<br />';
+        $contactblock .= $$lt{'servadm'}.':<br />'.
+                         '<tt>'.$servadm.'</tt><br />';
     }
     if ($showhelpdesk) {
         $contactblock .= '<a href="javascript:helpdesk()">'.$lt->{'helpdesk'}.'</a><br />';
@@ -563,9 +573,7 @@ function helpdesk() {
 </script>
 ENDSCRIPT
     }
-    $contactblock .= <<"ENDBLOCK";
-     &nbsp;&nbsp;&nbsp;$version
-ENDBLOCK
+    $contactblock .= $version;
     return $contactblock;
 }
 
@@ -582,7 +590,14 @@ sub loginhelpdisplay {
     my (%lt) = @_;
     my $login_help = 1;
     if ($login_help) {
-        return '<a href="/adm/loginproblems.html">'.$lt{'help'}.'</a>';
+    	my $dom = &Apache::lonnet::default_login_domain();
+		my %helpconfig = &Apache::lonnet::get_dom('configuration',['helpsettings'],$dom);
+		my $loginhelp_url = $helpconfig{'helpsettings'}{'loginhelpurl'};
+		if ($loginhelp_url ne '') {
+        	return '<a href="'.$loginhelp_url.'">'.$lt{'help'}.'</a>';
+        } else {
+        	return '<a href="/adm/loginproblems.html">'.$lt{'help'}.'</a>';
+       	}
     }
     return;
 }
@@ -596,7 +611,7 @@ END
 
 sub newuser_link {
     my ($linkname) = @_;
-    return '&nbsp;&nbsp;&nbsp;<a href="/adm/createaccount"><b>'.$linkname.'</b></a><br />';
+    return '<a href="/adm/createaccount">'.$linkname.'</a>';
 }
 
 1;