--- loncom/lonnet/perl/lonnet.pm	2006/03/27 23:00:18	1.722
+++ loncom/lonnet/perl/lonnet.pm	2006/03/27 23:43:43	1.723
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.722 2006/03/27 23:00:18 albertel Exp $
+# $Id: lonnet.pm,v 1.723 2006/03/27 23:43:43 banghart Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -4743,11 +4743,10 @@ sub stat_file {
     $uri = &clutter($uri);
 
     # we want just the url part without the unneeded accessor url bits
-    if ($file =~ m-^/adm/-) {
-	$file=~s-^/adm/wrapper/-/-;
-	$file=~s-^/adm/coursedocs/showdoc/-/-;
+    if ($uri =~ m-^/adm/-) {
+	$uri=~s-^/adm/wrapper/-/-;
+	$uri=~s-^/adm/coursedocs/showdoc/-/-;
     }
-    
     my ($udom,$uname,$file,$dir);
     if ($uri =~ m-^/(uploaded|editupload)/-) {
 	($udom,$uname,$file) =