version 1.31, 2001/07/03 20:58:27
|
version 1.32, 2001/08/06 20:41:22
|
Line 264 sub end_output {
|
Line 264 sub end_output {
|
if (!$Apache::lonxml::registered) { |
if (!$Apache::lonxml::registered) { |
$currentstring.='<head>'.&Apache::lonxml::registerurl().'</head>'; |
$currentstring.='<head>'.&Apache::lonxml::registerurl().'</head>'; |
} |
} |
$token->[2]->{'onLoad'}.=&Apache::lonxml::loadevents(); |
my $onLoad=''; |
$token->[2]->{'onUnload'}.=&Apache::lonxml::unloadevents(); |
foreach my $key (keys(%{$token->[2]})) { |
|
&Apache::lonxml::debug("testing $key"); |
|
if ($key =~ /^onload$/i) { |
|
&Apache::lonxml::debug("I like $key"); |
|
$onLoad.=$token->[2]->{$key}.';'; |
|
delete($token->[2]->{$key}); |
|
} |
|
} |
|
$token->[2]->{'onLoad'}=$onLoad.&Apache::lonxml::loadevents(); |
|
my $onUnload=''; |
|
foreach my $key (keys(%{$token->[2]})) { |
|
if ($key =~ /^onunload$/i) { |
|
$onUnload.=$token->[2]->{$key}.';'; |
|
delete($token->[2]->{$key}); |
|
} |
|
} |
|
$token->[2]->{'onUnload'}=$onUnload. |
|
&Apache::lonxml::unloadevents(); |
|
|
$currentstring .= '<'.$token->[1]; |
$currentstring .= '<'.$token->[1]; |
map { |
map { |