loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.61, 2001/03/26 15:42:05	version 1.62, 2001/03/26 17:32:14
Line 249 sub callsub {	Line 249 sub callsub {
$safeeval,$style);	$safeeval,$style);
}	}
if (my $space=$Apache::lonxml::alltags{$token->[1]}) {	if (my $space=$Apache::lonxml::alltags{$token->[1]}) {
#&Apache::lonxml::debug("Calling sub $sub in $space<br />\n");	&Apache::lonxml::debug("Calling sub $sub in $space $metamode<br />\n");
$sub1="$space\:\:$sub";	$sub1="$space\:\:$sub";
$Apache::lonxml::curdepth=join('_',@Apache::lonxml::depthcounter);	$Apache::lonxml::curdepth=join('_',@Apache::lonxml::depthcounter);
$currentstring .= &$sub1($target,$token,$parstack,$parser,	$currentstring .= &$sub1($target,$token,$parstack,$parser,
$safeeval,$style);	$safeeval,$style);
} else {	} else {
#&Apache::lonxml::debug("NOT Calling sub $sub in $space<br />\n");	&Apache::lonxml::debug("NOT Calling sub $sub in $space $metamode<br />\n");
if (defined($token->[4]) && ($metamode < '1')) {	if ($metamode <1) {
$currentstring .= $token->[4];	if (defined($token->[4]) && ($metamode < 1)) {
} else {	$currentstring .= $token->[4];
$currentstring .= $token->[2];	} else {
	$currentstring .= $token->[2];
	}
}	}
}	}
if ($target eq 'edit' && $token->[0] eq 'E') {	if ($target eq 'edit' && $token->[0] eq 'E') {