--- doc/loncapafiles/removenolongerused.piml 2013/08/09 06:24:21 1.2 +++ doc/loncapafiles/removenolongerused.piml 2013/08/31 00:25:58 1.6 @@ -17,9 +17,9 @@ my %paths = ( ); my %files = ( - 'londaemons' => ['lonManage','lchtmldir','lonhttpd'], + 'londaemons' => ['lonManage','lchtmldir','lonhttpd','lcuseradd','lonc'], 'apache' => ['londropadd.pm','lonconstruct.pm', - 'lonremote.pm','admbookmarks.pm'], + 'lonremote.pm','admbookmarks.pm','lonassignments.pm'], 'londocroot' => ['adm/rat/extpickcode.html', 'adm/rat/extpickframe.html', 'res/adm/pages/imgmaps.html', @@ -84,7 +84,7 @@ if (@dirstodelete > 0) { print "$dir -- delete? Enter: Y or N:\n"; my $choice=<>; chomp($choice); - $choice =~ s/\s+//g; + $choice =~ s/\s+//g; if ($choice eq 'Y') { File::Path::remove_tree($dir); }