--- loncom/xml/scripttag.pm	2000/08/08 19:34:29	1.7
+++ loncom/xml/scripttag.pm	2000/08/11 14:24:18	1.8
@@ -32,7 +32,7 @@ sub start_scriptlib {
   my $result ="";
   if ($target ne "edit" ) {
     $bodytext=Apache::run::evaluate($bodytext,$safeeval,$$parstack[$#$parstack]);
-    &Apache::run::run(&getfile("/home/httpd/html".$bodytext),$safeeval);
+    &Apache::run::run(&getfile("/home/httpd/html/raw/".$bodytext),$safeeval);
     #print "ran $bodytext:<br>".&getfile($bodytext)."<br>";
   } else {
     $result=&editfield($token->[1],$bodytext);
@@ -49,7 +49,7 @@ sub start_parserlib {
   if ($target ne "edit" ) {
     $bodytext=Apache::run::evaluate($bodytext,$safeeval,$$parstack[$#$parstack]);
     %$style = ( %$style , &Apache::style::styleparser($target, 
-		&getfile("/home/httpd/html/".$bodytext)));
+		&getfile("/home/httpd/html/raw/".$bodytext)));
   } else {
     $result=&editfield($token->[1],$bodytext);
   }
@@ -65,11 +65,12 @@ sub start_import {
   my $result ="";
   if ($target ne "edit" ) {
     $bodytext=Apache::run::evaluate($bodytext,$safeeval,$$parstack[$#$parstack]);
-    my $file=&getfile("/home/httpd/html/".$bodytext);
+    my $file=&getfile("/home/httpd/html/raw/".$bodytext);
     my $tempparser=HTML::TokeParser->new(\$file);
     push (@$parser,$tempparser);
   } else {
     $result=&editfield($token->[1],$bodytext);
+    $result.="Click<a href=\"/res/$bodytext\">here</a> to edit<br></br>"
   }
 }