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

Diff for /loncom/xml/scripttag.pm between versions 1.3 and 1.6

version 1.3, 2000/07/25 21:28:22 version 1.6, 2000/08/07 21:26:21
Line 8  use strict; Line 8  use strict;
 use Apache::lonnet;  use Apache::lonnet;
   
 sub BEGIN {  sub BEGIN {
   &Apache::lonxml::register('Apache::scripttag',('script','scriptlib'));    &Apache::lonxml::register('Apache::scripttag',('script','scriptlib',
    'parserlib','import'));
 }  }
   
 sub start_script {  sub start_script {
   my ($target,$token,$parstack,$parser,$safeeval)=@_;    my ($target,$token,$parstack,$parser,$safeeval)=@_;
       
   my $result="";    my $result="";
   my $bodytext=$parser->get_text("/script");    my $bodytext=$$parser[$#$parser]->get_text("/script");
   if ($target ne "edit" ) {    if ($target ne "edit" ) {
     $result = &Apache::run::run($bodytext,$safeeval);      $result = &Apache::run::run($bodytext,$safeeval);
   } else {    } else {
Line 28  sub end_script {} Line 29  sub end_script {}
   
 sub start_scriptlib {  sub start_scriptlib {
   my ($target,$token,$parstack,$parser,$safeeval)=@_;    my ($target,$token,$parstack,$parser,$safeeval)=@_;
   my $bodytext=$parser->get_text("/scriptlib");    my $bodytext=$$parser[$#$parser]->get_text("/scriptlib");
   my $result ="";    my $result ="";
   if ($target ne "edit" ) {    if ($target ne "edit" ) {
     &Apache::run::run(&getfile($bodytext),$safeeval);      &Apache::run::run(&getfile("/home/httpd/html".$bodytext),$safeeval);
     #print "ran $bodytext:<br>".&getfile($bodytext)."<br>";      #print "ran $bodytext:<br>".&getfile($bodytext)."<br>";
   } else {    } else {
     $result="<textarea>$bodytext</textarea>\n";      $result="<textarea>$bodytext</textarea>\n";
Line 41  sub start_scriptlib { Line 42  sub start_scriptlib {
   
 sub end_scriptlib {}  sub end_scriptlib {}
   
   sub start_parserlib {
     my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;
     my $bodytext=$$parser[$#$parser]->get_text("/parserlib");
     %$style = ( %$style , &Apache::style::styleparser($target, 
                &getfile("/home/httpd/html/".$bodytext)));
   }
   
   sub end_parserlib {
   }
   
   sub start_import {
     my ($target,$token,$parstack,$parser)=@_;
     my $bodytext=$$parser[$#$parser]->get_text("/import");
     print "going after".$bodytext."\n";
     my $file=&getfile("/home/httpd/html/".$bodytext);
     my $tempparser=HTML::TokeParser->new(\$file);
     push (@$parser,$tempparser);
   }
   
   sub end_import {
   }
   
 sub getfile {  sub getfile {
   my ($filename) = @_;    my ($filename) = @_;
   my $a="";    my $a="";
Removed from v.1.3  
changed lines
  Added in v.1.6

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