version 1.567, 2007/08/23 22:21:15
|
version 1.568, 2007/08/24 18:41:06
|
Line 6982 sub check_clone {
|
Line 6982 sub check_clone {
|
$args->{'crstype'}); |
$args->{'crstype'}); |
} else { |
} else { |
my %clonedesc = &Apache::lonnet::coursedescription($cloneid,{'one_time' => 1}); |
my %clonedesc = &Apache::lonnet::coursedescription($cloneid,{'one_time' => 1}); |
if ($env{'request.role.domain'} eq $args->{'form.clonedomain'}) { |
if ($env{'request.role.domain'} eq $args->{'clonedomain'}) { |
$can_clone = 1; |
$can_clone = 1; |
} else { |
} else { |
my %clonehash = &Apache::lonnet::get('environment',['cloners'], |
my %clonehash = &Apache::lonnet::get('environment',['cloners'], |