version 1.1, 2000/07/06 21:07:26
|
version 1.2, 2000/07/14 16:55:46
|
Line 11 sub BEGIN {
|
Line 11 sub BEGIN {
|
} |
} |
|
|
sub start_script { |
sub start_script { |
my ($target,$token,@parstack)=@_; |
my ($target,$token,$parstack,$parser,$safeeval)=@_; |
|
|
#static mapping of params into variables |
|
# map {$partstring =~ s/\$$_/$token->[2]->{$_}/g; } @{$token->[3]}; |
|
# print "want to use run\n"; |
|
my $decl=''; |
|
map {$decl .="my \$".$_.'='.$token->[2]->{$_}} @{$token->[3]}; |
|
print "declares $decl\n"; |
|
print "2:\n$token->[2]\n"; |
|
print "3:\n$token->[3]\n"; |
|
# &Apache::run::run($partstring,$safeeval); |
|
|
|
# $partstring = ''; |
my $result=""; |
|
my $bodytext=$parser->get_text("/script"); |
|
if ($target ne "edit" ) { |
|
&Apache::run::run($bodytext,$safeeval); |
|
} else { |
|
$result="<textarea>$bodytext</textarea>\n"; |
|
} |
|
return $result; |
} |
} |
|
|
sub end_script { |
sub end_script { |
|
my ($target,$token,@parstack)=@_; |
} |
} |
1; |
1; |
__END__ |
__END__ |