version 1.10, 2014/06/20 19:23:03
|
version 1.12, 2015/09/21 14:24:34
|
Line 34 my %files = (
|
Line 34 my %files = (
|
my %dirs = ( |
my %dirs = ( |
'londocroot' => ['adm/lonLCDfont', |
'londocroot' => ['adm/lonLCDfont', |
'htmlarea', |
'htmlarea', |
'res/adm/pages/bookmarkmenu'], |
'res/adm/pages/bookmarkmenu', |
|
'res/adm/pages/reactionresponse'], |
); |
); |
|
|
my %multis = ( |
my %multis = ( |
Line 90 if (@dirstodelete > 0) {
|
Line 91 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); |
} |
} |
} |
} |
} |
} |