--- loncom/xml/scripttag.pm	2002/01/17 16:51:07	1.64
+++ 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.64 2002/01/17 16:51:07 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);