--- loncom/xml/scripttag.pm	2002/01/17 16:40:59	1.63
+++ loncom/xml/scripttag.pm	2002/01/21 16:41:31	1.65
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # <script> definiton
 #
-# $Id: scripttag.pm,v 1.63 2002/01/17 16:40:59 albertel Exp $
+# $Id: scripttag.pm,v 1.65 2002/01/21 16:41:31 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -163,7 +163,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 +208,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 +279,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 +336,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 '';