version 1.394, 2005/12/20 20:32:55
|
version 1.396, 2006/02/04 22:11:42
|
Line 149 $Apache::lonxml::post_evaluate=1;
|
Line 149 $Apache::lonxml::post_evaluate=1;
|
#a header message to emit in the case of any generated warning or errors |
#a header message to emit in the case of any generated warning or errors |
$Apache::lonxml::warnings_error_header=''; |
$Apache::lonxml::warnings_error_header=''; |
|
|
|
# Control whether or not LaTeX symbols should be substituted for their |
|
# \ style equivalents...this may be turned off e.g. in an verbatim |
|
# environment. |
|
|
|
$Apache::lonxml::substitute_LaTeX_symbols = 1; # Starts out on. |
|
|
|
sub enable_LaTeX_substitutions { |
|
$Apache::lonxml::substitute_LaTeX_symbols = 1; |
|
} |
|
sub disable_LaTeX_substitutions { |
|
$Apache::lonxml::substitute_LaTeX_symbols = 0; |
|
} |
|
|
sub xmlbegin { |
sub xmlbegin { |
my ($style)=@_; |
my ($style)=@_; |
my $output=''; |
my $output=''; |
Line 382 sub xmlparse {
|
Line 395 sub xmlparse {
|
|
|
sub latex_special_symbols { |
sub latex_special_symbols { |
my ($string,$where)=@_; |
my ($string,$where)=@_; |
|
# |
|
# If e.g. in verbatim mode, then don't substitute. |
|
# but return original string. |
|
# |
|
if (!($Apache::lonxml::substitute_LaTeX_symbols)) { |
|
return $string; |
|
} |
if ($where eq 'header') { |
if ($where eq 'header') { |
$string =~ s/(\\|_|\^)/ /g; |
$string =~ s/(\\|_|\^)/ /g; |
$string =~ s/(\$|%|\{|\})/\\$1/g; |
$string =~ s/(\$|%|\{|\})/\\$1/g; |
Line 1437 ENDNOTFOUND
|
Line 1457 ENDNOTFOUND
|
undef($Apache::lonhomework::parsing_a_task); |
undef($Apache::lonhomework::parsing_a_task); |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
['rawmode']); |
['rawmode']); |
if ($env{'rawmode'}) { $result = $filecontents; } |
if ($env{'form.rawmode'}) { $result = $filecontents; } |
} |
} |
} |
} |
|
|