version 1.3, 2000/07/18 21:27:10
|
version 1.6, 2000/10/26 14:01:40
|
Line 13 sub BEGIN {
|
Line 13 sub BEGIN {
|
} |
} |
|
|
#===================================================================== TAG SUBROUTINES |
#===================================================================== TAG SUBROUTINES |
#----------------------------------------------------------------------------- <m> tag |
#-- <m> tag |
sub start_m { |
sub start_m { |
my ($target,$token) = @_; |
my ($target,$token,$parstack,$parser) = @_; |
my $currentstring = ''; |
my $currentstring = ''; |
|
if ($target eq 'meta') { |
|
my $inside = &Apache::lonxml::get_all_text("/m",$$parser[$#$parser]); |
|
$currentstring =''; |
|
} |
if ($target eq 'web') { |
if ($target eq 'web') { |
$currentstring = lontexconvert::converted('hi'); |
my $inside = &Apache::lonxml::get_all_text("/m",$$parser[$#$parser]); |
|
$inside ='\\documentstyle{article}'.$inside; |
|
# &Apache::lonxml::debug($inside); |
|
$currentstring = &Apache::lontexconvert::converted(\$inside); |
|
# &Apache::lonxml::debug($currentstring); |
|
|
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring = "\$"; |
$currentstring = "\$"; |
} |
} |
Line 28 sub BEGIN {
|
Line 37 sub BEGIN {
|
my ($target,$token) = @_; |
my ($target,$token) = @_; |
my $currentstring = ''; |
my $currentstring = ''; |
if ($target eq 'web') { |
if ($target eq 'web') { |
$currentstring = "\".'\$') "; |
|
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring = "\$"; |
$currentstring = "\$"; |
|
} elsif ($target eq 'meta') { |
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
Line 824 sub BEGIN {
|
Line 833 sub BEGIN {
|
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
|
sub end_hr { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring .= $token->[2]; |
|
} elsif ($target eq 'tex') { |
|
} |
|
return $currentstring; |
|
} |
#----------------------------------------------------------------------------- <a> tag |
#----------------------------------------------------------------------------- <a> tag |
sub start_a { |
sub start_a { |
my ($target,$token) = @_; |
my ($target,$token) = @_; |