[LON-CAPA-cvs] cvs: loncom /interface lonpickcourse.pm

[albertel]

albertel		Fri Oct 14 14:23:32 2005 EDT

  Modified files:              
    /loncom/interface	lonpickcourse.pm 
  Log:
  - <label> is my best friend
  
  
Index: loncom/interface/lonpickcourse.pm
diff -u loncom/interface/lonpickcourse.pm:1.31 loncom/interface/lonpickcourse.pm:1.32
--- loncom/interface/lonpickcourse.pm:1.31	Mon Oct  3 20:27:22 2005
+++ loncom/interface/lonpickcourse.pm	Fri Oct 14 14:23:32 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Pick a course
 #
-# $Id: lonpickcourse.pm,v 1.31 2005/10/04 00:27:22 albertel Exp $
+# $Id: lonpickcourse.pm,v 1.32 2005/10/14 18:23:32 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -305,6 +305,7 @@
                 unless ($owner eq '') {
                     $r->print(", owner - ".&Apache::lonnet::unescape($owner));
                 }
+		if ($multflag) { $r->print("</label>\n"); }
                 $r->print("<br />\n");
             }
 	}
@@ -327,7 +328,7 @@
     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";