loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.569, 2004/11/11 22:39:05	version 1.570, 2004/11/17 16:40:00
Line 1407 sub finishuserfileupload {	Line 1407 sub finishuserfileupload {
# Save the file	# Save the file
{	{
#&Apache::lonnet::logthis("Saving to $filepath $file");	#&Apache::lonnet::logthis("Saving to $filepath $file");
open(my $fh,'>'.$filepath.'/'.$file);	open(FH,'>'.$filepath.'/'.$file);
print $fh $ENV{'form.'.$formname};	print FH $ENV{'form.'.$formname};
close($fh);	close(FH);
}	}
# Notify homeserver to grep it	# Notify homeserver to grep it
#	#