version 1.48, 2001/07/18 20:08:34
|
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 113 sub start_problem {
|
Line 126 sub start_problem {
|
<input type="hidden" name="problemmode" value="Edit" /> |
<input type="hidden" name="problemmode" value="Edit" /> |
<input type="submit" name="problemmode" value="View" /> |
<input type="submit" name="problemmode" value="View" /> |
<input type="submit" name="Undo" value="undo" /> <hr /> |
<input type="submit" name="Undo" value="undo" /> <hr /> |
|
<input type="submit" name="submit" value="Submit Changes" /><br /> |
'; |
'; |
my $temp=&Apache::edit::insertlist($target,$token); |
my $temp=&Apache::edit::insertlist($target,$token); |
$result.=$temp; |
$result.=$temp; |
Line 146 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') { |