--- doc/loncapafiles/removenolongerused.piml	2013/08/10 02:31:39	1.4
+++ doc/loncapafiles/removenolongerused.piml	2013/10/28 19:36:08	1.8
@@ -17,14 +17,16 @@ my %paths = (
             );
  
 my %files = (
-              'londaemons' => ['lonManage','lchtmldir','lonhttpd','lcuseradd'],
+              '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 = (
@@ -34,7 +36,7 @@ my %dirs = (
            );
 
 my %multis = (
-                 rcgifs'     => \@rcgifs,
+                'rcgifs'     => \@rcgifs,
              ); 
 my @filestodelete = ();
 my @dirstodelete = ();
@@ -115,7 +117,7 @@ if (@multistodelete > 0) {
     $choice =~ s/\s+//g;
     if ($choice eq 'Y') {
         foreach my $item (@multistodelete) {
-            next if ((($item =~/\*/) || ($item eq '') || ($item eq '/'));
+            next if (($item =~/\*/) || ($item eq '') || ($item eq '/'));
             unlink($item);
         }
     }