version 1.10, 2009/10/05 01:54:44
|
version 1.11, 2009/11/04 17:42:17
|
Line 954 sub build_batchcreatehash {
|
Line 954 sub build_batchcreatehash {
|
} |
} |
|
|
sub can_clone_course { |
sub can_clone_course { |
my ($uname,$udom,$clonecrs,$clonedom) = @_; |
my ($uname,$udom,$clonecrs,$clonedom,$crstype) = @_; |
my $canclone; |
my $canclone; |
|
my $ccrole = 'cc'; |
|
if ($crstype eq 'Community') { |
|
$ccrole = 'co'; |
|
} |
my %roleshash = &Apache::lonnet::get_my_roles($uname,$udom,'userroles',['active'], |
my %roleshash = &Apache::lonnet::get_my_roles($uname,$udom,'userroles',['active'], |
['cc'],[$clonedom]); |
[$ccrole],[$clonedom]); |
if (exists($roleshash{$clonecrs.':'.$clonedom.':cc'})) { |
if (exists($roleshash{$clonecrs.':'.$clonedom.':'.$ccrole})) { |
$canclone = 1; |
$canclone = 1; |
} else { |
} else { |
my %courseenv = &Apache::lonnet::userenvironment($clonedom,$clonecrs,('cloners')); |
my %courseenv = &Apache::lonnet::userenvironment($clonedom,$clonecrs,('cloners')); |