--- loncom/interface/lonpickcourse.pm	2004/11/30 00:21:24	1.21
+++ loncom/interface/lonpickcourse.pm	2005/01/28 19:26:54	1.25
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Pick a course
 #
-# $Id: lonpickcourse.pm,v 1.21 2004/11/30 00:21:24 raeburn Exp $
+# $Id: lonpickcourse.pm,v 1.25 2005/01/28 19:26:54 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -153,20 +153,31 @@ function setSections() {
     var sectionsArray = new Array("$seclist")
     opener.document.$ENV{"form.form"}.currsec.length = 0
     if (numSections == 0) {
+        opener.document.$ENV{"form.form"}.currsec.multiple=false
+        opener.document.$ENV{"form.form"}.currsec.size=1;
         opener.document.$ENV{"form.form"}.currsec.options[0] = new Option('No existing sections','',false,false)
     }
     else {
-        for (var i=0; i<numSections; i++) {
-            opener.document.$ENV{"form.form"}.currsec.options[i] = new Option(sectionsArray[i],sectionsArray[i],false,false)
-        }
-        opener.document.$ENV{"form.form"}.currsec.multiple=true
-        if (numSections < 3) {
-            opener.document.$ENV{"form.form"}.currsec.size=numSections;
+        if (numSections == 1) {
+            opener.document.$ENV{"form.form"}.currsec.multiple=false;
+            opener.document.$ENV{"form.form"}.currsec.size=1;
+            opener.document.$ENV{"form.form"}.currsec.options[0] = new Option('Select','',true,true);
+            opener.document.$ENV{"form.form"}.currsec.options[1] = new Option('No section','',false,false) 
+            opener.document.$ENV{"form.form"}.currsec.options[2] = new Option(sectionsArray[0],sectionsArray[0],false,false);
         }
         else {
-            opener.document.$ENV{"form.form"}.currsec.size=3;
+            for (var i=0; i<numSections; i++) {
+                opener.document.$ENV{"form.form"}.currsec.options[i] = new Option(sectionsArray[i],sectionsArray[i],false,false)
+            }
+            opener.document.$ENV{"form.form"}.currsec.multiple=true
+            if (numSections < 3) {
+                opener.document.$ENV{"form.form"}.currsec.size=numSections;
+            }
+            else {
+                opener.document.$ENV{"form.form"}.currsec.size=3;
+            }
+            opener.document.$ENV{"form.form"}.currsec.options[0].selected = false
         }
-        opener.document.$ENV{"form.form"}.currsec.options[0].selected = false
     }
     self.close()
 }
@@ -214,18 +225,27 @@ ENDSCRIPT
             } else {
                 $descr = &Apache::lonnet::unescape($courses{$course});
             }
-            $by_descrip{lc($descr)}=$course;
+            my $description = lc($descr);
+            push (@{$by_descrip{$description}}, $course);
 	}
 	foreach my $description (sort(keys(%by_descrip))) {
-	    my $course=$by_descrip{$description};
-	    my $cleandesc=&HTML::Entities::encode($description,'<>&"');
-	    $cleandesc=~s/'/\\'/g;
-	    my ($cdom,$cnum)=split(/\_/,$course);
-	    $r->print('<input type="button" value="Select" onClick="gochoose('.
-		  "'".$cnum."','".$cdom."','".$cleandesc."')".'" /> '.$description.' ('.
-		  ($Apache::lonnet::domaindescription{$cdom}?
-                   $Apache::lonnet::domaindescription{$cdom}:$cdom).
-                 ")<br />\n");
+            foreach my $course (@{$by_descrip{$description}}) {
+	        my $cleandesc=&HTML::Entities::encode($description,'<>&"');
+	        $cleandesc=~s/'/\\'/g;
+	        my ($cdom,$cnum)=split(/\_/,$course);
+                my ($descr,$instcode,$owner) = split/:/,$courses{$course};
+	        $r->print('<input type="button" value="Select" onClick="gochoose('.
+		      "'".$cnum."','".$cdom."','".$cleandesc."')".'" /> '.$description.' ('.
+		      ($Apache::lonnet::domaindescription{$cdom}?
+                       $Apache::lonnet::domaindescription{$cdom}:$cdom).")");
+                unless ($instcode eq '') {
+                    $r->print(" - ".&Apache::lonnet::unescape($instcode));
+                }
+                unless ($owner eq '') {
+                    $r->print(", owner - ".&Apache::lonnet::unescape($owner));
+                }
+                $r->print("<br />\n");
+            }
 	}
 	if (!%courses) { $r->print(&mt('None found')); }
         $r->print('<input type="hidden" name="form" value="'.$ENV{'form.form'}.'" />'."\n".