version 1.19, 2010/02/21 23:38:51
|
version 1.21, 2010/02/26 22:56:01
|
Line 960 sub course_creation {
|
Line 960 sub course_creation {
|
} |
} |
my %reqdetails = &build_batchcreatehash($dom,$context,$details,$owneremail,$domdefs); |
my %reqdetails = &build_batchcreatehash($dom,$context,$details,$owneremail,$domdefs); |
my $cid = &LONCAPA::batchcreatecourse::build_course($dom,$cnum,'requestcourses', |
my $cid = &LONCAPA::batchcreatecourse::build_course($dom,$cnum,'requestcourses', |
\%reqdetails,$longroles,\$logmsg,\$newusermsg,\$addresult, |
\%reqdetails,$longroles,$logmsg,\$newusermsg,\$addresult, |
\$enrollcount,\$output,\$keysmsg,$ownerdom,$ownername,$cnum,$crstype); |
\$enrollcount,\$output,\$keysmsg,$ownerdom,$ownername,$cnum,$crstype); |
if ($cid eq "/$dom/$cnum") { |
if ($cid eq "/$dom/$cnum") { |
$result = 'created'; |
$result = 'created'; |
Line 1060 sub can_clone_course {
|
Line 1060 sub can_clone_course {
|
} |
} |
unless ($canclone) { |
unless ($canclone) { |
if (&Apache::lonnet::is_course_owner($clonedom,$clonecrs,$uname,$udom)) { |
if (&Apache::lonnet::is_course_owner($clonedom,$clonecrs,$uname,$udom)) { |
$can_clone = 1; |
$canclone = 1; |
} |
} |
} |
} |
} |
} |