|
version 1.49, 2001/07/19 21:26:22
|
version 1.50, 2001/08/03 17:48:24
|
|
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 147 sub end_problem {
|
Line 160 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') { |
![[BACK]](/icons/back.gif){kind=icon}
Return to structuretags.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework