loncom/imspackages/imsimportdocs.pm - diff

Return to imsimportdocs.pm CVS log

Up to [LON-CAPA] / loncom / imspackages

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