--- loncom/interface/lonwhatsnew.pm 2006/03/04 05:59:01 1.51 +++ loncom/interface/lonwhatsnew.pm 2006/03/15 19:41:26 1.52 @@ -1,5 +1,5 @@ # -# $Id: lonwhatsnew.pm,v 1.51 2006/03/04 05:59:01 albertel Exp $ +# $Id: lonwhatsnew.pm,v 1.52 2006/03/15 19:41:26 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -183,12 +183,12 @@ sub display_main_box { &display_actions_box($r,$tabbg,$command,$refpage,\%threshold_titles, \%interval_titles,\%initpage,$cdom,$crs,$checkallowed); } + my $end_page = &Apache::loncommon::end_page(); $r->print(<
- - +$end_page END_OF_BLOCK } @@ -201,8 +201,7 @@ END_OF_BLOCK sub display_header { my ($command,$checkallowed) = @_; - my $html=&Apache::lonxml::xmlbegin(); - my $bodytag=&Apache::loncommon::bodytag('Course Action Items'); + my $scripttag; unless ($command eq 'chgthreshold' || $command eq 'chginterval') { $scripttag = <<"END"; @@ -226,14 +225,7 @@ END '; } - return(< -Course Action Items -$scripttag - -$bodytag -ENDHEAD + return &Apache::loncommon::start_page('Course Action Items',$scripttag); } #-------------------------------