--- 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().'