loncom/automation/batchcreatecourse.pm - diff

Return to batchcreatecourse.pm CVS log

Up to [LON-CAPA] / loncom / automation

version 1.40, 2014/01/03 18:42:16	version 1.41, 2016/04/02 04:30:47
Line 163 use strict;	Line 163 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 428 sub build_course {	Line 428 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 451 sub build_course {	Line 455 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';
}	}