Return to scripttag.pm CVS log

Up to [LON-CAPA] / loncom / xml

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

    1: # The LearningOnline Network with CAPA
    2: # <script> definiton
    3: 
    4: 
    5: package Apache::scripttag; 
    6: 
    7: use strict;
    8: 
    9: sub BEGIN {
   10:   &Apache::lonxml::register('Apache::scripttag',('script'));
   11: }
   12: 
   13: sub start_script {
   14:   my ($target,$token,@parstack)=@_;
   15:   
   16: #static mapping of params into variables
   17: #  map {$partstring =~ s/\$$_/$token->[2]->{$_}/g; } @{$token->[3]};
   18:   #	       print "want to use run\n";
   19:   my $decl='';
   20:   map {$decl .="my \$".$_.'='.$token->[2]->{$_}} @{$token->[3]};
   21:   print "declares $decl\n";
   22:   print "2:\n$token->[2]\n";
   23:   print "3:\n$token->[3]\n";
   24: #  &Apache::run::run($partstring,$safeeval);
   25:   
   26: #  $partstring = '';
   27: }
   28: 
   29: sub end_script {
   30:   
   31: }
   32: 1;
   33: __END__