--- loncom/lonnet/perl/lonnet.pm	2012/05/18 20:16:48	1.1171
+++ loncom/lonnet/perl/lonnet.pm	2012/05/25 14:30:52	1.1172.2.1
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1171 2012/05/18 20:16:48 droeschl Exp $
+# $Id: lonnet.pm,v 1.1172.2.1 2012/05/25 14:30:52 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -97,7 +97,6 @@ use File::MMagic;
 use LONCAPA qw(:DEFAULT :match);
 use LONCAPA::Configuration;
 use LONCAPA::lonmetadata;
-use LONCAPA::Lond;
 
 use File::Copy;
 
@@ -10760,6 +10759,7 @@ sub declutter {
     $thisfn=~s|^adm/wrapper/||;
     $thisfn=~s|^adm/coursedocs/showdoc/||;
     $thisfn=~s/^res\///;
+    $thisfn=~s/^priv\///;
     unless (($thisfn =~ /^ext/) || ($thisfn =~ /\.(page|sequence)___\d+___ext/)) {
         $thisfn=~s/\?.+$//;
     }