version 1.411, 2006/04/20 02:58:14
|
version 1.417, 2006/09/18 21:47:34
|
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 1148 sub newparser {
|
Line 1149 sub newparser {
|
} |
} |
|
|
sub parstring { |
sub parstring { |
my ($token) = @_; |
my ($token) = @_; |
my $temp=''; |
my (@vars,@values); |
foreach (@{$token->[3]}) { |
foreach my $attr (@{$token->[3]}) { |
unless ($_=~/\W/) { |
if ($attr!~/\W/) { |
my $val=$token->[2]->{$_}; |
my $val=$token->[2]->{$attr}; |
$val =~ s/([\%\@\\\"\'])/\\$1/g; |
$val =~ s/([\%\@\\\"\'])/\\$1/g; |
$val =~ s/(\$[^{a-zA-Z_])/\\$1/g; |
$val =~ s/(\$[^\{a-zA-Z_])/\\$1/g; |
$val =~ s/(\$)$/\\$1/; |
$val =~ s/(\$)$/\\$1/; |
#if ($val =~ m/^[\%\@]/) { $val="\\".$val; } |
#if ($val =~ m/^[\%\@]/) { $val="\\".$val; } |
$temp .= "my \$$_=\"$val\";"; |
push(@vars,"\$$attr"); |
} |
push(@values,"\"$val\""); |
} |
} |
return $temp; |
} |
|
my $var_init = |
|
(@vars) ? 'my ('.join(',',@vars).') = ('.join(',',@values).');' |
|
: ''; |
|
print STDERR $var_init."\n"; |
|
return $var_init; |
} |
} |
|
|
sub extlink { |
sub extlink { |
Line 1419 sub handler {
|
Line 1425 sub handler {
|
my $filecontents=&Apache::lonnet::getfile($file); |
my $filecontents=&Apache::lonnet::getfile($file); |
if ($filecontents eq -1) { |
if ($filecontents eq -1) { |
my $start_page=&Apache::loncommon::start_page('File Error'); |
my $start_page=&Apache::loncommon::start_page('File Error'); |
my $end_page=&Apache::loncommon::end_page('File Error'); |
my $end_page=&Apache::loncommon::end_page(); |
my $fnf=&mt('File not found'); |
my $fnf=&mt('File not found'); |
$result=(<<ENDNOTFOUND); |
$result=(<<ENDNOTFOUND); |
$start_page |
$start_page |
Line 1539 sub error {
|
Line 1545 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 |
Line 1622 sub get_param {
|
Line 1629 sub get_param {
|
} |
} |
if ( ! $args ) { return undef; } |
if ( ! $args ) { return undef; } |
if ( $case_insensitive ) { |
if ( $case_insensitive ) { |
if ($args =~ s/(my \$)(\Q$param\E)(=\")/$1.lc($2).$3/ei) { |
if ($args =~ s/(my (?:.*))(\$\Q$param\E[,\)])/$1.lc($2)/ei) { |
return &Apache::run::run("{$args;".'return $'.$param.'}', |
return &Apache::run::run("{$args;".'return $'.$param.'}', |
$safeeval); #' |
$safeeval); #' |
} else { |
} else { |
return undef; |
return undef; |
} |
} |
} else { |
} else { |
if ( $args =~ /my \$\Q$param\E=\"/ ) { |
if ( $args =~ /my .*\$\Q$param\E[,\)]/ ) { |
return &Apache::run::run("{$args;".'return $'.$param.'}', |
return &Apache::run::run("{$args;".'return $'.$param.'}', |
$safeeval); #' |
$safeeval); #' |
} else { |
} else { |