--- loncom/xml/scripttag.pm	2002/01/17 16:35:55	1.62
+++ 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.62 2002/01/17 16:35:55 albertel Exp $
+# $Id: scripttag.pm,v 1.66 2002/01/30 16:04:04 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -43,7 +43,7 @@ BEGIN {
   &Apache::lonxml::register('Apache::scripttag',
 			    ('script','scriptlib','parserlib','import',
 			     'window','display','storetc','physnet',
-			     'stadalone'));
+			     'standalone'));
 }
 
 sub start_script {
@@ -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;
 }
@@ -163,7 +167,7 @@ sub start_scriptlib {
   }
   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;
@@ -208,7 +212,7 @@ sub start_parserlib {
   }
   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;
@@ -279,7 +283,7 @@ sub start_import {
     #$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);
@@ -336,7 +340,7 @@ sub end_physnet {
 
 sub start_standalone {
   my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
-  if ($target eq 'web'  && defined($ENV{'request.course.id'}) ) {
+  if ($target eq 'web'  && $ENV{'request.course.id'} ) {
     my $inside = &Apache::lonxml::get_all_text("/standalone",$$parser[-1]);
   }
   return '';