--- loncom/homework/structuretags.pm 2005/11/03 21:29:57 1.313 +++ loncom/homework/structuretags.pm 2005/11/08 21:09:08 1.318 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # definition of tags that give a structure to a document # -# $Id: structuretags.pm,v 1.313 2005/11/03 21:29:57 albertel Exp $ +# $Id: structuretags.pm,v 1.318 2005/11/08 21:09:08 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -115,11 +115,17 @@ sub page_start { &Apache::lonxml::fontsettings(); } my $body_tag_start; - if (!defined($found{'body'}) && $env{'request.state'} eq 'construct' - && $env{'environment.remote'} eq 'off') { - if ($target eq 'web' || $target eq 'edit') { - $body_tag_start=&Apache::loncommon::bodytag(); - $body_tag_start.=&Apache::lonxml::message_location(); + if (!defined($found{'body'}) && $env{'request.state'} eq 'construct') { + if ($env{'environment.remote'} eq 'off') { + if ($target eq 'web' || $target eq 'edit') { + $body_tag_start=&Apache::loncommon::bodytag(); + $body_tag_start.=&Apache::lonxml::message_location(); + } + } else { + if ($target eq 'web' || $target eq 'edit') { + $body_tag_start=&Apache::loncommon::bodytag(undef,undef,undef,1); + $body_tag_start.=&Apache::lonxml::message_location(); + } } } elsif (!defined($found{'body'})) { my $background=&Apache::lonxml::get_param('background',$parstack, @@ -175,6 +181,8 @@ sub setup_rndseed { my ($symb)=&Apache::lonxml::whichuser(); if ($env{'request.state'} eq "construct" || $symb eq '' || $Apache::lonhomework::history{'resource.CODE'}) { + &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, + ['rndseed']); $rndseed=$env{'form.rndseed'}; if (!$rndseed) { $rndseed=$Apache::lonhomework::history{'rndseed'}; @@ -257,8 +265,13 @@ sub problem_web_to_edit_header { $rndseed.'" onchange="javascript:document.lonhomework.changerandseed.click()" />