loncom/interface/loncreatecourse.pm - diff

Return to loncreatecourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.168, 2017/11/04 01:12:19	version 1.169, 2017/11/12 23:04:23
Line 901 sub process_batchfile {	Line 901 sub process_batchfile {
if ($batchfilepath =~ m{^(\Q$dir/$defdom/web/$uname\_$udom\E)/pending/([^/]+)$}) {	if ($batchfilepath =~ m{^(\Q$dir/$defdom/web/$uname\_$udom\E)/pending/([^/]+)$}) {
my ($batchdir,$filename) = ($1,$2);	my ($batchdir,$filename) = ($1,$2);
if (-e "$batchfilepath") {	if (-e "$batchfilepath") {
if (open(FILE,"<$batchfilepath")) {	if (open(FILE,"<",$batchfilepath)) {
my @buffer = <FILE>;	my @buffer = <FILE>;
close(FILE);	close(FILE);
if ((defined($filename)) && (defined($batchdir))) {	if ((defined($filename)) && (defined($batchdir))) {
Line 915 sub process_batchfile {	Line 915 sub process_batchfile {
mkdir("$batchdir/processed", 0755);	mkdir("$batchdir/processed", 0755);
}	}
if (-d "$batchdir/processed") {	if (-d "$batchdir/processed") {
if (open(FILE,">$batchdir/processed/$filename")) {	if (open(FILE,">","$batchdir/processed/$filename")) {
print FILE @buffer;	print FILE @buffer;
close(FILE);	close(FILE);
}	}