version 1.49, 2001/07/19 21:26:22
|
version 1.51, 2001/08/03 22:12:07
|
Line 43 sub page_start {
|
Line 43 sub page_start {
|
my $result=&Apache::londefdef::start_html($target,$token,$tagstack,$parstack,$parser,$safeeval); |
my $result=&Apache::londefdef::start_html($target,$token,$tagstack,$parstack,$parser,$safeeval); |
my $head_tag_start='<head>'.&Apache::lonxml::registerurl(); |
my $head_tag_start='<head>'.&Apache::lonxml::registerurl(); |
my $body_tag_start='<body onLoad="'.&Apache::lonxml::loadevents().'" '. |
my $body_tag_start='<body onLoad="'.&Apache::lonxml::loadevents().'" '. |
'onUnload="'.&Apache::lonxml::unloadevents().'" '. |
'onUnload="'.&Apache::lonxml::unloadevents().'" '; |
'bgcolor="#FFFFFF">'; |
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); |
return ($result,$head_tag_start,$body_tag_start); |
} |
} |
|
|
Line 54 sub start_problem {
|
Line 67 sub start_problem {
|
#intialize globals |
#intialize globals |
$Apache::inputtags::part='0'; |
$Apache::inputtags::part='0'; |
@Apache::inputtags::responselist = (); |
@Apache::inputtags::responselist = (); |
|
@Apache::inputtags::previous=(); |
$Apache::lonhomework::type=&Apache::lonnet::EXT('resource.0.type'); |
$Apache::lonhomework::type=&Apache::lonnet::EXT('resource.0.type'); |
&Apache::lonxml::debug("Found this to be of type :$Apache::lonhomework::type:"); |
&Apache::lonxml::debug("Found this to be of type :$Apache::lonhomework::type:"); |
if ($Apache::lonhomework::type eq '') { |
if ($Apache::lonhomework::type eq '') { |
Line 147 sub end_problem {
|
Line 161 sub end_problem {
|
} elsif ($status eq 'SHOW_ANSWER' || $status eq 'CANNOT_ANSWER') { |
} elsif ($status eq 'SHOW_ANSWER' || $status eq 'CANNOT_ANSWER') { |
$result.="</body>\n"; |
$result.="</body>\n"; |
} |
} |
|
$result.=&Apache::lonxml::xmlend(); |
} |
} |
} |
} |
if ($target eq 'meta') { |
if ($target eq 'meta') { |
Line 307 sub start_part {
|
Line 322 sub start_part {
|
if ($id eq '') { $id = $Apache::lonxml::curdepth; } |
if ($id eq '') { $id = $Apache::lonxml::curdepth; } |
$Apache::inputtags::part=$id; |
$Apache::inputtags::part=$id; |
@Apache::inputtags::responselist = (); |
@Apache::inputtags::responselist = (); |
|
@Apache::inputtags::previous=(); |
if ($target eq 'meta') { |
if ($target eq 'meta') { |
return &Apache::response::mandatory_part_meta; |
return &Apache::response::mandatory_part_meta; |
} elsif ($target eq 'web' || $target eq 'grade') { |
} elsif ($target eq 'web' || $target eq 'grade') { |