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

[bisitz]

bisitz		Wed Jan 22 18:00:37 2014 EDT

  Modified files:              
    /loncom/auth	lonauth.pm 
  Log:
  Improved and consistent navigation and layout by using confirm_success and actionbox for failed login screen
  
  
  
Index: loncom/auth/lonauth.pm
diff -u loncom/auth/lonauth.pm:1.131 loncom/auth/lonauth.pm:1.132
--- loncom/auth/lonauth.pm:1.131	Sun Jan  5 11:17:16 2014
+++ loncom/auth/lonauth.pm	Wed Jan 22 18:00:37 2014
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # User Authentication Module
 #
-# $Id: lonauth.pm,v 1.131 2014/01/05 11:17:16 raeburn Exp $
+# $Id: lonauth.pm,v 1.132 2014/01/22 18:00:37 bisitz Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -196,18 +196,19 @@
     my $end_page = &Apache::loncommon::end_page();
     &Apache::loncommon::content_type($r,'text/html');
     $r->send_http_header;
+    my @actions =
+         (&mt('Please [_1]log in again[_2].','<a href="'.$retry.'">','</a>'));
     my $loginhelp = &loginhelpdisplay($udom);
     if ($loginhelp) {
-        $loginhelp = '<p><a href="'.$loginhelp.'">'.&mt('Login problems?').'</a></p>';
+        push(@actions, '<a href="'.$loginhelp.'">'.&mt('Login problems?').'</a>');
     }
+    #FIXME: link to helpdesk might be added here
 
     $r->print(
        $start_page
-      .'<h1>'.&mt('Sorry ...').'</h1>'
-      .'<p class="LC_warning">'.&mt($message).'</p>'
-      .'<p>'.&mt('Please [_1]log in again[_2].','<a href="'.$retry.'">','</a>')
-      .'</p>'
-      .$loginhelp
+      .'<h2>'.&mt('Sorry ...').'</h2>'
+      .&Apache::lonhtmlcommon::confirm_success(&mt($message),1).'<br /><br />'
+      .&Apache::lonhtmlcommon::actionbox(\@actions)
       .$end_page
     );
  }