--- loncom/interface/londocs.pm 2016/06/19 04:27:49 1.606 +++ loncom/interface/londocs.pm 2016/06/20 14:26:58 1.607 @@ -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 @@ END sub finishnewprob { my ($url,$path,$subdir,$newsubdir,$filename) = @_; + unless (-d $path) { + unless (mkdir($path,02770)) { + return; + } + } my $redirect; if ($subdir ne '/') { $subdir = &cleandir($subdir);