loncom/xml/scripttag.pm - diff

Return to scripttag.pm CVS log

Up to [LON-CAPA] / loncom / xml

-version 1.1, 2000/07/06 21:07:26
+version 1.2, 2000/07/14 16:55:46
  Line 11  sub BEGIN {
  }
  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 {
+   my ($target,$token,@parstack)=@_;
  }
 ;
  __END__