--- loncom/homework/structuretags.pm 2005/11/03 17:55:12 1.312
+++ 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.312 2005/11/03 17:55:12 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'};
@@ -245,9 +253,11 @@ sub option {
sub problem_web_to_edit_header {
my ($rndseed)=@_;
- my $result.='
-
-
+ my $result.='';
+ if (!$Apache::lonhomework::parsing_a_task) {
+ $result .= '';
+ }
+ $result .= '