version 1.325, 2004/06/12 01:09:31
|
version 1.327, 2004/07/08 14:35:12
|
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 844 sub decreasedepth {
|
Line 845 sub decreasedepth {
|
|
|
sub get_all_text_unbalanced { |
sub get_all_text_unbalanced { |
#there is a copy of this in lonpublisher.pm |
#there is a copy of this in lonpublisher.pm |
my($tag,$pars)= @_; |
my($tag,$pars)= @_; |
my $token; |
my $token; |
my $result=''; |
my $result=''; |
$tag='<'.$tag.'>'; |
$tag='<'.$tag.'>'; |
while ($token = $$pars[-1]->get_token) { |
while ($token = $$pars[-1]->get_token) { |
if (($token->[0] eq 'T')||($token->[0] eq 'C')||($token->[0] eq 'D')) { |
if (($token->[0] eq 'T')||($token->[0] eq 'C')||($token->[0] eq 'D')) { |
$result.=$token->[1]; |
$result.=$token->[1]; |
} elsif ($token->[0] eq 'PI') { |
} elsif ($token->[0] eq 'PI') { |
$result.=$token->[2]; |
$result.=$token->[2]; |
} elsif ($token->[0] eq 'S') { |
} elsif ($token->[0] eq 'S') { |
$result.=$token->[4]; |
$result.=$token->[4]; |
} elsif ($token->[0] eq 'E') { |
} elsif ($token->[0] eq 'E') { |
$result.=$token->[2]; |
$result.=$token->[2]; |
} |
} |
if ($result =~ /(.*)\Q$tag\E(.*)/is) { |
if ($result =~ /\Q$tag\E/is) { |
&Apache::lonxml::debug('Got a winner with leftovers ::'.$2); |
($result,my $redo)=$result =~ /(.*)\Q$tag\E(.*)/is; |
&Apache::lonxml::debug('Result is :'.$1); |
#&Apache::lonxml::debug('Got a winner with leftovers ::'.$2); |
$result=$1; |
#&Apache::lonxml::debug('Result is :'.$1); |
my $redo=$tag.$2; |
$redo=$tag.$redo; |
&Apache::lonxml::newparser($pars,\$redo); |
&Apache::lonxml::newparser($pars,\$redo); |
last; |
last; |
} |
} |
} |
} |
return $result |
return $result |
} |
} |
|
|
sub increment_counter { |
sub increment_counter { |
Line 1334 sub debug {
|
Line 1335 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]); |
} |
} |
} |
} |
|
|