--- loncom/lonnet/perl/lonnet.pm	2006/01/10 16:08:10	1.693
+++ loncom/lonnet/perl/lonnet.pm	2006/01/10 21:41:39	1.694
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.693 2006/01/10 16:08:10 albertel Exp $
+# $Id: lonnet.pm,v 1.694 2006/01/10 21:41:39 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3412,7 +3412,8 @@ sub is_on_map {
     my $filename=$uriparts[$#uriparts];
     my $pathname=$uri;
     $pathname=~s|/\Q$filename\E$||;
-    $pathname=~s/^adm\/wrapper\///;    
+    $pathname=~s/^adm\/wrapper\///;
+    $pathname=~s/^adm\/coursedocs\/showdoc\///;
     #Trying to find the conditional for the file
     my $match=($env{'acc.res.'.$env{'request.course.id'}.'.'.$pathname}=~
 	       /\&\Q$filename\E\:([\d\|]+)\&/);
@@ -5036,7 +5037,8 @@ sub metadata {
     # if it is a non metadata possible uri return quickly
     if (($uri eq '') || 
 	(($uri =~ m|^/*adm/|) && 
-	     ($uri !~ m|^adm/includes|) && ($uri !~ m|/bulletinboard$|)) ||
+	     ($uri !~ m|^adm/includes|) && ($uri !~ m|/bulletinboard$|)
+	  && ($uri !~ m|^adm/coursedocs/|) && ($uri !~ m|^adm/wrapper/|)) ||
         ($uri =~ m|/$|) || ($uri =~ m|/.meta$|) || ($uri =~ /^~/) ||
 	($uri =~ m|home/[^/]+/public_html/|)) {
 	return undef;
@@ -5354,6 +5356,7 @@ sub symbverify {
     my $thisfn=$thisurl;
 # wrapper not part of symbs
     $thisfn=~s/^\/adm\/wrapper//;
+    $thisfn=~s/^\/adm\/coursedocs\/showdoc\///;
     $thisfn=&declutter($thisfn);
 # direct jump to resource in page or to a sequence - will construct own symbs
     if ($thisfn=~/\.(page|sequence)$/) { return 1; }
@@ -5408,6 +5411,7 @@ sub symbclean {
 # remove wrapper
 
     $symb=~s/(\_\_\_\d+\_\_\_)adm\/wrapper\/(res\/)*/$1/;
+    $symb=~s/(\_\_\_\d+\_\_\_)adm\/coursedocs\/showdoc\/(res\/)*/$1/;
     return $symb;
 }
 
@@ -6142,6 +6146,8 @@ sub declutter {
     $thisfn=~s/^\///;
     $thisfn=~s/^res\///;
     $thisfn=~s/\?.+$//;
+    $thisfn=~s|adm/wrapper/||;
+    $thisfn=~s|adm/coursedocs/showdoc/||;
     return $thisfn;
 }
 
@@ -6152,6 +6158,20 @@ sub clutter {
     unless ($thisfn=~/^\/(uploaded|editupload|adm|userfiles|ext|raw|priv|public)\//) { 
        $thisfn='/res'.$thisfn; 
     }
+    if ($thisfn !~m|/adm|) {
+	my ($ext) = ($thisfn =~ /\.(\w+)$/);
+	my $embstyle=&Apache::loncommon::fileembstyle($ext);
+	if (($embstyle eq 'img') 
+	    || ($embstyle eq 'emb')
+	    || ($embstyle eq 'wrp')) {
+	    $thisfn='/adm/wrapper'.$thisfn;
+	} elsif ($embstyle eq 'ssi') {
+	    #do nothing with these
+	} elsif ($thisfn!~/\.(sequence|page)$/) {
+	    $thisfn='/adm/coursedocs/showdoc'.$thisfn;
+	}
+    }
+
     return $thisfn;
 }