loncom/xml/londefdef.pm - diff

Return to londefdef.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.55, 2002/04/26 18:25:56	version 1.56, 2002/05/03 22:32:15
Line 337 sub end_m {	Line 337 sub end_m {
delete($token->[2]->{$key});	delete($token->[2]->{$key});
}	}
}	}
$token->[2]->{'onLoad'}=$onLoad.&Apache::lonxml::loadevents();	$token->[2]->{'onLoad'}=&Apache::lonxml::loadevents().
	';'.$onLoad;
my $onUnload='';	my $onUnload='';
foreach my $key (keys(%{$token->[2]})) {	foreach my $key (keys(%{$token->[2]})) {
if ($key =~ /^onunload$/i) {	if ($key =~ /^onunload$/i) {
Line 345 sub end_m {	Line 346 sub end_m {
delete($token->[2]->{$key});	delete($token->[2]->{$key});
}	}
}	}
$token->[2]->{'onUnload'}=$onUnload.	$token->[2]->{'onUnload'}=&Apache::lonxml::unloadevents().
&Apache::lonxml::unloadevents();	';'.$onUnload;

$currentstring .= '<'.$token->[1];	$currentstring .= '<'.$token->[1];
foreach (keys %{$token->[2]}) {	foreach (keys %{$token->[2]}) {