# The LearningOnline Network with CAPA
# <script> definiton
package Apache::scripttag;
use strict;
sub BEGIN {
&Apache::lonxml::register('Apache::scripttag',('script'));
}
sub start_script {
my ($target,$token,@parstack)=@_;
#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 = '';
}
sub end_script {
}
1;
__END__
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>