version 1.93, 2006/06/27 21:28:13
|
version 1.94, 2006/07/11 02:28:22
|
Line 832 sub create_course {
|
Line 832 sub create_course {
|
clonecourse => $env{'form.clonecourse'}, |
clonecourse => $env{'form.clonecourse'}, |
clonedomain => $env{'form.clonedomain'}, |
clonedomain => $env{'form.clonedomain'}, |
crsid => $env{'form.crsid'}, |
crsid => $env{'form.crsid'}, |
curruser => $env{'user.name'}, |
curruser => $env{'user.name'}.':'.$env{'user.domain'}, |
crssections => $env{'form.crssections'}, |
crssections => $env{'form.crssections'}, |
crsxlist => $env{'form.crsxlist'}, |
crsxlist => $env{'form.crsxlist'}, |
autoadds => $env{'form.autoadds'}, |
autoadds => $env{'form.autoadds'}, |
Line 917 sub construct_course {
|
Line 917 sub construct_course {
|
my $crstype = lc($args->{'crstype'}); |
my $crstype = lc($args->{'crstype'}); |
my %cenv=(); |
my %cenv=(); |
$$courseid=&Apache::lonnet::createcourse($args->{'course_domain'}, |
$$courseid=&Apache::lonnet::createcourse($args->{'course_domain'}, |
$args->{'cdescr'}, |
$args->{'cdescr'}, |
$args->{'curl'}, |
$args->{'curl'}, |
$args->{'course_home'}, |
$args->{'course_home'}, |
$args->{'nonstandard'}, |
$args->{'nonstandard'}, |
$args->{'crscode'}, |
$args->{'crscode'}, |
$args->{'ccuname'}, |
$args->{'ccuname'}.':'. |
$args->{'crstype'}); |
$args->{'ccdomain'}, |
|
$args->{'crstype'}); |
|
|
# Note: The testing routines depend on this being output; see |
# Note: The testing routines depend on this being output; see |
# Utils::Course. This needs to at least be output as a comment |
# Utils::Course. This needs to at least be output as a comment |
Line 987 sub construct_course {
|
Line 988 sub construct_course {
|
$cenv{'internal.coursequota'}=$args->{'crsquota'} = 20; |
$cenv{'internal.coursequota'}=$args->{'crsquota'} = 20; |
} |
} |
if ($args->{'ccuname'}) { |
if ($args->{'ccuname'}) { |
$cenv{'internal.courseowner'} = $args->{'ccuname'}; |
$cenv{'internal.courseowner'} = $args->{'ccuname'}. |
|
':'.$args->{'ccdomain'}; |
} else { |
} else { |
$cenv{'internal.courseowner'} = $args->{'curruser'}; |
$cenv{'internal.courseowner'} = $args->{'curruser'}; |
} |
} |
Line 1046 sub construct_course {
|
Line 1048 sub construct_course {
|
my @notified = (); |
my @notified = (); |
if ($args->{'notify_owner'}) { |
if ($args->{'notify_owner'}) { |
if ($args->{'ccuname'} ne '') { |
if ($args->{'ccuname'} ne '') { |
push(@notified,$args->{'ccuname'}.'@'.$args->{'ccdomain'}); |
push(@notified,$args->{'ccuname'}.':'.$args->{'ccdomain'}); |
} |
} |
} |
} |
if ($args->{'notify_dc'}) { |
if ($args->{'notify_dc'}) { |