version 1.234, 2003/02/14 19:35:55
|
version 1.236, 2003/02/19 14:55:27
|
Line 457 sub htmlclean {
|
Line 457 sub htmlclean {
|
|
|
sub latex_special_symbols { |
sub latex_special_symbols { |
my ($current_token,$stack,$parstack,$where)=@_; |
my ($current_token,$stack,$parstack,$where)=@_; |
if ($where=='header') { |
if ($where eq 'header') { |
|
$current_token =~ s/\\/ /g; |
|
$current_token =~ s/\{/\\\{/g; |
|
$current_token =~ s/\}/\\\}/g; |
$current_token =~ s/_/ /g; |
$current_token =~ s/_/ /g; |
$current_token =~ s/\^/ /g; |
$current_token =~ s/\^/ /g; |
$current_token =~ s/&/\\&/g; |
$current_token =~ s/&/\\&/g; |
|
$current_token =~ s/\#/\\\#/g; |
|
$current_token =~ s/%/\\%/g; |
|
$current_token =~ s/\$/\\\$/g; |
} else { |
} else { |
$current_token=~s/\\ /\\char92 /g; |
$current_token=~s/\\ /\\char92 /g; |
$current_token=~s/\^/\\char94 /g; |
$current_token=~s/\^/\\char94 /g; |
Line 592 sub callsub {
|
Line 598 sub callsub {
|
my $sub1; |
my $sub1; |
no strict 'refs'; |
no strict 'refs'; |
my $tag=$token->[1]; |
my $tag=$token->[1]; |
|
# get utterly rid of extended html tags |
|
if ($tag=~/^x\-/i) { return ''; } |
my $space=$Apache::lonxml::alltags{$tag}[-1]; |
my $space=$Apache::lonxml::alltags{$tag}[-1]; |
if (!$space) { |
if (!$space) { |
$tag=~tr/A-Z/a-z/; |
$tag=~tr/A-Z/a-z/; |