--- loncom/publisher/lonpubdir.pm	2002/02/09 01:38:54	1.23
+++ loncom/publisher/lonpubdir.pm	2002/04/09 06:01:56	1.24
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # (Publication Handler
 #
-# $Id: lonpubdir.pm,v 1.23 2002/02/09 01:38:54 foxr Exp $
+# $Id: lonpubdir.pm,v 1.24 2002/04/09 06:01:56 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -153,8 +153,16 @@ sub getEffectiveUrl {
 	#  Remove trailing / strings (?) 
 	
 	$fn=~s/\/[^\/]+$//;
-    } else {			# If no form is defined, use request filename.
-	$fn=$r->filename();
+    } else {
+	#   If no form is defined, use request filename.
+	$fn = $r->filename();
+	my $lonDocRoot=$r->dir_config('lonDocRoot');
+	if ( $fn =~ /$lonDocRoot/ ) {
+	    #internal authentication, needs fixup.
+	    $fn = $r->uri(); # non users do not get the full path request
+                             # through SCRIPT_FILENAME
+	    $fn=~s|^/~(\w+)|/home/$1/public_html|;
+	}
     }
     return $fn;
 }