version 1.16, 2001/01/12 20:38:05
|
version 1.18, 2001/01/17 17:41:48
|
Line 237 sub BEGIN {
|
Line 237 sub BEGIN {
|
sub start_meta { |
sub start_meta { |
my ($target,$token) = @_; |
my ($target,$token) = @_; |
my $currentstring = ''; |
my $currentstring = ''; |
&Apache::lonxml::debug("In meta"); |
|
if ($target eq 'web') { |
if ($target eq 'web') { |
&Apache::lonxml::debug("In meta2"); |
|
$currentstring = $token->[4]; |
$currentstring = $token->[4]; |
} |
} |
if ($target eq 'meta') { |
if ($target eq 'meta') { |
&Apache::lonxml::debug("In meta3"); |
|
unless ($token->[2]->{'http-equiv'}) { |
unless ($token->[2]->{'http-equiv'}) { |
my $name=$token->[2]->{'name'}; |
my $name=$token->[2]->{'name'}; |
$name=~tr/A-Z/a-z/; |
$name=~tr/A-Z/a-z/; |
Line 255 sub BEGIN {
|
Line 252 sub BEGIN {
|
} |
} |
} |
} |
} |
} |
&Apache::lonxml::debug("send back $currentstring"); |
|
return $currentstring; |
return $currentstring; |
} |
} |
sub end_meta { |
sub end_meta { |
Line 295 sub BEGIN {
|
Line 291 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 305 sub BEGIN {
|
Line 303 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 315 sub BEGIN {
|
Line 315 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 326 sub BEGIN {
|
Line 328 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 336 sub BEGIN {
|
Line 340 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 348 sub BEGIN {
|
Line 354 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 490 sub BEGIN {
|
Line 498 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 501 sub BEGIN {
|
Line 511 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 511 sub BEGIN {
|
Line 523 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 522 sub BEGIN {
|
Line 536 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 532 sub BEGIN {
|
Line 548 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 543 sub BEGIN {
|
Line 561 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 553 sub BEGIN {
|
Line 573 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 564 sub BEGIN {
|
Line 586 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 574 sub BEGIN {
|
Line 598 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 585 sub BEGIN {
|
Line 611 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 595 sub BEGIN {
|
Line 623 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 606 sub BEGIN {
|
Line 636 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 638 sub BEGIN {
|
Line 670 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 648 sub BEGIN {
|
Line 682 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 658 sub BEGIN {
|
Line 694 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 669 sub BEGIN {
|
Line 707 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 680 sub BEGIN {
|
Line 720 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 689 sub BEGIN {
|
Line 731 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 701 sub BEGIN {
|
Line 745 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 720 sub BEGIN {
|
Line 766 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 730 sub BEGIN {
|
Line 778 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 741 sub BEGIN {
|
Line 791 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 751 sub BEGIN {
|
Line 803 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; |
} |
} |