--- loncom/homework/structuretags.pm 2001/07/19 21:26:22 1.49 +++ loncom/homework/structuretags.pm 2001/08/03 17:48:24 1.50 @@ -43,8 +43,21 @@ sub page_start { my $result=&Apache::londefdef::start_html($target,$token,$tagstack,$parstack,$parser,$safeeval); my $head_tag_start=''.&Apache::lonxml::registerurl(); my $body_tag_start=''; + 'onUnload="'.&Apache::lonxml::unloadevents().'" '; + my $background=&Apache::lonxml::get_param('background',$parstack,$safeeval); + if ($background) { + $Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]= + $background; + $body_tag_start.='background="'.$background.'" '; + } else { + my $bgcolor=&Apache::lonxml::get_param('bgcolor',$parstack,$safeeval); + if ($bgcolor) { + $body_tag_start.='bgcolor="'.$bgcolor.'" '; + } else { + $body_tag_start.='bgcolor="#ffffff"'; + } + } + $body_tag_start.='>'; return ($result,$head_tag_start,$body_tag_start); } @@ -147,6 +160,7 @@ sub end_problem { } elsif ($status eq 'SHOW_ANSWER' || $status eq 'CANNOT_ANSWER') { $result.="\n"; } + $result.=&Apache::lonxml::xmlend(); } } if ($target eq 'meta') {