--- loncom/lonnet/perl/lonnet.pm	2004/11/10 22:20:50	1.568
+++ loncom/lonnet/perl/lonnet.pm	2004/11/17 16:40:00	1.570
@@ -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.570 2004/11/17 16:40:00 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1407,9 +1407,9 @@ sub finishuserfileupload {
 # Save the file
     {
 	#&Apache::lonnet::logthis("Saving to $filepath $file");
-       open(my $fh,'>'.$filepath.'/'.$file);
-       print $fh $ENV{'form.'.$formname};
-       close($fh);
+	open(FH,'>'.$filepath.'/'.$file);
+	print FH $ENV{'form.'.$formname};
+	close(FH);
     }
 # Notify homeserver to grep it
 #
@@ -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\///;