--- loncom/homework/structuretags.pm 2001/07/18 20:08:34 1.48 +++ loncom/homework/structuretags.pm 2001/08/06 18:33:58 1.52 @@ -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); } @@ -54,6 +67,7 @@ sub start_problem { #intialize globals $Apache::inputtags::part='0'; @Apache::inputtags::responselist = (); + @Apache::inputtags::previous=(); $Apache::lonhomework::type=&Apache::lonnet::EXT('resource.0.type'); &Apache::lonxml::debug("Found this to be of type :$Apache::lonhomework::type:"); if ($Apache::lonhomework::type eq '') { @@ -113,6 +127,7 @@ sub start_problem {