--- rat/lonratsrv.pm	2002/06/24 14:05:51	1.18
+++ rat/lonratsrv.pm	2002/06/27 17:00:12	1.20
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Server for RAT Maps
 #
-# $Id: lonratsrv.pm,v 1.18 2002/06/24 14:05:51 www Exp $
+# $Id: lonratsrv.pm,v 1.20 2002/06/27 17:00:12 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -318,6 +318,13 @@ sub handler {
   $url=~s/\/loadonly\/ratserver$/\/save\/ratserver/;
   
   my $fn=$r->filename;
+  my $lonDocRoot=$r->dir_config('lonDocRoot');
+  if ( $fn =~ /$lonDocRoot/ ) {
+      #internal authentication, needs fixup.
+      $fn = $url;
+      $fn=~s|^/~(\w+)|/home/$1/public_html|;
+      $fn=~s|/[^/]*/ratserver$||;
+  }
   my $errtext='';
   my $outtext='';