loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.19, 2000/08/16 18:32:58	version 1.20, 2000/09/19 18:05:21
Line 164 sub callsub {	Line 164 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 \n";	#print "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\n";	#print "NOT Calling sub $sub<br>\n";
if (defined($token->[4])) {	if (defined($token->[4])) {
$currentstring = $token->[4];	$currentstring = $token->[4];
} else {	} else {
Line 233 sub get_all_text {	Line 233 sub get_all_text {
sub parstring {	sub parstring {
my ($token) = @_;	my ($token) = @_;
my $temp='';	my $temp='';
map {$temp .= "my \$$_=\"$token->[2]->{$_}\";"} @{$token->[3]};	map {
	if ($_=~/\w+/) {
	$temp .= "my \$$_=\"$token->[2]->{$_}\";"
	}
	} @{$token->[3]};
return $temp;	return $temp;
}	}
1;	1;