--- loncom/xml/scripttag.pm	2002/01/17 16:51:07	1.64
+++ loncom/xml/scripttag.pm	2002/03/22 20:05:19	1.67
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # <script> definiton
 #
-# $Id: scripttag.pm,v 1.64 2002/01/17 16:51:07 albertel Exp $
+# $Id: scripttag.pm,v 1.67 2002/03/22 20:05:19 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;
 }
@@ -157,13 +161,13 @@ sub start_scriptlib {
   if ($target eq "edit" ) {
     $result=
       &Apache::edit::tag_start($target,$token,'New Script Functions').
-	&Apache::edit::editfield($token->[1],$bodytext,'',40,1).
+	&Apache::edit::editline($token->[1],$bodytext,'',40,1).
 	  $error.'</td></tr>'.
 	    &Apache::edit::end_table();
   }
   if ($target eq "modified" ) {
     $bodytext=$$parser[$#$parser]->get_text("/scriptlib");
-    $result=&Apache::edit::modifiedfield($token);
+    $result=$token->[4].&Apache::edit::modifiedfield($token);
     &Apache::lonxml::debug($result);
   }
   return $result;
@@ -202,13 +206,13 @@ sub start_parserlib {
   if ($target eq "edit" ) {
     $result=
       &Apache::edit::tag_start($target,$token,'New Tag Definitions').
-	&Apache::edit::editfield($token->[1],$bodytext,'',40,1).
+	&Apache::edit::editline($token->[1],$bodytext,'',40,1).
 	  $error.'</td></tr>'.
 	    &Apache::edit::end_table();
   }
   if ($target eq "modified" ) {
     $bodytext=$$parser[$#$parser]->get_text("/parserlib");
-    $result=&Apache::edit::modifiedfield($token);
+    $result=$token->[4].&Apache::edit::modifiedfield($token);
     &Apache::lonxml::debug($result);
   }
   return $result;
@@ -273,13 +277,13 @@ sub start_import {
     &Apache::lonxml::newparser($parser,\$file,$dir);
   } elsif ($target eq "edit" ) {
     $result.=&Apache::edit::tag_start($target,$token);
-    $result.=&Apache::edit::editfield($token->[1],$bodytext,'',40,1);
+    $result.=&Apache::edit::editline($token->[1],$bodytext,'',40,1);
     #FIXME this need to convert $bodytext to be a contruction space reference
     #my $location=&Apache::lonnet::filelocation($Apache::lonxml::pwd['-1'],$bodytext);
     #$result.="Click<a href=\"$location\">here</a> to edit<br />"
   } elsif ($target eq 'modified') {
     $bodytext=$$parser[$#$parser]->get_text("/import");
-    $result=&Apache::edit::modifiedfield($token);
+    $result=$token->[4].&Apache::edit::modifiedfield($token);
     &Apache::lonxml::debug($result);
   } elsif ($target eq 'meta') {
     my $id= &Apache::lonxml::get_param('id',$parstack,$safeeval);