version 1.417, 2006/09/18 21:47:34
|
version 1.419, 2006/09/26 04:26:15
|
Line 1165 sub parstring {
|
Line 1165 sub parstring {
|
my $var_init = |
my $var_init = |
(@vars) ? 'my ('.join(',',@vars).') = ('.join(',',@values).');' |
(@vars) ? 'my ('.join(',',@vars).') = ('.join(',',@values).');' |
: ''; |
: ''; |
print STDERR $var_init."\n"; |
|
return $var_init; |
return $var_init; |
} |
} |
|
|
Line 1655 sub get_param_var {
|
Line 1654 sub get_param_var {
|
} |
} |
&Apache::lonxml::debug("Args are $args param is $param"); |
&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)/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); #' |
&Apache::lonxml::debug("first run is $value"); |
&Apache::lonxml::debug("first run is $value"); |
if ($value =~ /^[\$\@\%][a-zA-Z_]\w*$/) { |
if ($value =~ /^[\$\@\%][a-zA-Z_]\w*$/) { |