--- loncom/debugging_tools/move_construction_spaces.pl	2011/12/09 03:01:44	1.7
+++ loncom/debugging_tools/move_construction_spaces.pl	2012/06/08 13:04:08	1.8
@@ -5,7 +5,7 @@
 # Move Construction Spaces from /home/$user/public_html
 # to /home/httpd/html/priv/$domain/$user and vice versa
 #
-# $Id: move_construction_spaces.pl,v 1.7 2011/12/09 03:01:44 raeburn Exp $
+# $Id: move_construction_spaces.pl,v 1.8 2012/06/08 13:04:08 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -821,7 +821,7 @@ sub move_priv_to_home {
         my $target_path="/home/$uname/public_html";
         if (!-e "/home/$uname") {
             my (undef,undef,$userid,$groupid) = getpwnam($uname);
-            if (mkdir("/home/$uname",0750)) {
+            if (mkdir("/home/$uname",0711)) {
                 if ($userid ne '' && $groupid ne '') {
                     chown($userid,$groupid,"/home/$uname");
                 }
@@ -835,7 +835,7 @@ sub move_priv_to_home {
             if (!-e $target_path) {
                 move($source_path,$target_path);
                 chown($uid,$gid,$target_path);
-                chmod(0750,$target_path);
+                chmod(02770,$target_path);
                 if (-e $target_path && !-e $source_path) {
                     $output = &mt('Moved [_1] to [_2].',"'$source_path'","'$target_path'")."\n";
                 } else {