loncom/interface/londocs.pm - diff

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);