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

[raeburn]

raeburn		Wed Jan 27 14:35:46 2010 EDT

  Modified files:              (Branch: version_2_9_X)
    /loncom/interface	lonwhatsnew.pm 
  Log:
  - Eliminate part of 1.97 not in 2.9 (no &loncommon::head_subbox()).
  
  
Index: loncom/interface/lonwhatsnew.pm
diff -u loncom/interface/lonwhatsnew.pm:1.99 loncom/interface/lonwhatsnew.pm:1.99.2.1
--- loncom/interface/lonwhatsnew.pm:1.99	Wed Jan 27 13:08:01 2010
+++ loncom/interface/lonwhatsnew.pm	Wed Jan 27 14:35:46 2010
@@ -1,5 +1,5 @@
 #
-# $Id: lonwhatsnew.pm,v 1.99 2010/01/27 13:08:01 wenzelju Exp $
+# $Id: lonwhatsnew.pm,v 1.99.2.1 2010/01/27 14:35:46 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -348,11 +348,11 @@
             &GDBM_READER(),0640)) {
             my $furl=&HTML::Entities::encode($bighash{'first_url'},'"<>&');
             untie(%bighash);
-            $header .= '<b><a href="'.$furl.'">'.$lt{'gtfr'}.
-                  '</a></b><br />';
+            $r->print('<span style="font-size: larger;"><a href="'.$furl.'">'.$lt{'gtfr'}.
+                  '</a></span><br />');
         }
     }
-    $header .= &mt('Page set to be displayed after you have selected a role in this '.$lctype).'.'
+    $r->print(&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;'
@@ -363,7 +363,7 @@
                   ,'</a>'
                   ,'<a href="/adm/preferences?action=changecourseinit&amp;refpage='.$refpage.'">'
                   ,'</a>')
-              .' </span>';
+              .' </span><br /><hr />');
 
     $r->print(&Apache::loncommon::head_subbox($header));