--- loncom/xml/londefdef.pm 2004/11/19 21:17:56 1.246 +++ loncom/xml/londefdef.pm 2004/11/19 22:16:33 1.247 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Tags Default Definition Module # -# $Id: londefdef.pm,v 1.246 2004/11/19 21:17:56 albertel Exp $ +# $Id: londefdef.pm,v 1.247 2004/11/19 22:16:33 albertel Exp $ # # # Copyright Michigan State University Board of Trustees @@ -531,12 +531,19 @@ sub start_body { $token->[2]->{'onunload'}=&Apache::lonmenu::unloadevents(). ';'.$onUnload; - $currentstring .= '<'.$token->[1]; + if ($ENV{'request.state'} ne 'construct') { + $currentstring .= '<'.$token->[1]; + } foreach (keys %{$token->[2]}) { $currentstring.=' '.$_.'="'.$token->[2]->{$_}.'"'; } - $currentstring.='>'; + if ($ENV{'request.state'} ne 'construct') { + $currentstring.='>'; + } if ($ENV{'request.state'} ne 'published') { + my $remote=($ENV{'environment.remote'} ne 'off'); + $currentstring=&Apache::loncommon::bodytag(undef,undef, + $currentstring,$remote); $currentstring.=(<