version 1.393, 2005/12/08 19:37:05
|
version 1.394, 2005/12/20 20:32:55
|
Line 364 sub xmlparse {
|
Line 364 sub xmlparse {
|
&initdepth(); |
&initdepth(); |
&init_alarm(); |
&init_alarm(); |
my $finaloutput = &inner_xmlparse($target,\@stack,\@parstack,\@pars, |
my $finaloutput = &inner_xmlparse($target,\@stack,\@parstack,\@pars, |
$safeeval,\%style_for_target); |
$safeeval,\%style_for_target,1); |
|
|
if ($env{'request.uri'}) { |
if ($env{'request.uri'}) { |
&writeallows($env{'request.uri'}); |
&writeallows($env{'request.uri'}); |
Line 411 sub latex_special_symbols {
|
Line 411 sub latex_special_symbols {
|
} |
} |
|
|
sub inner_xmlparse { |
sub inner_xmlparse { |
my ($target,$stack,$parstack,$pars,$safeeval,$style_for_target)=@_; |
my ($target,$stack,$parstack,$pars,$safeeval,$style_for_target,$start)=@_; |
my $finaloutput = ''; |
my $finaloutput = ''; |
my $result; |
my $result; |
my $token; |
my $token; |
Line 526 sub inner_xmlparse {
|
Line 526 sub inner_xmlparse {
|
# $finaloutput.=&endredirection; |
# $finaloutput.=&endredirection; |
# } |
# } |
|
|
if ($target eq 'grade') { &endredirection(); } |
if ( $start && $target eq 'grade') { &endredirection(); } |
if ( $Apache::lonxml::redirection > $startredirection) { |
if ( $Apache::lonxml::redirection > $startredirection) { |
while ($Apache::lonxml::redirection > $startredirection) { |
while ($Apache::lonxml::redirection > $startredirection) { |
$finaloutput .= &endredirection(); |
$finaloutput .= &endredirection(); |