doc/loncapafiles/removenolongerused.piml - diff

Return to removenolongerused.piml CVS log

Up to [LON-CAPA] / doc / loncapafiles

version 1.1.2.7, 2014/06/20 19:25:41	version 1.1.2.9, 2016/08/05 14:37:53
Line 27 my %files = (	Line 27 my %files = (

my %dirs = (	my %dirs = (
'londocroot' => ['htmlarea',	'londocroot' => ['htmlarea',
'res/adm/pages/bookmarkmenu'],	'res/adm/pages/bookmarkmenu',
	'res/adm/pages/reactionresponse',
	adm/jsMath'],
);	);

my @filestodelete = ();	my @filestodelete = ();
Line 65 if (@dirstodelete > 0) {	Line 67 if (@dirstodelete > 0) {
chomp($choice);	chomp($choice);
$choice =~ s/\s+//g;	$choice =~ s/\s+//g;
if ($choice eq 'Y') {	if ($choice eq 'Y') {
File::Path::remove_tree($dir);	File::Path::rmtree($dir);
}	}
}	}
}	}