Return to londocs.pm CVS log | Up to [LON-CAPA] / loncom / interface |
version 1.606, 2016/06/19 04:27:49 | version 1.607, 2016/06/20 14:26:58 |
---|---|
Line 8121 END | Line 8121 END |
sub finishnewprob { | sub finishnewprob { |
my ($url,$path,$subdir,$newsubdir,$filename) = @_; | my ($url,$path,$subdir,$newsubdir,$filename) = @_; |
unless (-d $path) { | |
unless (mkdir($path,02770)) { | |
return; | |
} | |
} | |
my $redirect; | my $redirect; |
if ($subdir ne '/') { | if ($subdir ne '/') { |
$subdir = &cleandir($subdir); | $subdir = &cleandir($subdir); |