version 1.260, 2003/05/29 18:42:22
|
version 1.261, 2003/06/10 14:33:32
|
Line 501 sub inner_xmlparse {
|
Line 501 sub inner_xmlparse {
|
my $dontpop=0; |
my $dontpop=0; |
while ( $#$pars > -1 ) { |
while ( $#$pars > -1 ) { |
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') ) { |
if ($metamode<1) { |
if ($metamode<1) { |
my $text=$token->[1]; |
my $text=$token->[1]; |
if ($token->[0] eq 'C' && $target eq 'tex') { |
if ($token->[0] eq 'C' && $target eq 'tex') { |
Line 510 sub inner_xmlparse {
|
Line 510 sub inner_xmlparse {
|
} |
} |
$result.=$text; |
$result.=$text; |
} |
} |
|
} elsif (($token->[0] eq 'D')) { |
|
if ($metamode<1 && $target eq 'web') { |
|
my $text=$token->[1]; |
|
$result.=$text; |
|
} |
} elsif ($token->[0] eq 'PI') { |
} elsif ($token->[0] eq 'PI') { |
if ($metamode<1) { |
if ($metamode<1 && $target eq 'web') { |
$result=$token->[2]; |
$result=$token->[2]; |
} |
} |
} elsif ($token->[0] eq 'S') { |
} elsif ($token->[0] eq 'S') { |
Line 1320 sub error {
|
Line 1325 sub error {
|
|
|
sub warning { |
sub warning { |
$warningcount++; |
$warningcount++; |
if ($ENV{'request.state'} eq 'construct' || $Apache::lonxml::debug) { |
|
print "<b>W</b>ARNING<b>:</b>".join('<br />',@_)."<br />\n"; |
if ($ENV{'form.grade_target'} ne 'tex') { |
|
if ($ENV{'request.state'} eq 'construct' || $Apache::lonxml::debug) { |
|
print "<b>W</b>ARNING<b>:</b>".join('<br />',@_)."<br />\n"; |
|
} |
} |
} |
} |
} |
|
|