version 1.564.2.1, 2007/08/24 07:20:22
|
version 1.564.2.2, 2007/08/24 18:41:50
|
Line 6925 sub check_clone {
|
Line 6925 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'], |