loncom/interface/loncoursequeueadmin.pm - diff

Return to loncoursequeueadmin.pm CVS log

Up to [LON-CAPA] / loncom / interface

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'));