loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

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";
	}
}	}
}	}