--- loncom/interface/lonpickcourse.pm	2005/10/03 23:53:25	1.30
+++ loncom/interface/lonpickcourse.pm	2005/10/14 18:23:32	1.32
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Pick a course
 #
-# $Id: lonpickcourse.pm,v 1.30 2005/10/03 23:53:25 raeburn Exp $
+# $Id: lonpickcourse.pm,v 1.32 2005/10/14 18:23:32 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -111,7 +111,7 @@ ENDDOCUMENT
         $num_sections = &Apache::loncommon::get_sections($cdom,$cnum,\%sections_count);
         my @sections = ();
         if ($num_sections > 0) {
-            @sections = (sort {$a <=> $b} keys %sections_count);
+            @sections = (sort {$a <=> $b} keys(%sections_count));
             $seclist = join('","',@sections);
         }
     }
@@ -272,8 +272,8 @@ ENDSCRIPT
 	    ($domainfilter,$descriptfilter,$timefilter,$instcodefilter,$ownerfilter,$coursefilter);
 	$r->print('<form name="courselist">');
 	my %by_descrip;
-        my $numcourses = keys %courses;
-	foreach my $course (keys %courses) {
+        my $numcourses = keys(%courses);
+	foreach my $course (keys(%courses)) {
             my $descr;
             if ($courses{$course} =~ m/^([^:]*):/) {
                 $descr = &Apache::lonnet::unescape($1);
@@ -305,6 +305,7 @@ ENDSCRIPT
                 unless ($owner eq '') {
                     $r->print(", owner - ".&Apache::lonnet::unescape($owner));
                 }
+		if ($multflag) { $r->print("</label>\n"); }
                 $r->print("<br />\n");
             }
 	}
@@ -327,7 +328,7 @@ sub course_chooser {
     my ($multflag,$cdom,$cnum,$cleandesc) = @_;
     my $output; 
     if ($multflag) {
-        $output = '<input type="checkbox" name="course_id" value="'.$cdom.'_'.$cnum.'" />'."\n";
+        $output = '<label><input type="checkbox" name="course_id" value="'.$cdom.'_'.$cnum.'" />'."\n";
     } else {
         $output = '<input type="button" value="Select" onClick="gochoose('.
                   "'".$cnum."','".$cdom."','".$cleandesc."')".'" />'."\n";