--- loncom/lonnet/perl/lonnet.pm	2004/11/11 22:39:05	1.569
+++ 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.569 2004/11/11 22:39:05 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
 #