loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.21, 2000/09/19 19:10:01	version 1.22, 2000/10/02 22:19:19
Line 165 sub callsub {	Line 165 sub callsub {
{	{
no strict 'refs';	no strict 'refs';
if (my $space=$Apache::lonxml::alltags{$token->[1]}) {	if (my $space=$Apache::lonxml::alltags{$token->[1]}) {
#print "Calling sub $sub in $space<br>\n";	&Apache::lonxml::debug("Calling sub $sub in $space<br>\n");
$sub="$space\:\:$sub";	$sub="$space\:\:$sub";
$Apache::lonxml::curdepth=join('_',@Apache::lonxml::depthcounter);	$Apache::lonxml::curdepth=join('_',@Apache::lonxml::depthcounter);
$currentstring = &$sub($target,$token,$parstack,$parser,	$currentstring = &$sub($target,$token,$parstack,$parser,
$safeeval,$style);	$safeeval,$style);
} else {	} else {
#print "NOT Calling sub $sub<br>\n";	&Apache::lonxml::debug("NOT Calling sub $sub in $space<br>\n");
if (defined($token->[4])) {	if (defined($token->[4])) {
$currentstring = $token->[4];	$currentstring = $token->[4];
} else {	} else {
Line 241 sub parstring {	Line 241 sub parstring {
} @{$token->[3]};	} @{$token->[3]};
return $temp;	return $temp;
}	}

	$Apache::lonxml::debug=0;
	sub debug {
	if ($Apache::lonxml::debug eq 1) {
	print "DEBUG:".$_[0]."<br>\n";
	}
	}
	sub error {
	if ($Apache::lonxml::debug eq 1) {
	print "ERROR:".$_[0]."<br>\n";
	}
	}
	sub warning {
	if ($Apache::lonxml::debug eq 1) {
	print "WARNING:".$_[0]."<br>\n";
	}
	}

1;	1;
__END__	__END__