loncom/automation/batchcreatecourse.pm - diff

Return to batchcreatecourse.pm CVS log

Up to [LON-CAPA] / loncom / automation

version 1.40.2.1, 2016/09/01 01:05:05	version 1.42, 2016/08/25 22:33:06
Line 164 use strict;	Line 164 use strict;
# firstres can be nav, syl, or blank for "Navigate Contents", Syllabus, or	# firstres can be nav, syl, or blank for "Navigate Contents", Syllabus, or
# no entry respectively.	# no entry respectively.
#	#
# crstype can be Course or Community	# crstype can be Course, Community or Placement
#	#
# crsquota is the total disk space permitted for course group portfolio files	# crsquota is the total disk space permitted for course group portfolio files
# in all course groups.	# in all course groups.
Line 429 sub build_course {	Line 429 sub build_course {
$rolenames = $longroles->{'Community'};	$rolenames = $longroles->{'Community'};
}	}
} else {	} else {
$crstype = 'Course';	if ($details->{'crstype'} eq 'Placement') {
	$crstype = $details->{'crstype'};
	} else {
	$crstype = 'Course';
	}
$ccrole = 'cc';	$ccrole = 'cc';
if (ref($longroles) eq 'HASH') {	if (ref($longroles) eq 'HASH') {
$rolenames = $longroles->{'Course'};	$rolenames = $longroles->{'Course'};
Line 452 sub build_course {	Line 456 sub build_course {
if ($firstres eq '') {	if ($firstres eq '') {
if ($crstype eq 'Community') {	if ($crstype eq 'Community') {
$firstres = 'nav';	$firstres = 'nav';
	} elsif ($crstype eq 'Placement') {
	$firstres = 'blank';
} else {	} else {
$firstres = 'syl';	$firstres = 'syl';
}	}