version 1.49, 2001/07/19 21:26:22
|
version 1.52, 2001/08/06 18:33:58
|
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 290 sub start_randomlist {
|
Line 305 sub start_randomlist {
|
sub shuffle { |
sub shuffle { |
my $a=shift; |
my $a=shift; |
my $i; |
my $i; |
|
&Apache::response::setrandomnumber(); |
for($i=@$a;--$i;) { |
for($i=@$a;--$i;) { |
my $j=int rand($i+1); |
my $j=int rand($i+1); |
next if $i == $j; |
next if $i == $j; |
Line 307 sub start_part {
|
Line 323 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') { |