--- loncom/homework/structuretags.pm 2002/09/09 21:08:31 1.113 +++ loncom/homework/structuretags.pm 2002/09/23 17:19:24 1.115 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # definition of tags that give a structure to a document # -# $Id: structuretags.pm,v 1.113 2002/09/09 21:08:31 albertel Exp $ +# $Id: structuretags.pm,v 1.115 2002/09/23 17:19:24 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -161,7 +161,7 @@ sub problem_web_to_edit_header {  Show All Foils
'; } @@ -481,7 +481,8 @@ sub end_library { my $result=''; if ($target eq 'edit') { $result=&problem_edit_footer(); - } elsif ($target eq 'web' && $ENV{'request.state'} eq "construct") { + } elsif ($target eq 'web' && $$tagstack[0] ne 'problem' && + $ENV{'request.state'} eq "construct") { $result.=''.&Apache::lonxml::xmlend(); } return $result;