--- loncom/homework/lonhomework.pm	2006/04/11 21:08:29	1.239
+++ loncom/homework/lonhomework.pm	2006/04/25 15:32:40	1.242
@@ -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.242 2006/04/25 15:32:40 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -234,7 +234,7 @@ sub check_slot_access {
     my ($status,$datemsg)=&check_access($id);
     
     my $useslots = &Apache::lonnet::EXT("resource.$id.useslots");
-    if ($useslots ne 'resource') {
+    if ($useslots ne 'resource' && $useslots ne 'sequence') {
 	return ($status,$datemsg);
     }
 
@@ -266,6 +266,7 @@ sub check_slot_access {
     my $slotstatus='NOT_IN_A_SLOT';
     my ($returned_slot,$slot_name);
     foreach my $slot (@slots) {
+	$slot =~ s/(^\s*|\s*$)//g;
 	&Apache::lonxml::debug("getting $slot");
 	my %slot=&Apache::lonnet::get_slot($slot);
 	&Apache::lonhomework::showhash(%slot);
@@ -623,8 +624,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 +757,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 +910,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 +922,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'}.