--- loncom/interface/lonwhatsnew.pm 2009/10/30 16:31:39 1.96 +++ loncom/interface/lonwhatsnew.pm 2009/11/19 14:05:46 1.97 @@ -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 @@ sub display_actions_box { 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(''.$lt{'gtfr'}. - '
'); + $header .= ''.$lt{'gtfr'}. + '
'; } } - $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).'.' .' ' .&mt('Currently: [_1].',''.$currinit.'') .'  ' @@ -361,7 +362,9 @@ sub display_actions_box { ,'' ,'' ,'') - .'

'); + .' '; + + $r->print(&Apache::loncommon::head_subbox($header)); if ($command eq 'reset') { $result = &process_reset($cdom,$crs); @@ -378,8 +381,10 @@ sub display_actions_box { 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 .= '' + .&mt('Unable to save visibility settings due to [_1]', + $store_result) + .''; } if ($result) {