loncom/interface/loncoursequeueadmin.pm - diff

Return to loncoursequeueadmin.pm CVS log

Up to [LON-CAPA] / loncom / interface

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