version 1.130, 2001/09/26 14:43:50
|
version 1.131, 2001/09/28 18:20:06
|
Line 1098 sub get_param {
|
Line 1098 sub get_param {
|
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]; } |
return &Apache::run::run("{$args;".'return $'.$param.'}',$safeeval); #' |
if ( $args =~ /my \$$param=\"/ ) { |
|
return &Apache::run::run("{$args;".'return $'.$param.'}',$safeeval); #' |
|
} else { |
|
return undef; |
|
} |
} |
} |
|
|
sub register_insert { |
sub register_insert { |