version 1.27, 2001/03/27 18:19:29
|
version 1.29, 2001/05/04 17:38:22
|
Line 2
|
Line 2
|
# Tags Default Definition Module |
# Tags Default Definition Module |
# |
# |
# last modified 06/26/00 by Alexander Sakharuk |
# last modified 06/26/00 by Alexander Sakharuk |
# 11/6,11/30,02/01/01 Gerd Kortemeyer |
# 11/6,11/30,02/01/01,5/4 Gerd Kortemeyer |
|
|
package Apache::londefdef; |
package Apache::londefdef; |
|
|
Line 58 sub end_output {
|
Line 58 sub end_output {
|
my ($target,$token) = @_; |
my ($target,$token) = @_; |
my $currentstring = ''; |
my $currentstring = ''; |
if ($target eq 'web') { |
if ($target eq 'web') { |
$currentstring = $token->[4]; |
$currentstring = &Apache::lonxml::xmlbegin(). |
|
&Apache::lonxml::fontsettings(); |
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
Line 66 sub end_output {
|
Line 67 sub end_output {
|
my ($target,$token) = @_; |
my ($target,$token) = @_; |
my $currentstring = ''; |
my $currentstring = ''; |
if ($target eq 'web') { |
if ($target eq 'web') { |
$currentstring = $token->[2]; |
$currentstring = &Apache::lonxml::xmlend(); |
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
Line 83 sub end_output {
|
Line 84 sub end_output {
|
my ($target,$token) = @_; |
my ($target,$token) = @_; |
my $currentstring = ''; |
my $currentstring = ''; |
if ($target eq 'web') { |
if ($target eq 'web') { |
$currentstring = $token->[2]; |
$currentstring = &Apache::lonxml::registerurl(). |
|
$token->[2]; |
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
Line 259 sub end_output {
|
Line 261 sub end_output {
|
my ($target,$token) = @_; |
my ($target,$token) = @_; |
my $currentstring = ''; |
my $currentstring = ''; |
if ($target eq 'web') { |
if ($target eq 'web') { |
$currentstring = $token->[4]; |
$token->[2]->{'onLoad'}.=&Apache::lonxml::loadevents(); |
} elsif ($target eq 'tex') { |
$token->[2]->{'onUnload'}.=&Apache::lonxml::unloadevents(); |
|
|
|
$currentstring = '<'.$token->[1]; |
|
map { |
|
$currentstring.=' '.$_.'="'.$token->[2]->{$_}.'"'; |
|
} keys %{$token->[2]}; |
|
$currentstring.='>'; |
|
} elsif ($target eq 'tex') { |
$currentstring = " \\begin{document} "; |
$currentstring = " \\begin{document} "; |
} |
} |
return $currentstring; |
return $currentstring; |