--- loncom/xml/scripttag.pm	2000/07/25 21:28:22	1.3
+++ loncom/xml/scripttag.pm	2000/08/07 21:26:21	1.6
@@ -8,14 +8,15 @@ use strict;
 use Apache::lonnet;
 
 sub BEGIN {
-  &Apache::lonxml::register('Apache::scripttag',('script','scriptlib'));
+  &Apache::lonxml::register('Apache::scripttag',('script','scriptlib',
+						 'parserlib','import'));
 }
 
 sub start_script {
   my ($target,$token,$parstack,$parser,$safeeval)=@_;
   
   my $result="";
-  my $bodytext=$parser->get_text("/script");
+  my $bodytext=$$parser[$#$parser]->get_text("/script");
   if ($target ne "edit" ) {
     $result = &Apache::run::run($bodytext,$safeeval);
   } else {
@@ -28,10 +29,10 @@ sub end_script {}
 
 sub start_scriptlib {
   my ($target,$token,$parstack,$parser,$safeeval)=@_;
-  my $bodytext=$parser->get_text("/scriptlib");
+  my $bodytext=$$parser[$#$parser]->get_text("/scriptlib");
   my $result ="";
   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>";
   } else {
     $result="<textarea>$bodytext</textarea>\n";
@@ -41,6 +42,28 @@ sub start_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 {
   my ($filename) = @_;
   my $a="";