[LON-CAPA-cvs] cvs: loncom /publisher lonupload.pm

[foxr]

foxr		Sun Aug  4 22:22:56 2002 EDT

  Modified files:              
    /loncom/publisher	lonupload.pm 
  Log:
  Fix bug 59: Uploaded file permissions not correct.
  
  
  
Index: loncom/publisher/lonupload.pm
diff -u loncom/publisher/lonupload.pm:1.10 loncom/publisher/lonupload.pm:1.11
--- loncom/publisher/lonupload.pm:1.10	Sun Dec 16 19:57:59 2001
+++ loncom/publisher/lonupload.pm	Sun Aug  4 22:22:56 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to upload files into construction space
 #
-# $Id: lonupload.pm,v 1.10 2001/12/17 00:57:59 harris41 Exp $
+# $Id: lonupload.pm,v 1.11 2002/08/05 02:22:56 foxr Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -156,6 +156,7 @@
  'The extension on this file is not recognized by LON-CAPA.'.
  '</font>');
 	   } elsif (copy($source,$target)) {
+	       chmod(0660, $target); # Set permissions to rw-rw---.
 	      $r->print('File copied.');
               $r->print('<p><font size=+2><a href="'.$fn.
                         '">View file</a></font>');