[LON-CAPA-cvs] cvs: loncom /interface londocs.pm

[raeburn]

raeburn		Mon Jun 20 14:26:58 2016 EDT

  Modified files:              
    /loncom/interface	londocs.pm 
  Log:
  - Course "Authoring" Space
    - Create course's sub-directory in /home/httpd/html/priv/$dom if absent. 
  
  
Index: loncom/interface/londocs.pm
diff -u loncom/interface/londocs.pm:1.606 loncom/interface/londocs.pm:1.607
--- loncom/interface/londocs.pm:1.606	Sun Jun 19 04:27:49 2016
+++ loncom/interface/londocs.pm	Mon Jun 20 14:26:58 2016
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Documents
 #
-# $Id: londocs.pm,v 1.606 2016/06/19 04:27:49 raeburn Exp $
+# $Id: londocs.pm,v 1.607 2016/06/20 14:26:58 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -8121,6 +8121,11 @@
 
 sub finishnewprob {
     my ($url,$path,$subdir,$newsubdir,$filename) = @_;
+    unless (-d $path) {
+        unless (mkdir($path,02770)) {
+            return;
+        }
+    }
     my $redirect;
     if ($subdir ne '/') {
         $subdir = &cleandir($subdir);