--- loncom/xml/scripttag.pm	2002/01/21 16:41:31	1.65
+++ loncom/xml/scripttag.pm	2002/01/30 16:04:04	1.66
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # <script> definiton
 #
-# $Id: scripttag.pm,v 1.65 2002/01/21 16:41:31 matthew Exp $
+# $Id: scripttag.pm,v 1.66 2002/01/30 16:04:04 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -79,7 +79,11 @@ sub start_script {
       $result.=&Apache::edit::editfield($token->[1],$bodytext,'',50,4);
     }
   } else {
-    if ($target ne "meta") { $result = $token->[4]; }
+    if ($target ne "meta") {
+      $result = $token->[4];
+      my $bodytext=&Apache::lonxml::get_all_text("/script",$$parser[$#$parser]);
+      $result.=$bodytext;
+    }
   }
   return $result;
 }