--- loncom/automation/batchcreatecourse.pm 2010/02/26 23:50:28 1.35.4.1 +++ loncom/automation/batchcreatecourse.pm 2010/05/24 06:32:38 1.36 @@ -1,5 +1,5 @@ # -# $Id: batchcreatecourse.pm,v 1.35.4.1 2010/02/26 23:50:28 raeburn Exp $ +# $Id: batchcreatecourse.pm,v 1.36 2010/05/24 06:32:38 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -434,7 +434,11 @@ sub build_course { } my $firstres = $details->{'firstres'}; if ($firstres eq '') { - $firstres = 'syl'; + if ($crstype eq 'Community') { + $firstres = 'nav'; + } else { + $firstres = 'syl'; + } } foreach my $secid (sort(keys(%{$details->{'sections'}}))) { $sectionstr .= $details->{'sections'}{$secid}{'inst'}.':'.$details->{'sections'}{$secid}{'loncapa'}.','; @@ -493,7 +497,6 @@ sub build_course { crsquota => $details->{'crsquota'}, clonecourse => $details->{'clonecrs'}, clonedomain => $details->{'clonedom'}, - cloneroster => $details->{'cloneroster'}, datemode => $details->{'datemode'}, dateshift => $details->{'dateshift'}, crsid => $details->{'optional_id'},