--- loncom/lonnet/perl/lonnet.pm 2004/11/10 22:20:50 1.568 +++ loncom/lonnet/perl/lonnet.pm 2004/11/11 22:39:05 1.569 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.568 2004/11/10 22:20:50 albertel Exp $ +# $Id: lonnet.pm,v 1.569 2004/11/11 22:39:05 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -4782,6 +4782,7 @@ sub symbread { } $thisfn=$ENV{'request.filename'}; } + if ($thisfn=~m|^/enc/|) { $thisfn=&Apache::lonenc::unencrypted($thisfn); } # is that filename actually a symb? Verify, clean, and return if ($thisfn=~/\_\_\_\d+\_\_\_(.*)$/) { if (&symbverify($thisfn,$1)) { @@ -5332,6 +5333,7 @@ sub current_machine_ids { sub declutter { my $thisfn=shift; + if ($thisfn=~m|^/enc/|) { $thisfn=&Apache::lonenc::unencrypted($thisfn); } $thisfn=~s/^\Q$perlvar{'lonDocRoot'}\E//; $thisfn=~s/^\///; $thisfn=~s/^res\///;