[LON-CAPA-cvs] cvs: loncom /interface lonwhatsnew.pm

[bisitz]

bisitz		Thu Nov 19 14:05:46 2009 EDT

  Modified files:              
    /loncom/interface	lonwhatsnew.pm 
  Log:
  - Moved What's-New-Page header into head_subbox
  - Added error style to error message
  - Smaller appearance: Replaced link style "larger" by "bold"
  
  
Index: loncom/interface/lonwhatsnew.pm
diff -u loncom/interface/lonwhatsnew.pm:1.96 loncom/interface/lonwhatsnew.pm:1.97
--- loncom/interface/lonwhatsnew.pm:1.96	Fri Oct 30 16:31:39 2009
+++ loncom/interface/lonwhatsnew.pm	Thu Nov 19 14:05:46 2009
@@ -1,5 +1,5 @@
 #
-# $Id: lonwhatsnew.pm,v 1.96 2009/10/30 16:31:39 bisitz Exp $
+# $Id: lonwhatsnew.pm,v 1.97 2009/11/19 14:05:46 bisitz Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -341,16 +341,17 @@
         return;
     }
 
+    my $header = '';
     if ($refpage eq 'start') {
         if (tie(my %bighash,'GDBM_File',$env{'request.course.fn'}.'.db',
             &GDBM_READER(),0640)) {
             my $furl=$bighash{'first_url'};
             untie(%bighash);
-            $r->print('<span style="font-size: larger;"><a href="'.$furl.'">'.$lt{'gtfr'}.
-                  '</a></span><br />');
+            $header .= '<b><a href="'.$furl.'">'.$lt{'gtfr'}.
+                  '</a></b><br />';
         }
     }
-    $r->print(&mt('Page set to be displayed after you have selected a role in this '.$lctype).'.'
+    $header .= &mt('Page set to be displayed after you have selected a role in this '.$lctype).'.'
               .' <span class="LC_nobreak">'
               .&mt('Currently: [_1].','<i>'.$currinit.'</i>')
               .'&nbsp;&nbsp;'
@@ -361,7 +362,9 @@
                   ,'</a>'
                   ,'<a href="/adm/preferences?action=changecourseinit&amp;refpage='.$refpage.'">'
                   ,'</a>')
-              .' </span><br /><hr />');
+              .' </span>';
+
+    $r->print(&Apache::loncommon::head_subbox($header));
 
     if ($command eq 'reset') {
         $result = &process_reset($cdom,$crs);
@@ -378,8 +381,10 @@
     unless ($store_result eq 'ok') { 
         &Apache::lonnet::logthis('Error saving whatsnew settings: '.
             $store_result.' for '.'user '.$uname.':'.$udom.' in '.$lctype.' '.$cid);
-        $result .= &mt('Unable to save visibility settings due to [_1]',
-                       $store_result); 
+        $result .= '<span class="LC_error">'
+                  .&mt('Unable to save visibility settings due to [_1]',
+                       $store_result)
+                  .'</span>';
     }
 
     if ($result) {