|
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'], |
![[BACK]](/icons/back.gif){kind=icon}
Return to loncommon.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface