loncom/automation/batchcreatecourse.pm - diff

Return to batchcreatecourse.pm CVS log

Up to [LON-CAPA] / loncom / automation

version 1.42, 2016/08/25 22:33:06	version 1.43, 2019/07/26 02:28:28
Line 211 sub create_courses {	Line 211 sub create_courses {
$longroles{'Community'}{$1} = $3;	$longroles{'Community'}{$1} = $3;
}	}
}	}
my ($logmsg,$keysmsg,$newusermsg,$addresult,%codehash);	my ($logmsg,$keysmsg,$newusermsg,$addresult,%codehash,%instcodes);
my %enrollcount = ();	my %enrollcount = ();
my $newcoursedir = LONCAPA::tempdir().'/addcourse/'.$dom.'/'.$context;	my $newcoursedir = LONCAPA::tempdir().'/addcourse/'.$dom.'/'.$context;
if ($context eq 'auto') {	if ($context eq 'auto') {
Line 239 sub create_courses {	Line 239 sub create_courses {
if ($code) {	if ($code) {
$codehash{$courseid} = $code;	$codehash{$courseid} = $code;
}	}
	if ($details{$num}{'coursecode'} ne '') {
	push(@{$instcodes{$details{$num}{'coursecode'}}},$courseid);
	}
}	}
}	}
}	}
}	}
}	}
return ($output,$logmsg,$keysmsg,\%codehash);	return ($output,$logmsg,$keysmsg,\%codehash,\%instcodes);
}	}

#############################################################	#############################################################
Line 568 sub build_course {	Line 571 sub build_course {
} else {	} else {
return;	return;
}	}

#	#
# Make owner a coordinator	# Make owner a coordinator
#	#