--- loncom/xml/scripttag.pm	2000/08/03 19:34:11	1.5
+++ loncom/xml/scripttag.pm	2000/08/07 21:26:21	1.6
@@ -8,7 +8,8 @@ use strict;
 use Apache::lonnet;
 
 sub BEGIN {
-  &Apache::lonxml::register('Apache::scripttag',('script','scriptlib','parserlib'));
+  &Apache::lonxml::register('Apache::scripttag',('script','scriptlib',
+						 'parserlib','import'));
 }
 
 sub start_script {
@@ -31,7 +32,7 @@ sub start_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";
@@ -43,13 +44,26 @@ sub end_scriptlib {}
 
 sub start_parserlib {
   my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;
-  my $bodytext="/home/httpd/html/".$$parser[$#$parser]->get_text("/parserlib");
-  %$style = ( %$style , &Apache::style::styleparser($target, &getfile($bodytext)));
+  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="";