--- loncom/interface/lonrequestcourse.pm	2015/09/01 14:11:26	1.94
+++ loncom/interface/lonrequestcourse.pm	2016/08/04 21:59:23	1.95.2.1
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Request a course
 #
-# $Id: lonrequestcourse.pm,v 1.94 2015/09/01 14:11:26 raeburn Exp $
+# $Id: lonrequestcourse.pm,v 1.95.2.1 2016/08/04 21:59:23 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3162,7 +3162,7 @@ sub clone_form {
         &Apache::loncommon::select_dom_form($dom,'clonedom').'</label>'.
         &Apache::lonhtmlcommon::row_closure(1).
         &Apache::lonhtmlcommon::row_title($lt{'cid'}).'<label>'.
-        '<input type="text" size="25" name="clonecrs" value="" onfocus="this.blur();opencrsbrowser('."'$formname','clonecrs','clonedom','','','','','$type'".')" />'.
+        '<input type="text" size="25" name="clonecrs" value="" onfocus="this.blur();opencrsbrowser('."'$formname','clonecrs','clonedom','','','','$type'".')" />'.
         '</label>&nbsp;'.
         &Apache::loncommon::selectcourse_link($formname,'clonecrs','clonedom','','','',$type).
         &Apache::lonhtmlcommon::row_closure(1).
@@ -4554,7 +4554,16 @@ sub print_textbook_form {
         $cc_clone .= $cdom.':'.$cnum.'&';
         unless (exists($cloneable{$cdom.'_'.$cnum})) {
             my %courseinfo = &Apache::lonnet::coursedescription($cdom.'_'.$cnum,{'one_time' => 1});
-            $cloneable{$cdom.'_'.$cnum} = \%courseinfo;
+            $cloneable{$cdom.'_'.$cnum} = {
+                                               context => $courseinfo{'internal.creationcontext'},
+                                               created => $courseinfo{'internal.created'},
+                                               creator => $courseinfo{'internal.creator'},
+                                               description => $courseinfo{'description'},
+                                               inst_code => $courseinfo{'coursecode'},
+                                               owner => $courseinfo{'internal.courseowner'},
+                                               releaserequired => $courseinfo{'internal.releaserequired'},
+                                               type  => $courseinfo{'type'},
+                                           };
         }
     }
 
@@ -4849,19 +4858,12 @@ sub clone_selection_table {
                 my $cleantitle=&HTML::Entities::encode($title,'<>&"');
                 $cleantitle=~s/'/\\'/g;
                 $cleantitle =~ s/^\s+//;
-                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);
+                my ($namestr,@owners,%ownernames);
+                if ($cloneableref->{$cid}{'owner'} ne '') {
+                    push(@owners,$cloneableref->{$cid}{'owner'});
                 }
-                if ($otherowners ne '') {
-                    foreach my $item (split(/,/,$otherowners)) {
+                if ($cloneableref->{$cid}{'co-owners'} ne '') {
+                    foreach my $item (split(/,/,$cloneableref->{$cid}{'co-owners'})) {
                         if (($item ne '') && (!grep(/^\Q$item\E$/,@owners))) {
                             push(@owners,$item);
                         }