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

[bisitz]

bisitz		Fri Jun  1 16:00:29 2012 EDT

  Modified files:              
    /loncom/auth	lonroles.pm 
  Log:
  Improved design of server announcements on roles screen: Headline and additional padding
  
  
Index: loncom/auth/lonroles.pm
diff -u loncom/auth/lonroles.pm:1.266 loncom/auth/lonroles.pm:1.267
--- loncom/auth/lonroles.pm:1.266	Wed May 16 21:19:44 2012
+++ loncom/auth/lonroles.pm	Fri Jun  1 16:00:29 2012
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # User Roles Screen
 #
-# $Id: lonroles.pm,v 1.266 2012/05/16 21:19:44 droeschl Exp $
+# $Id: lonroles.pm,v 1.267 2012/06/01 16:00:29 bisitz Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -954,7 +954,12 @@
 	$r->print('<hr /><h2>'.&mt('Current Privileges').'</h2>');
 	$r->print(&privileges_info());
     }
-    $r->print(&Apache::lonnet::getannounce());
+    my $announcements = &Apache::lonnet::getannounce();
+    $r->print(
+        '<br />'.
+        '<h2>'.&mt('Announcements').'</h2>'.
+        $announcements
+    ) unless (!$announcements);
     if ($advanced) {
         my $esc_dom = &HTML::Entities::encode($env{'user.domain'},'"<>&');
         $r->print('<p><small><i>'