Return to scripttag.pm CVS log

Up to [LON-CAPA] / loncom / xml

- <script> basic ideas in place, doesn't actually work

# 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__