--- loncom/imspackages/imsprocessor.pm	2017/11/05 22:47:13	1.56
+++ loncom/imspackages/imsprocessor.pm	2018/05/02 17:08:40	1.57
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Processor for IMS Packages
 #
-# $Id: imsprocessor.pm,v 1.56 2017/11/05 22:47:13 raeburn Exp $
+# $Id: imsprocessor.pm,v 1.57 2018/05/02 17:08:40 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -140,7 +140,7 @@ sub uploadzip {
         unless ($fname) { return 'error: no uploaded file'; }
 # Save the file
         chomp($env{'form.uploadname'});
-        open(my $fh,'>'.$tempdir.'/'.$fname);
+        open(my $fh,'>',"$tempdir/$fname");
         print $fh $env{'form.uploadname'};
         close($fh);
     } elsif ($context eq 'CSTR') {