version 1.327, 2004/07/08 14:35:12
|
version 1.331, 2004/07/19 16:48:28
|
Line 389 sub latex_special_symbols {
|
Line 389 sub latex_special_symbols {
|
} else { |
} else { |
$string=~s/\\/\\ensuremath{\\backslash}/g; |
$string=~s/\\/\\ensuremath{\\backslash}/g; |
$string=~s/([^\\]|^)\%/$1\\\%/g; |
$string=~s/([^\\]|^)\%/$1\\\%/g; |
$string=~s/\b_{2,}\b/ \\makebox\[1 cm\]\[b\]{\\hrulefill}/g; |
$string=~s/([^\\]|^)\$/$1\\\$/g; |
$string=~s/([^\\]|^)(\$|_)/$1\\$2/g; |
$string=~s/([^\\])\_/$1\\_/g; |
$string=~s/\$\$/\$\\\$/g; |
$string=~s/\$\$/\$\\\$/g; |
|
$string=~s/\_\_/\_\\\_/g; |
$string=~s/\#\#/\#\\\#/g; |
$string=~s/\#\#/\#\\\#/g; |
$string=~s/([^\\]|^)(\~|\^)/$1\\$2\\strut /g; |
$string=~s/([^\\]|^)(\~|\^)/$1\\$2\\strut /g; |
$string=~s/(>|<)/\\ensuremath\{$1\}/g; #more or less |
$string=~s/(>|<)/\\ensuremath\{$1\}/g; #more or less |
Line 745 sub init_safespace {
|
Line 746 sub init_safespace {
|
|
|
#need to inspect this class of ops |
#need to inspect this class of ops |
# $safeeval->deny(":base_orig"); |
# $safeeval->deny(":base_orig"); |
|
$safeeval->permit("require"); |
$safeinit .= ';$external::target="'.$target.'";'; |
$safeinit .= ';$external::target="'.$target.'";'; |
my $rndseed; |
my $rndseed; |
my ($symb,$courseid,$domain,$name) = &Apache::lonxml::whichuser(); |
my ($symb,$courseid,$domain,$name) = &Apache::lonxml::whichuser(); |
Line 753 sub init_safespace {
|
Line 755 sub init_safespace {
|
&Apache::lonxml::debug("Setting rndseed to $rndseed"); |
&Apache::lonxml::debug("Setting rndseed to $rndseed"); |
&Apache::run::run($safeinit,$safeeval); |
&Apache::run::run($safeinit,$safeeval); |
|
|
my $subroutine=<<'EVALUATESUB'; |
|
sub __LC_INTERNAL_EVALUATE__ { |
|
my ($__LC__a,$__LC__b,$__LC__c)=@_; |
|
my $__LC__prefix; |
|
while(1){ |
|
{ |
|
use strict; |
|
no strict "vars"; |
|
if (eval(defined(eval($__LC__a.$__LC__b)))) { |
|
return $__LC__prefix.eval($__LC__a.$__LC__b.$__LC__c); |
|
} |
|
} |
|
$__LC__prefix.=substr($__LC__a,0,1,""); |
|
if ($__LC__a!~/^(\$|&|\#)/) { last; } |
|
} |
|
return $__LC__prefix.$__LC__a.$__LC__b.$__LC__c; |
|
} |
|
EVALUATESUB |
|
$safeeval->permit("require"); |
|
$safeeval->reval($subroutine); |
|
$safeeval->deny("require"); |
|
} |
} |
|
|
sub default_homework_load { |
sub default_homework_load { |
Line 788 sub default_homework_load {
|
Line 769 sub default_homework_load {
|
} |
} |
} |
} |
|
|
|
my $metamode_was; |
sub startredirection { |
sub startredirection { |
$Apache::lonxml::redirection++; |
if (!$Apache::lonxml::redirection) { |
push (@Apache::lonxml::outputstack, ''); |
$metamode_was=$Apache::lonxml::metamode; |
|
} |
|
$Apache::lonxml::metamode=0; |
|
$Apache::lonxml::redirection++; |
|
push (@Apache::lonxml::outputstack, ''); |
} |
} |
|
|
sub endredirection { |
sub endredirection { |
if (!$Apache::lonxml::redirection) { |
if (!$Apache::lonxml::redirection) { |
&Apache::lonxml::error("Endredirection was called, before a startredirection, perhaps you have unbalanced tags. Some debuging information:".join ":",caller); |
&Apache::lonxml::error("Endredirection was called, before a startredirection, perhaps you have unbalanced tags. Some debuging information:".join ":",caller); |
return ''; |
return ''; |
} |
} |
$Apache::lonxml::redirection--; |
$Apache::lonxml::redirection--; |
pop @Apache::lonxml::outputstack; |
if (!$Apache::lonxml::redirection) { |
|
$Apache::lonxml::metamode=$metamode_was; |
|
} |
|
pop @Apache::lonxml::outputstack; |
} |
} |
|
|
sub end_tag { |
sub end_tag { |