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]; |
} |
} |