version 1.326, 2004/07/07 20:43:20
|
version 1.328, 2004/07/12 16:25:51
|
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\\$2/g; |
$string=~s/([^\\]|^)(\$|_)/$1\\$2/g; |
$string=~s/\$\$/\$\\\$/g; |
$string=~s/\$\$/\$\\\$/g; |
$string=~s/\#\#/\#\\\#/g; |
$string=~s/\#\#/\#\\\#/g; |
Line 787 sub default_homework_load {
|
Line 788 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 { |
Line 1334 sub debug {
|
Line 1343 sub debug {
|
my $request=$Apache::lonxml::request; |
my $request=$Apache::lonxml::request; |
if (!$request) { $request=Apache->request; } |
if (!$request) { $request=Apache->request; } |
$request->print('<font size="-2"><pre>DEBUG:'.&HTML::Entities::encode($_[0],'<>&"')."</pre></font>\n"); |
$request->print('<font size="-2"><pre>DEBUG:'.&HTML::Entities::encode($_[0],'<>&"')."</pre></font>\n"); |
|
# &Apache::lonnet::logthis($_[0]); |
} |
} |
} |
} |
|
|