--- loncom/publisher/loncfile.pm 2002/07/29 01:55:51 1.13
+++ loncom/publisher/loncfile.pm 2002/08/05 02:09:05 1.14
@@ -10,7 +10,7 @@
#
#
-# $Id: loncfile.pm,v 1.13 2002/07/29 01:55:51 foxr Exp $
+# $Id: loncfile.pm,v 1.14 2002/08/05 02:09:05 foxr Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -856,9 +856,13 @@ sub Copy2 {
&Debug($request ,"Will try to copy $oldfile to $newfile");
if(-e $oldfile) {
unless (copy($oldfile, $newfile)) {
- $request->print(' Error: '.$!.'');
+ $request->print(' copy Error: '.$!.'');
return 0;
} else {
+ unless (chmod(0660, $newfile)) {
+ $request->print(' chmod error: '.$!.'');
+ return 0;
+ }
return 1;
}
} else {