loncom/xml/londefdef.pm - diff

Return to londefdef.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.46, 2002/02/26 22:27:22	version 1.47, 2002/03/06 20:27:00
Line 150 sub end_m {	Line 150 sub end_m {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring = &Apache::lonxml::registerurl().	$currentstring = &Apache::lonxml::registerurl(undef,$target).
$token->[2];	$token->[2];
}	}
return $currentstring;	return $currentstring;
Line 332 sub end_m {	Line 332 sub end_m {
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
if (!$Apache::lonxml::registered) {	if (!$Apache::lonxml::registered) {
$currentstring.='<head>'.&Apache::lonxml::registerurl().'</head>';	$currentstring.='<head>'.
	&Apache::lonxml::registerurl(undef,$target).'</head>';
}	}
my $onLoad='';	my $onLoad='';
foreach my $key (keys(%{$token->[2]})) {	foreach my $key (keys(%{$token->[2]})) {
Line 1474 sub start_embed {	Line 1475 sub start_embed {
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
if (!$Apache::lonxml::registered) {	if (!$Apache::lonxml::registered) {
$currentstring.='<head>'.&Apache::lonxml::registerurl().'</head>';	$currentstring.='<head>'.
	&Apache::lonxml::registerurl(undef,$target).'</head>';
}	}
$currentstring .= $token->[4];	$currentstring .= $token->[4];
}	}