--- loncom/interface/lonrequestcourse.pm	2015/08/24 14:50:22	1.93
+++ loncom/interface/lonrequestcourse.pm	2015/09/01 14:11:26	1.94
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Request a course
 #
-# $Id: lonrequestcourse.pm,v 1.93 2015/08/24 14:50:22 raeburn Exp $
+# $Id: lonrequestcourse.pm,v 1.94 2015/09/01 14:11:26 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -4849,12 +4849,22 @@ sub clone_selection_table {
                 my $cleantitle=&HTML::Entities::encode($title,'<>&"');
                 $cleantitle=~s/'/\\'/g;
                 $cleantitle =~ s/^\s+//;
-                my ($namestr,@owners,%ownernames);
-                my $singleowner = $cloneableref->{$cid}{'internal.courseowner'};
-                push(@owners,$singleowner);
-                if ($cloneableref->{$cid}{'co-owners'} ne '') {
-                    foreach my $item (split(/,/,$cloneableref->{$cid}{'internal.co-owners'})) {
-                        push(@owners,$item);
+                my ($namestr,$singleowner,$otherowners,@owners,%ownernames);
+                if ($name eq 'colleague') {
+                    $singleowner = $cloneableref->{$cid}{'owner'};
+                    $otherowners = $cloneableref->{$cid}{'co-owners'};
+                } else {
+                    $singleowner = $cloneableref->{$cid}{'internal.courseowner'};
+                    $otherowners = $cloneableref->{$cid}{'internal.co-owners'};
+                }
+                if ($singleowner ne '') {
+                    push(@owners,$singleowner);
+                }
+                if ($otherowners ne '') {
+                    foreach my $item (split(/,/,$otherowners)) {
+                        if (($item ne '') && (!grep(/^\Q$item\E$/,@owners))) {
+                            push(@owners,$item);
+                        }
                     }
                 }
                 foreach my $owner (@owners) {