Return to londefdef.pm CVS log | Up to [LON-CAPA] / loncom / xml |
version 1.30, 2001/06/02 03:59:59 | version 1.31, 2001/07/03 20:58:27 |
---|---|
Line 11 use Apache::lonxml; | Line 11 use Apache::lonxml; |
sub BEGIN { | sub BEGIN { |
&Apache::lonxml::register('Apache::londefdef',('m','html','head','map','select','option','input','textarea','form','meta','title','body','center','b','strong','table','dt','h1','h2','h3','h4','h5','h6','cite','i','address','dd','dl','dir','ol','ul','menu','dfn','kbd','tt','code','em','q','p','br','big','small','basefont','font','s','sub','strike','sup','hr','a','li','u','output','param','applet','img','embed','tr','td','allow')); | &Apache::lonxml::register('Apache::londefdef',('m','html','head','map','select','option','input','textarea','form','meta','title','body','center','b','strong','table','dt','h1','h2','h3','h4','h5','h6','cite','i','address','dd','dl','dir','ol','ul','menu','dfn','kbd','tt','code','em','q','p','br','big','small','basefont','font','s','sub','strike','sup','hr','a','li','u','output','param','applet','img','embed','tr','td','allow','frameset')); |
} | } |
Line 261 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') { |
$token->[2]->{'onLoad'}.=&Apache::lonxml::loadevents(); | if (!$Apache::lonxml::registered) { |
$token->[2]->{'onUnload'}.=&Apache::lonxml::unloadevents(); | $currentstring.='<head>'.&Apache::lonxml::registerurl().'</head>'; |
} | |
$currentstring = '<'.$token->[1]; | $token->[2]->{'onLoad'}.=&Apache::lonxml::loadevents(); |
map { | $token->[2]->{'onUnload'}.=&Apache::lonxml::unloadevents(); |
$currentstring.=' '.$_.'="'.$token->[2]->{$_}.'"'; | |
} keys %{$token->[2]}; | $currentstring .= '<'.$token->[1]; |
$currentstring.='>'; | map { |
$currentstring.=' '.$_.'="'.$token->[2]->{$_}.'"'; | |
} keys %{$token->[2]}; | |
$currentstring.='>'; | |
} elsif ($target eq 'tex') { | } elsif ($target eq 'tex') { |
$currentstring = " \\begin{document} "; | $currentstring = " \\begin{document} "; |
} | } |
Line 1350 sub end_output { | Line 1353 sub end_output { |
return ''; | return ''; |
} | } |
# ------------------------------------------------------------------------- Frames | |
sub start_frameset { | |
my ($target,$token) = @_; | |
my $currentstring = ''; | |
if ($target eq 'web') { | |
if (!$Apache::lonxml::registered) { | |
$currentstring.='<head>'.&Apache::lonxml::registerurl().'</head>'; | |
} | |
$currentstring .= $token->[4]; | |
} | |
return $currentstring; | |
} | |
sub end_frameset { | |
my ($target,$token) = @_; | |
my $currentstring = ''; | |
if ($target eq 'web') { | |
$currentstring = $token->[2]; | |
} | |
return $currentstring; | |
} | |
1; | 1; |
__END__ | __END__ |