version 1.35, 2017/11/05 20:00:48
|
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 544 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 |