--- doc/loncapafiles/removenolongerused.piml	2014/06/20 19:01:02	1.9
+++ doc/loncapafiles/removenolongerused.piml	2021/12/24 16:04:29	1.15
@@ -27,14 +27,28 @@ my %files = (
                                'res/adm/pages/menu.html',
                                'res/adm/pages/homeworkmenu.html',
                                'adm/help/gif/vbkm.gif',
-                               'adm/help/eps/vbkm.eps'],
+                               'adm/help/eps/vbkm.eps',
+                               'adm/jQuery/js/jquery-1.3.2.min.js',
+                               'adm/jQuery/js/jquery-1.6.2.min.js',
+                               'adm/jQuery/js/jquery-1.11.3.min.js',
+                               'adm/jQuery/js/jquery-ui-1.7.2.custom.min.js',
+                               'adm/jQuery/js/jquery-ui-1.8.16.custom.min.js',
+                               'adm/jQuery/js/jquery-ui-1.11.4.custom.min.js',
+                               'adm/jQuery/css/smoothness/jquery-ui-1.7.2.custom.css',
+                               'adm/jQuery/css/smoothness/jquery-ui-1.8.16.custom.css',
+                               'adm/jQuery/js/css/smoothness/jquery-ui-1.11.4.custom.css',
+                               'adm/reactionresponse/reaction_frame.html',
+                               'adm/reactionresponse/reaction_window.html'],
               'debug'      => ['archive_coursedata_tables.pl'],
             );
 
 my %dirs = (
-              'londocroot' => 'adm/lonLCDfont',
-                              'htmlarea',
-                              'res/adm/pages/bookmarkmenu',
+              'londocroot' => ['adm/lonLCDfont',
+                                  'htmlarea',
+                                  'res/adm/pages/bookmarkmenu',
+                                  'res/adm/pages/reactionresponse',
+                                  'adm/jsMath',
+                                  'adm/jQuery/css/ui-lightness'],
            );
 
 my %multis = (
@@ -48,7 +62,7 @@ foreach my $key (sort(keys(%files))) {
     if ($paths{$key} ne '') {
         if (ref($files{$key}) eq 'ARRAY') {
             foreach my $file (@{$files{$key}}) {
-                if (-f $paths{$key}.'/'.$file) {
+                if (($file ne '') && (-f $paths{$key}.'/'.$file)) {
                     push(@filestodelete,$paths{$key}.'/'.$file);
                 }
             }
@@ -60,7 +74,7 @@ foreach my $key (sort(keys(%dirs))) {
     if ($paths{$key} ne '') {
         if (ref($dirs{$key}) eq 'ARRAY') {
             foreach my $dir (@{$dirs{$key}}) {
-                if (-d $paths{$key}.'/'.$dir) {
+                if (($dir ne '') && (-d $paths{$key}.'/'.$dir)) {
                     push(@dirstodelete,$paths{$key}.'/'.$dir);
                 }
             }
@@ -90,7 +104,7 @@ if (@dirstodelete > 0) {
         chomp($choice);
         $choice =~ s/\s+//g;
         if ($choice eq 'Y') {
-            File::Path::remove_tree($dir);
+            File::Path::rmtree($dir);
         }
     }
 }