--- loncom/interface/loncommon.pm	2010/02/12 19:06:47	1.692.4.28
+++ loncom/interface/loncommon.pm	2010/02/22 16:29:15	1.692.4.29
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.692.4.28 2010/02/12 19:06:47 raeburn Exp $
+# $Id: loncommon.pm,v 1.692.4.29 2010/02/22 16:29:15 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -9477,6 +9477,8 @@ sub check_clone {
                                          [$args->{'clonedomain'}]);
                 if (($roleshash{$args->{'clonecourse'}.':'.$args->{'clonedomain'}.':'.$ccrole}) || (grep(/^\Q$args->{'ccuname'}\E:\Q$args->{'ccdomain'}\E$/,@cloners))) {
                     $can_clone = 1;
+                } elsif (&Apache::lonnet::is_course_owner($args->{'clonedomain'},$args->{'clonecourse'},$args->{'ccuname'},$args->{'ccdomain'})) {
+                    $can_clone = 1;
                 } else {
                     if ($args->{'type'} eq 'Community') {
                         $clonemsg = &mt('No new community created.').$linefeed.&mt('The new community could not be cloned from the existing community because the new community owner ([_1]) does not have cloning rights in the existing community ([_2]).',$args->{'ccuname'}.':'.$args->{'ccdomain'},$clonedesc{'description'});