|
version 1.412, 2006/05/15 22:30:10
|
version 1.416, 2006/09/14 21:52:36
|
|
Line 366 sub latex_special_symbols {
|
Line 366 sub latex_special_symbols {
|
| return $string; |
return $string; |
| } |
} |
| if ($where eq 'header') { |
if ($where eq 'header') { |
| $string =~ s/(\\|_|\^)/ /g; |
$string =~ s/\\/\$\\backslash\$/g; # \ -> $\backslash$ per LaTex line by line pg 10. |
| $string =~ s/(\$|%|\{|\})/\\$1/g; |
$string =~ s/(\$|%|\{|\})/\\$1/g; |
| $string =~ s/_/ /g; |
|
| $string=&Apache::lonprintout::character_chart($string); |
$string=&Apache::lonprintout::character_chart($string); |
| # any & or # leftover should be safe to just escape |
# any & or # leftover should be safe to just escape |
| $string=~s/([^\\])\&/$1\\\&/g; |
$string=~s/([^\\])\&/$1\\\&/g; |
| $string=~s/([^\\])\#/$1\\\#/g; |
$string=~s/([^\\])\#/$1\\\#/g; |
| |
$string =~ s/_/\\_/g; # _ -> \_ |
| |
$string =~ s/\^/\\\^{}/g; # ^ -> \^{} |
| } else { |
} else { |
| $string=~s/\\/\\ensuremath{\\backslash}/g; |
$string=~s/\\/\\ensuremath{\\backslash}/g; |
| $string=~s/\\\%|\%/\\\%/g; |
$string=~s/\\\%|\%/\\\%/g; |
|
Line 1539 sub error {
|
Line 1540 sub error {
|
| #public or browsers |
#public or browsers |
| $errormsg=&mt("An error occured while processing this resource. The author has been notified."); |
$errormsg=&mt("An error occured while processing this resource. The author has been notified."); |
| } |
} |
| my $msg = join('<br />',@_); |
my $host=$Apache::lonnet::perlvar{'lonHostID'}; |
| |
my $msg = join('<br />',(@_,"The error occurred on host <tt>$host</tt>")); |
| #notify author |
#notify author |
| &Apache::lonmsg::author_res_msg($env{'request.filename'},$msg); |
&Apache::lonmsg::author_res_msg($env{'request.filename'},$msg); |
| #notify course |
#notify course |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonxml.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / xml