version 1.8, 2009/09/04 23:01:58
|
version 1.9, 2009/09/11 02:27:50
|
Line 958 sub can_clone_course {
|
Line 958 sub can_clone_course {
|
my $canclone; |
my $canclone; |
my %roleshash = &Apache::lonnet::get_my_roles($uname,$udom,'userroles',['active'], |
my %roleshash = &Apache::lonnet::get_my_roles($uname,$udom,'userroles',['active'], |
['cc'],[$clonedom]); |
['cc'],[$clonedom]); |
if (exists($roleshash{$clonedom.':'.$clonecrs.':cc'})) { |
if (exists($roleshash{$clonecrs.':'.$clonedom.':cc'})) { |
$canclone = 1; |
$canclone = 1; |
} else { |
} else { |
my %courseenv = &Apache::lonnet::userenvironment($clonedom,$clonecrs,('cloners')); |
my %courseenv = &Apache::lonnet::userenvironment($clonedom,$clonecrs,('cloners')); |