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 |