--- loncom/homework/structuretags.pm 2007/10/09 23:32:57 1.401 +++ loncom/homework/structuretags.pm 2007/10/30 00:09:30 1.406 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # definition of tags that give a structure to a document # -# $Id: structuretags.pm,v 1.401 2007/10/09 23:32:57 albertel Exp $ +# $Id: structuretags.pm,v 1.406 2007/10/30 00:09:30 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -158,7 +158,9 @@ sub page_start { } elsif (!defined($found{'body'}) && $env{'request.state'} eq 'construct') { if ($target eq 'web' || $target eq 'edit') { - # no extra args to bodytag + if ($env{'environment.remote'} ne 'off') { + $body_args{'only_body'} = 1; + } } } elsif (!defined($found{'body'})) { my %add_entries; @@ -330,35 +332,44 @@ sub option { sub problem_web_to_edit_header { my ($rndseed)=@_; - my $result.=''; + my $result .= '