version 1.3, 2000/07/18 21:27:10
|
version 1.5, 2000/10/12 13:51:50
|
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 '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 33 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 = "\$"; |
} |
} |