--- loncom/xml/scripttag.pm	2003/05/14 13:33:00	1.88
+++ loncom/xml/scripttag.pm	2003/05/28 21:05:33	1.91
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # <script> definiton
 #
-# $Id: scripttag.pm,v 1.88 2003/05/14 13:33:00 albertel Exp $
+# $Id: scripttag.pm,v 1.91 2003/05/28 21:05:33 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -50,10 +50,16 @@ BEGIN {
 
 sub start_LONCAPA_INTERNAL_TURN_STYLE_ON {
     $Apache::lonxml::usestyle=1;
+    $Apache::lonxml::style_values='';
     return ('','no');
 }
 
 sub end_LONCAPA_INTERNAL_TURN_STYLE_ON {
+    my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
+    my $end=&Apache::lonxml::get_param('end',$parstack,$safeeval);
+    if (defined($end)) {
+	&Apache::lonxml::end_tag($tagstack,$parstack,$token);
+    }
     return ('','no');
 }
 
@@ -310,6 +316,7 @@ sub start_import {
     my $id= &Apache::lonxml::get_param('id',$parstack,$safeeval);
     if (!$id) { $id=$Apache::lonxml::curdepth; }
     push(@Apache::inputtags::import,$id);
+    push(@Apache::inputtags::importlist,$id);
 
 	&Apache::lonxml::newparser($parser,\$file,$dir);