loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.229, 2003/02/12 20:43:18	version 1.230, 2003/02/12 22:04:34
Line 1506 sub get_param_var {	Line 1506 sub get_param_var {
if ( ! $context ) { $context = -1; }	if ( ! $context ) { $context = -1; }
my $args ='';	my $args ='';
if ( $#$parstack > (-2-$context) ) { $args=$$parstack[$context]; }	if ( $#$parstack > (-2-$context) ) { $args=$$parstack[$context]; }
	&Apache::lonxml::debug("Args are $args param is $param");
if ($case_insensitive) {	if ($case_insensitive) {
if (! ($args=~s/(my \$)(\Q$param\E)(=\")/$1.lc($2).$3/ei)) {	if (! ($args=~s/(my \$)(\Q$param\E)(=\")/$1.lc($2).$3/ei)) {
return undef;	return undef;
}	}
} elsif ( $args !~ /my \$\Q$param\E=\"/ ) { return undef; }	} elsif ( $args !~ /my \$\Q$param\E=\"/ ) { return undef; }
my $value=&Apache::run::run("{$args;".'return $'.$param.'}',$safeeval); #'	my $value=&Apache::run::run("{$args;".'return $'.$param.'}',$safeeval); #'
if ($value =~ /^[\$\@\%]/) {	&Apache::lonxml::debug("first run is $value");
return &Apache::run::run("return $value",$safeeval,1);	if ($value =~ /^[\$\@\%]\w+$/) {
	&Apache::lonxml::debug("doing second");
	my @result=&Apache::run::run("return $value",$safeeval,1);
	if (!defined($result[0])) {
	return $value
	} else {
	if (wantarray) { return @result; } else { return $result[0]; }
	}
} else {	} else {
return $value;	return $value;
}	}