--- loncom/homework/lonhomework.pm	2006/04/11 21:08:29	1.239
+++ loncom/homework/lonhomework.pm	2006/04/13 19:01:40	1.240
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Homework handler
 #
-# $Id: lonhomework.pm,v 1.239 2006/04/11 21:08:29 albertel Exp $
+# $Id: lonhomework.pm,v 1.240 2006/04/13 19:01:40 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -623,8 +623,8 @@ sub handle_save_or_undo {
 sub analyze_header {
     my ($request) = @_;
     my $result =
-	&Apache::loncommon::start_page('Analyzing a problem',undef,
-				       {'only_body' => ($env{'environment.remote'} ne 'off'),});
+	&Apache::loncommon::start_page('Analyzing a problem',undef);
+
     $result .= 
 	&Apache::lonxml::message_location().'
             <form name="lonhomework" method="POST" action="'.
@@ -756,9 +756,7 @@ sub editxmlmode {
 	if ($rows < 20) { $rows = 20; }
 	my $start_page = 
 	    &Apache::loncommon::start_page("EditXML $file",
-					   &Apache::edit::js_change_detection(),
-					   {'only_body' =>
-						($env{'environment.remote'} ne 'off')});
+					   &Apache::edit::js_change_detection());
 
 	$result.=$start_page.
 	    &renderpage($request,$file,['no_output_web'],1).
@@ -911,8 +909,8 @@ sub newproblem {
 	    $errormsg='<p><font color="red">'.&mt('You did not select a template.').'</font></p>'."\n";
 	}
 	my $instructions;
-	my $bodytag=&Apache::loncommon::bodytag(undef,undef,undef,
-					($env{'environment.remote'} ne 'off'));
+	my $start_page = 
+	    &Apache::loncommon::start_page("Create New $extension");
 	if ($templatelist) { $instructions=&mt(", select a template from the pull-down menu below.").'<br />'.&mt("Then");}
 	my %lt=&Apache::lonlocal::texthash( 'create' => 'Creating a new',
 			  'resource' => 'resource',
@@ -923,7 +921,7 @@ sub newproblem {
 			  'Create' => 'Create',
 			  'button' => 'button');
 	$request->print(<<ENDNEWPROBLEM);
-$bodytag
+$start_page
 <h1>$lt{'create'} $extension $lt{'resource'}</h1>
 $errormsg
 $lt{'requested'} <tt>$shownurl</tt> $lt{'not exist'}.