loncom/imspackages/imsprocessor.pm - diff

Return to imsprocessor.pm CVS log

Up to [LON-CAPA] / loncom / imspackages

version 1.56, 2017/11/05 22:47:13	version 1.57, 2018/05/02 17:08:40
Line 140 sub uploadzip {	Line 140 sub uploadzip {
unless ($fname) { return 'error: no uploaded file'; }	unless ($fname) { return 'error: no uploaded file'; }
# Save the file	# Save the file
chomp($env{'form.uploadname'});	chomp($env{'form.uploadname'});
open(my $fh,'>'.$tempdir.'/'.$fname);	open(my $fh,'>',"$tempdir/$fname");
print $fh $env{'form.uploadname'};	print $fh $env{'form.uploadname'};
close($fh);	close($fh);
} elsif ($context eq 'CSTR') {	} elsif ($context eq 'CSTR') {