version 1.17, 2001/01/12 20:39:49
|
version 1.20, 2001/02/01 19:10:11
|
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 Gerd Kortemeyer |
# 11/6,11/30,02/01/01 Gerd Kortemeyer |
|
|
package Apache::londefdef; |
package Apache::londefdef; |
|
|
Line 11 use Apache::lonxml;
|
Line 11 use Apache::lonxml;
|
|
|
sub BEGIN { |
sub BEGIN { |
|
|
&Apache::lonxml::register('Apache::londefdef',('m','html','head','map','applet','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')); |
&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')); |
|
|
} |
} |
|
|
Line 106 sub BEGIN {
|
Line 106 sub BEGIN {
|
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
#------------------------------------------------------------------------ <applet> tag |
|
sub start_applet { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[4]; |
|
} |
|
return $currentstring; |
|
} |
|
sub end_applet { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[2]; |
|
} |
|
return $currentstring; |
|
} |
|
#------------------------------------------------------------------------ <select> tag |
#------------------------------------------------------------------------ <select> tag |
sub start_select { |
sub start_select { |
my ($target,$token) = @_; |
my ($target,$token) = @_; |
Line 291 sub BEGIN {
|
Line 275 sub BEGIN {
|
$currentstring = $token->[4]; |
$currentstring = $token->[4]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring = " \\begin{center} "; |
$currentstring = " \\begin{center} "; |
|
} elsif ($target eq 'latexsource') { |
|
$currentstring = " \\begin{center} "; |
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
Line 301 sub BEGIN {
|
Line 287 sub BEGIN {
|
$currentstring = $token->[2]; |
$currentstring = $token->[2]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring = " \\end{center}"; |
$currentstring = " \\end{center}"; |
|
} elsif ($target eq 'latexsource') { |
|
$currentstring = " \\end{center}"; |
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
Line 311 sub BEGIN {
|
Line 299 sub BEGIN {
|
if ($target eq 'web') { |
if ($target eq 'web') { |
$currentstring = $token->[4]; |
$currentstring = $token->[4]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring = " {\\bf "; |
$currentstring = " \\textbf{"; |
|
} elsif ($target eq 'latexsource') { |
|
$currentstring = " \\textbf{"; |
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
Line 322 sub BEGIN {
|
Line 312 sub BEGIN {
|
$currentstring = $token->[2]; |
$currentstring = $token->[2]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring = "}"; |
$currentstring = "}"; |
|
} elsif ($target eq 'latexsource') { |
|
$currentstring = "}"; |
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
Line 332 sub BEGIN {
|
Line 324 sub BEGIN {
|
if ($target eq 'web') { |
if ($target eq 'web') { |
$currentstring = $token->[4]; |
$currentstring = $token->[4]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring = " {\\bf "; |
$currentstring = " \\textbf{"; |
|
} elsif ($target eq 'latexsource') { |
|
$currentstring = " \\textbf{"; |
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
Line 344 sub BEGIN {
|
Line 338 sub BEGIN {
|
$currentstring = $token->[2]; |
$currentstring = $token->[2]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring = "}"; |
$currentstring = "}"; |
|
} elsif ($target eq 'latexsource') { |
|
$currentstring = "}"; |
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
Line 486 sub BEGIN {
|
Line 482 sub BEGIN {
|
if ($target eq 'web') { |
if ($target eq 'web') { |
$currentstring .= $token->[4]; |
$currentstring .= $token->[4]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring .= "{ \\it "; |
$currentstring .= "\\textit{"; |
|
} elsif ($target eq 'latexsource') { |
|
$currentstring .= "\\textit{"; |
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
Line 497 sub BEGIN {
|
Line 495 sub BEGIN {
|
$currentstring .= $token->[2]; |
$currentstring .= $token->[2]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring .= "}"; |
$currentstring .= "}"; |
|
} elsif ($target eq 'latexsource') { |
|
$currentstring .= "}"; |
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
Line 507 sub BEGIN {
|
Line 507 sub BEGIN {
|
if ($target eq 'web') { |
if ($target eq 'web') { |
$currentstring .= $token->[4]; |
$currentstring .= $token->[4]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring .= "{ \\it "; |
$currentstring .= "\\textit{"; |
|
} elsif ($target eq 'latexsource') { |
|
$currentstring .= "\\textit{"; |
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
Line 518 sub BEGIN {
|
Line 520 sub BEGIN {
|
$currentstring .= $token->[2]; |
$currentstring .= $token->[2]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring .= "}"; |
$currentstring .= "}"; |
|
} elsif ($target eq 'latexsource') { |
|
$currentstring .= "}"; |
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
Line 528 sub BEGIN {
|
Line 532 sub BEGIN {
|
if ($target eq 'web') { |
if ($target eq 'web') { |
$currentstring .= $token->[4]; |
$currentstring .= $token->[4]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring .= "{ \\it "; |
$currentstring .= "\\textit{"; |
|
} elsif ($target eq 'latexsource') { |
|
$currentstring .= "\\textit{"; |
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
Line 539 sub BEGIN {
|
Line 545 sub BEGIN {
|
$currentstring .= $token->[2]; |
$currentstring .= $token->[2]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring .= "}"; |
$currentstring .= "}"; |
|
} elsif ($target eq 'latexsource') { |
|
$currentstring .= "}"; |
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
Line 549 sub BEGIN {
|
Line 557 sub BEGIN {
|
if ($target eq 'web') { |
if ($target eq 'web') { |
$currentstring .= $token->[4]; |
$currentstring .= $token->[4]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring .= "{ \\it "; |
$currentstring .= "\\textit{"; |
|
} elsif ($target eq 'latexsource') { |
|
$currentstring .= "\\textit{"; |
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
Line 560 sub BEGIN {
|
Line 570 sub BEGIN {
|
$currentstring .= $token->[2]; |
$currentstring .= $token->[2]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring .= "}"; |
$currentstring .= "}"; |
|
} elsif ($target eq 'latexsource') { |
|
$currentstring .= "}"; |
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
Line 570 sub BEGIN {
|
Line 582 sub BEGIN {
|
if ($target eq 'web') { |
if ($target eq 'web') { |
$currentstring .= $token->[4]; |
$currentstring .= $token->[4]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring .= "{ \\tt "; |
$currentstring .= "\\texttt{"; |
|
} elsif ($target eq 'latexsource') { |
|
$currentstring .= "\\texttt{"; |
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
Line 581 sub BEGIN {
|
Line 595 sub BEGIN {
|
$currentstring .= $token->[2]; |
$currentstring .= $token->[2]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring .= "}"; |
$currentstring .= "}"; |
} |
} elsif ($target eq 'latexsource') { |
|
$currentstring .= "}"; |
|
} |
return $currentstring; |
return $currentstring; |
} |
} |
#---------------------------------------------------------------------------- <kbd> tag |
#---------------------------------------------------------------------------- <kbd> tag |
Line 591 sub BEGIN {
|
Line 607 sub BEGIN {
|
if ($target eq 'web') { |
if ($target eq 'web') { |
$currentstring .= $token->[4]; |
$currentstring .= $token->[4]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring .= "{ \\tt "; |
$currentstring .= "\\texttt"; |
|
} elsif ($target eq 'latexsource') { |
|
$currentstring .= "\\texttt{"; |
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
Line 602 sub BEGIN {
|
Line 620 sub BEGIN {
|
$currentstring .= $token->[2]; |
$currentstring .= $token->[2]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring .= "}"; |
$currentstring .= "}"; |
|
} elsif ($target eq 'latexsource') { |
|
$currentstring .= "}"; |
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
Line 634 sub BEGIN {
|
Line 654 sub BEGIN {
|
$currentstring .= $token->[4]; |
$currentstring .= $token->[4]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring .= "\\emph{"; |
$currentstring .= "\\emph{"; |
|
} elsif ($target eq 'latexsource') { |
|
$currentstring .= "\\emph{"; |
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
Line 644 sub BEGIN {
|
Line 666 sub BEGIN {
|
$currentstring .= $token->[2]; |
$currentstring .= $token->[2]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring .= "}"; |
$currentstring .= "}"; |
} |
} elsif ($target eq 'latexsource') { |
|
$currentstring .= "}"; |
|
} |
return $currentstring; |
return $currentstring; |
} |
} |
#----------------------------------------------------------------------------- <q> tag |
#----------------------------------------------------------------------------- <q> tag |
Line 654 sub BEGIN {
|
Line 678 sub BEGIN {
|
if ($target eq 'web') { |
if ($target eq 'web') { |
$currentstring .= $token->[4]; |
$currentstring .= $token->[4]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring .= "{ \\emph "; |
$currentstring .= "\\emph{"; |
} |
} elsif ($target eq 'latexsource') { |
|
$currentstring .= "\\emph{"; |
|
} |
return $currentstring; |
return $currentstring; |
} |
} |
sub end_q { |
sub end_q { |
Line 665 sub BEGIN {
|
Line 691 sub BEGIN {
|
$currentstring .= $token->[2]; |
$currentstring .= $token->[2]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring .= "}"; |
$currentstring .= "}"; |
} |
} elsif ($target eq 'latexsource') { |
|
$currentstring .= "}"; |
|
} |
return $currentstring; |
return $currentstring; |
} |
} |
#----------------------------------------------------------------------------- <p> tag |
#----------------------------------------------------------------------------- <p> tag |
Line 676 sub BEGIN {
|
Line 704 sub BEGIN {
|
$currentstring .= $token->[4]; |
$currentstring .= $token->[4]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring .= "{\\par "; |
$currentstring .= "{\\par "; |
|
} elsif ($target eq 'latexsource') { |
|
$currentstring .= "{\\par "; |
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
Line 685 sub BEGIN {
|
Line 715 sub BEGIN {
|
if ($target eq 'web') { |
if ($target eq 'web') { |
$currentstring .= $token->[2]; |
$currentstring .= $token->[2]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring .= " }"; |
$currentstring .= "}"; |
|
} elsif ($target eq 'latexsource') { |
|
$currentstring .= "}"; |
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
Line 697 sub BEGIN {
|
Line 729 sub BEGIN {
|
$currentstring .= $token->[4]; |
$currentstring .= $token->[4]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring .= "\\\\"; |
$currentstring .= "\\\\"; |
|
} elsif ($target eq 'latexsource') { |
|
$currentstring .= "\\\\"; |
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
Line 716 sub BEGIN {
|
Line 750 sub BEGIN {
|
$currentstring .= $token->[4]; |
$currentstring .= $token->[4]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring .= "{\\large "; |
$currentstring .= "{\\large "; |
} |
} elsif ($target eq 'latexsource') { |
|
$currentstring .= "{\\large "; |
|
} |
return $currentstring; |
return $currentstring; |
} |
} |
sub end_big { |
sub end_big { |
Line 726 sub BEGIN {
|
Line 762 sub BEGIN {
|
$currentstring .= $token->[2]; |
$currentstring .= $token->[2]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring .= " }"; |
$currentstring .= " }"; |
|
} elsif ($target eq 'latexsource') { |
|
$currentstring .= " }"; |
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
Line 737 sub BEGIN {
|
Line 775 sub BEGIN {
|
$currentstring .= $token->[4]; |
$currentstring .= $token->[4]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring .= "{\\footnotesize "; |
$currentstring .= "{\\footnotesize "; |
|
} elsif ($target eq 'latexsource') { |
|
$currentstring .= "{\\footnotesize "; |
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
Line 747 sub BEGIN {
|
Line 787 sub BEGIN {
|
$currentstring .= $token->[2]; |
$currentstring .= $token->[2]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring .= " }"; |
$currentstring .= " }"; |
|
} elsif ($target eq 'latexsource') { |
|
$currentstring .= " }"; |
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
Line 1256 sub BEGIN {
|
Line 1298 sub BEGIN {
|
$Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]= |
$Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]= |
$token->[2]->{'value'}; |
$token->[2]->{'value'}; |
} |
} |
$Apache::lonxml::extlinks[$Apache::lonxml::extlinks+1]= |
$Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]= |
$token->[2]->{'src'}; |
$token->[2]->{'src'}; |
my $currentstring = ''; |
my $currentstring = ''; |
if ($target eq 'web') { |
if ($target eq 'web') { |
Line 1282 sub BEGIN {
|
Line 1324 sub BEGIN {
|
sub start_allow { |
sub start_allow { |
my ($target,$token) = @_; |
my ($target,$token) = @_; |
|
|
$Apache::lonxml::extlinks[$Apache::lonxml::extlinks+1]= |
$Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]= |
$token->[2]->{'src'}; |
$token->[2]->{'src'}; |
|
|
return ''; |
return ''; |