--- loncom/homework/lonhomework.pm 2006/03/24 17:34:11 1.237 +++ loncom/homework/lonhomework.pm 2006/04/11 21:05:54 1.238 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # The LON-CAPA Homework handler # -# $Id: lonhomework.pm,v 1.237 2006/03/24 17:34:11 albertel Exp $ +# $Id: lonhomework.pm,v 1.238 2006/04/11 21:05:54 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -622,12 +622,11 @@ sub handle_save_or_undo { sub analyze_header { my ($request) = @_; - my $bodytag=&Apache::loncommon::bodytag(undef,undef,undef, - ($env{'environment.remote'} ne 'off')); - my $html=&Apache::lonxml::xmlbegin(); - my $result.=$html.' - '.&mt("Analyzing a problem").' - '.$bodytag.&Apache::lonxml::message_location().' + my $result = + &Apache::loncommon::start_page('Analyzing a problem',undef, + {'only_body' => ($env{'environment.remote'} ne 'off'),}); + $result .= + &Apache::lonxml::message_location().'
'. &Apache::structuretags::remember_problem_state().' @@ -755,13 +754,13 @@ sub editxmlmode { if ($cols > 80) { $cols = 80; } if ($cols < 70) { $cols = 70; } if ($rows < 20) { $rows = 20; } - my $bodytag=&Apache::loncommon::bodytag(undef,undef,undef, - ($env{'environment.remote'} ne 'off')); - my $html=&Apache::lonxml::xmlbegin(); - my $head="EditXML $file". - &Apache::edit::js_change_detection().""; + my $start_page = + &Apache::loncommon::start_page("EditXML $file", + &Apache::edit::js_change_detection(), + {'only_body' => + ($env{'environment.remote'} ne 'off')}); - $result.=$html.$head.$bodytag. + $result.=$start_page. &renderpage($request,$file,['no_output_web'],1). &Apache::lonxml::message_location().'
-
'; + '.&Apache::loncommon::end_page(); &Apache::lonxml::add_messages(\$result); $request->print($result); } @@ -937,7 +936,7 @@ ENDNEWPROBLEM $request->print(""); } $request->print("
"); - $request->print("

"); + $request->print("

".&Apache::loncommon::end_page()); } return ''; }