Return to scripttag.pm CVS log

Up to [LON-CAPA] / loncom / xml

Annotation of loncom/xml/scripttag.pm, revision 1.1

1.1     ! albertel    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__