version 1.227, 2003/02/03 18:03:53
|
version 1.229, 2003/02/12 20:43:18
|
Line 145 $Apache::lonxml::registered=0;
|
Line 145 $Apache::lonxml::registered=0;
|
$Apache::lonxml::request=''; |
$Apache::lonxml::request=''; |
|
|
# a problem number counter, and check on ether it is used |
# a problem number counter, and check on ether it is used |
$Apache::lonxml::counter=1; |
$Apache::lonxml::counter=4; |
$Apache::lonxml::counter_changed=0; |
$Apache::lonxml::counter_changed=0; |
|
|
#internal check on whether to look at style defs |
#internal check on whether to look at style defs |
Line 668 sub htmlclean {
|
Line 668 sub htmlclean {
|
} |
} |
|
|
sub latex_special_symbols { |
sub latex_special_symbols { |
my ($current_token,$stack,$parstack)=@_; |
my ($current_token,$stack,$parstack,$where)=@_; |
$current_token=~s/\\ /\\char92 /g; |
if ($where=='header') { |
$current_token=~s/\^/\\char94 /g; |
$current_token =~ s/_/ /g; |
$current_token=~s/\~/\\char126 /g; |
$current_token =~ s/\^/ /g; |
$current_token=~s/(&[^a-z\#])/\\$1/g; |
$current_token =~ s/&/\\&/g; |
$current_token=~s/([^&])\#/$1\\#/g; |
} else { |
$current_token=~s/(\$|_|{|})/\\$1/g; |
$current_token=~s/\\ /\\char92 /g; |
$current_token=~s/\\char92 /\\texttt{\\char92}/g; |
$current_token=~s/\^/\\char94 /g; |
$current_token=~s/>/\$>\$/g; #more |
$current_token=~s/\~/\\char126 /g; |
$current_token=~s/</\$<\$/g; #less |
$current_token=~s/(&[^a-z\#])/\\$1/g; |
if ($current_token=~m/\d%/) {$current_token =~ s/(\d)%/$1\\%/g;} #percent after digit |
$current_token=~s/([^&])\#/$1\\#/g; |
if ($current_token=~m/\s%/) {$current_token =~ s/(\s)%/$1\\%/g;} #persent after space |
$current_token=~s/(\$|_|{|})/\\$1/g; |
|
$current_token=~s/\\char92 /\\texttt{\\char92}/g; |
|
$current_token=~s/>/\$>\$/g; #more |
|
$current_token=~s/</\$<\$/g; #less |
|
if ($current_token=~m/\d%/) {$current_token =~ s/(\d)%/$1\\%/g;} #percent after digit |
|
if ($current_token=~m/\s%/) {$current_token =~ s/(\s)%/$1\\%/g;} #persent after space |
|
} |
return $current_token; |
return $current_token; |
} |
} |
|
|
Line 1144 sub get_all_text {
|
Line 1150 sub get_all_text {
|
} |
} |
} |
} |
} |
} |
|
if (($depth >=0) && ($#$pars == 0) ) { $top_empty=1; } |
if (($depth >=0) && ($#$pars > 0) ) { |
if (($depth >=0) && ($#$pars > 0) ) { |
pop(@$pars); |
pop(@$pars); |
pop(@Apache::lonxml::pwd); |
pop(@Apache::lonxml::pwd); |
} |
} |
if (($depth >=0) && ($#$pars == 0) ) { &debug("here4");$top_empty=1; } |
|
} |
} |
if ($top_empty && $depth >= 0) { |
if ($top_empty && $depth >= 0) { |
#never found the end tag ran out of text, throw error send back blank |
#never found the end tag ran out of text, throw error send back blank |