--- loncom/xml/scripttag.pm	2001/07/09 04:10:30	1.44
+++ loncom/xml/scripttag.pm	2001/07/12 14:29:17	1.46
@@ -123,7 +123,6 @@ sub start_parserlib {
   my $bodytext;
   my $result ="";
   my $error='';
-
   if ($target eq 'web' || $target eq 'grade' || $target eq 'meta' || $target eq 'edit') {
     $bodytext=$$parser[$#$parser]->get_text("/parserlib");
     $bodytext=&Apache::run::evaluate($bodytext,$safeeval,
@@ -197,41 +196,39 @@ sub start_import {
   my $result ="";
 
   $bodytext=Apache::run::evaluate($bodytext,$safeeval,$$parstack[$#$parstack]);
-  my $location=&Apache::lonnet::filelocation($Apache::lonxml::pwd['-1'],$bodytext);
-  my $file=&Apache::lonnet::getfile($location);
-  if ($file == -1) {
-    &Apache::lonxml::error("<b> Unable to find <i>$bodytext $location</i> for import</b>");
-    return "";
-  }
 
-  my $dir=$location;
-  $dir=~s:/[^/]*$::;  
-#  &Apache::lonxml::debug("directory $dir $location file $file \n<b>END</b>\n");
-  &Apache::lonxml::newparser($parser,\$file,$dir);
+  if ($target eq 'web' || $target eq 'grade') {
+    # FIXME this probably needs to be smart about construction vs.
+    # non construction space.
+    my $location=&Apache::lonnet::filelocation($Apache::lonxml::pwd['-1'],$bodytext);
+    my $file=&Apache::lonnet::getfile($location);
+    if ($file == -1) {
+      &Apache::lonxml::error("<b> Unable to find <i>$bodytext as $location</i> for import</b>");
+      return "";
+    }
 
+    my $dir=$location;
+    $dir=~s:/[^/]*$::;
+    #  &Apache::lonxml::debug("directory $dir $location file $file \n<b>END</b>\n");
+    &Apache::lonxml::newparser($parser,\$file,$dir);
+  }
   if ($target eq "edit" ) {
+    $result.=&Apache::edit::tag_start($target,$token);
     $result.=&Apache::edit::editfield($token->[1],$bodytext,'',40,1);
-    $result.="Click<a href=\"/res/$bodytext\">here</a> to edit<br />"
+    #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 />"
   }
-  return '';
+  if ($target eq 'modified') {
+    $bodytext=$$parser[$#$parser]->get_text("/import");
+    $result=&Apache::edit::modifiedfield($token);
+    &Apache::lonxml::debug($result);
+  }
+  return $result;
 }
 
 sub end_import {
-}
-
-sub start_meta {
-  my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
-  my $result = '';
-    if ($target ne 'meta') {
-       $result = &Apache::lonxml::get_all_text("/meta",$$parser[$#$parser]); 
-       $result = '';
-      return $result; 
-    } else {
-       return $result; 
-    }
-}
-
-sub end_meta {
+  return '';
 }
 
 sub start_storetc {
@@ -252,15 +249,19 @@ sub end_storetc {
 
 
 sub start_physnet {
-
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
-    my $cbistylefile = &Apache::lonnet::getfile('/home/httpd/res/msu/physnet/cbi.sty');
-    %$style = (%$style,&Apache::style::styleparser($target,$cbistylefile));
+    my $bodytext = '/msu/physnet/cbi.sty';
+    my $location=&Apache::lonnet::filelocation($Apache::lonxml::pwd['-1'],$bodytext);
+    my $cbistyletext=&Apache::lonnet::getfile($location);
+
+    %$style = (%$style,&Apache::style::styleparser($target,$cbistyletext));
     if ( defined($$style{'physnet'}) ) {
-        &Apache::lonxml::newparser($parser,$$style{'physnet'});
+        &Apache::lonxml::newparser($parser,\$$style{'physnet'});
     }
+    return "";
+}
 
-    return '';
+sub end_physnet {
 }