version 1.51, 2015/05/21 23:40:09
|
version 1.52.2.1, 2016/08/31 23:28:05
|
Line 1719 sub build_batchcreatehash {
|
Line 1719 sub build_batchcreatehash {
|
$batchhash{'users'}{$owner}{lastname} = $owner_lastname; |
$batchhash{'users'}{$owner}{lastname} = $owner_lastname; |
$batchhash{'users'}{$owner}{emailenc} = $emailenc; |
$batchhash{'users'}{$owner}{emailenc} = $emailenc; |
$batchhash{'users'}{$owner}{owneremail} = $owneremail; |
$batchhash{'users'}{$owner}{owneremail} = $owneremail; |
|
$batchhash{'setcomment'} = 1; |
} |
} |
return %batchhash; |
return %batchhash; |
} |
} |
Line 1773 sub can_clone_course {
|
Line 1774 sub can_clone_course {
|
if (@code_order > 0) { |
if (@code_order > 0) { |
if (&Apache::lonnet::check_instcode_cloning(\%codedefaults,\@code_order, |
if (&Apache::lonnet::check_instcode_cloning(\%codedefaults,\@code_order, |
$cloner,$clonefromcode,$instcode)) { |
$cloner,$clonefromcode,$instcode)) { |
print STDERR "Z got check from $cloner,$clonefromcode,$instcode and ||".join('**',@code_order)."||\n"; |
|
$canclone = 1; |
$canclone = 1; |
last; |
last; |
} |
} |