--- loncom/homework/structuretags.pm 2004/11/10 22:20:50 1.271 +++ loncom/homework/structuretags.pm 2005/02/25 04:56:05 1.280 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # definition of tags that give a structure to a document # -# $Id: structuretags.pm,v 1.271 2004/11/10 22:20:50 albertel Exp $ +# $Id: structuretags.pm,v 1.280 2005/02/25 04:56:05 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -88,7 +88,11 @@ sub page_start { &Apache::lonxml::fontsettings(); } my $body_tag_start; - if (!defined($found{'body'})) { + if (!defined($found{'body'}) && $ENV{'request.state'} eq 'construct' + && $ENV{'environment.remote'} eq 'off') { + $body_tag_start=&Apache::loncommon::bodytag(); + $body_tag_start.=&Apache::lonxml::message_location(); + } elsif (!defined($found{'body'})) { $body_tag_start='
'; @@ -138,7 +142,8 @@ sub get_resource_name { if (defined($Apache::lonhomework::name)) { return $Apache::lonhomework::name; } - my $name=&Apache::lonnet::gettitle(); + my ($symb)=&Apache::lonxml::whichuser(); + my $name=&Apache::lonnet::gettitle($symb); if ($name eq '') { $name=&Apache::lonnet::EXT('resource.title'); if ($name eq 'con_lost') { $name = ''; } @@ -212,7 +217,7 @@ sub problem_edit_footer { return '