loncom/imspackages/imsimportdocs.pm - diff

Return to imsimportdocs.pm CVS log

Up to [LON-CAPA] / loncom / imspackages

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