--- doc/loncapafiles/removenolongerused.piml	2013/08/09 06:24:21	1.2
+++ doc/loncapafiles/removenolongerused.piml	2013/09/22 15:52:03	1.7
@@ -17,14 +17,16 @@ 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',
                                'res/adm/pages/menu.html',
-                               'res/adm/pages/homeworkmenu.html'],
+                               'res/adm/pages/homeworkmenu.html',
+                               'adm/help/gif/vbkm.gif',
+                               'adm/help/eps/vbkm.eps'],
             );
 
 my %dirs = (
@@ -84,7 +86,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);
         }