--- loncom/interface/lonpickcourse.pm	2011/05/27 14:39:53	1.102
+++ loncom/interface/lonpickcourse.pm	2011/09/01 02:32:50	1.103
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Pick a course
 #
-# $Id: lonpickcourse.pm,v 1.102 2011/05/27 14:39:53 bisitz Exp $
+# $Id: lonpickcourse.pm,v 1.103 2011/09/01 02:32:50 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1061,8 +1061,13 @@ ENDSCRIPT
     } else {
         my ($name_code,$type_code);
         if ($env{'form.cnameelement'} ne '') {
-            $name_code = 'opener.document.'.$env{'form.form'}.'.'.
-                          $env{'form.cnameelement'}.'.value=cdesc;';
+            $name_code = <<ENDNAMECODE;  
+var showcdesc = cdesc;
+if (cdesc.length > 25) {
+    showcdesc = cdesc.substr(0,25)+' ...'; 
+}
+opener.document.$env{'form.form'}.$env{'form.cnameelement'}.value=showcdesc;
+ENDNAMECODE
         }
         if ($env{'form.typeelement'} ne '') {
             $type_code = 'opener.document.'.$env{'form.form'}.'.'.