[BACK]Return to scripttag.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / xml

Diff for /loncom/xml/scripttag.pm between versions 1.16 and 1.17

version 1.16, 2000/09/19 19:10:01 version 1.17, 2000/10/02 22:22:25
Line 14  sub BEGIN { Line 14  sub BEGIN {
   
 sub start_script {  sub start_script {
   my ($target,$token,$parstack,$parser,$safeeval)=@_;    my ($target,$token,$parstack,$parser,$safeeval)=@_;
     my $args ='';
     if ( $#$parstack > -1 ) {
       $args=$$parstack[$#$parstack];
     }
     my $type = &Apache::run::run("{$args;".'return $type}',$safeeval);
     &Apache::lonxml::debug("found type of $type");
   my $result="";    my $result="";
   $safeeval->share('$Apache::scripttag::start_script::result');    if ($type eq "loncapa/perl") {
 #  my $bodytext=$$parser[$#$parser]->get_text("/script");      $safeeval->share('$Apache::scripttag::start_script::result');
   my $bodytext=&Apache::lonxml::get_all_text("script",$$parser[$#$parser]);      #  my $bodytext=$$parser[$#$parser]->get_text("/script");
       my $bodytext=&Apache::lonxml::get_all_text("script",$$parser[$#$parser]);
   if ( $target eq "modified" ) {  
           
   }      if ( $target eq "modified" ) {
         
 #  print "<br> script runs $bodytext</br>";      }
   &Apache::run::run($bodytext,$safeeval);  
   
   if ($target eq "edit" ) {      #  print "<br> script runs $bodytext</br>";
     $result= "<br> &lt;$token->[1]&gt; output: <br>$bodytext<br>Source:<br>";      &Apache::run::run($bodytext,$safeeval);
     $result.=&editfield($token->[1],$bodytext);      
       if ($target eq "edit" ) {
         $result= "<br> &lt;$token->[1]&gt; output: <br>$bodytext<br>Source:<br>";
         $result.=&editfield($token->[1],$bodytext);
       }
     } else {
       $result = $token->[4];
   }    }
   return $result;  
 }  }
   
 sub end_script {}  sub end_script {
     my ($target,$token,$parstack,$parser,$safeeval)=@_;
     return $token->[2]; 
   }
   
 sub start_scriptlib {  sub start_scriptlib {
   my ($target,$token,$parstack,$parser,$safeeval)=@_;    my ($target,$token,$parstack,$parser,$safeeval)=@_;
Removed from v.1.16  
changed lines
  Added in v.1.17

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>