--- loncom/lonnet/perl/lonnet.pm	2003/02/20 22:04:18	1.331
+++ loncom/lonnet/perl/lonnet.pm	2003/03/01 15:13:58	1.332
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.331 2003/02/20 22:04:18 www Exp $
+# $Id: lonnet.pm,v 1.332 2003/03/01 15:13:58 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2169,6 +2169,7 @@ sub is_on_map {
     my $filename=$uriparts[$#uriparts];
     my $pathname=$uri;
     $pathname=~s|/\Q$filename\E$||;
+    $pathname=~s/^adm\/wrapper\///;    
     #Trying to find the conditional for the file
     my $match=($ENV{'acc.res.'.$ENV{'request.course.id'}.'.'.$pathname}=~
 	       /\&\Q$filename\E\:([\d\|]+)\&/);