--- loncom/xml/scripttag.pm	2000/08/11 14:32:19	1.9
+++ loncom/xml/scripttag.pm	2000/08/11 14:57:33	1.10
@@ -92,9 +92,13 @@ sub editfield {
 sub getfile {
   my ($filename) = @_;
   my $a="";
-  &Apache::lonnet::repcopy("/raw".$filename);
+  $filename="/home/httpd/html/res".$filename;
+  if (! -e $filename ) {
+    &Apache::lonnet::subscribe($filename);
+    &Apache::lonnet::repcopy($filename);
+  }
   {
-    my $fh=Apache::File->new("/home/httpd/html/res".$filename);
+    my $fh=Apache::File->new($filename);
     while (<$fh>) {
       $a .=$_;
     }