Diff for /loncom/imspackages/imsimportdocs.pm between versions 1.34 and 1.36

version 1.34, 2014/12/11 00:35:53 version 1.36, 2017/11/05 20:04:30
Line 36  use Apache::imsprocessor; Line 36  use Apache::imsprocessor;
 use LONCAPA::map();  use LONCAPA::map();
 use lib '/home/httpd/lib/perl/';  use lib '/home/httpd/lib/perl/';
 use LONCAPA;  use LONCAPA;
   use File::Path();
     
 use strict;  use strict;
   
Line 396  sub display_two { Line 397  sub display_two {
     my $folder = $env{'form.folder'};      my $folder = $env{'form.folder'};
     my $cms = $env{'form.source'};      my $cms = $env{'form.source'};
     my $tempdir = $env{'form.tempdir'};      my $tempdir = $env{'form.tempdir'};
     my $longcrs = '';  
     if ($crs =~ m/^(\d)(\d)(\d)/) {  
         $longcrs = $1.'/'.$2.'/'.$3.'/'.$crs;  
     }  
     my %importareas = ();      my %importareas = ();
     my %includedres = ();      my %includedres = ();
     my %includeditems = ();      my %includeditems = ();
Line 548  sub display_two { Line 545  sub display_two {
         }          }
     }      }
     if ($tempdir =~ m/^\/home\/httpd\/perl\/tmp\/$crs\/\d{10}/) {      if ($tempdir =~ m/^\/home\/httpd\/perl\/tmp\/$crs\/\d{10}/) {
         system("rm -r -f $tempdir");          &File::Path::remove_tree($tempdir,{ safe => 1 });
     }      }
   
     # All done, display success message      # All done, display success message

Removed from v.1.34  
changed lines
  Added in v.1.36


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>