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

[albertel]

albertel		Tue Jun 28 11:28:13 2005 EDT

  Modified files:              
    /loncom/interface	lonparmset.pm 
  Log:
  - add in <label> for parm type selection
  
  
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.234 loncom/interface/lonparmset.pm:1.235
--- loncom/interface/lonparmset.pm:1.234	Tue Jun 28 11:26:06 2005
+++ loncom/interface/lonparmset.pm	Tue Jun 28 11:28:08 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.234 2005/06/28 15:26:06 albertel Exp $
+# $Id: lonparmset.pm,v 1.235 2005/06/28 15:28:08 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -904,12 +904,12 @@
     $r->print("\n<table><tr>");
     my $cnt=0;
     foreach $tempkey (&keysindisplayorder($allparms,$keyorder)) {
-	$r->print("\n<td><font size='-1'><input type='checkbox' name='pscat' ");
+	$r->print("\n<td><font size='-1'><label><input type='checkbox' name='pscat' ");
 	$r->print('value="'.$tempkey.'"');
 	if ($$pscat[0] eq "all" || grep $_ eq $tempkey, @{$pscat}) {
 	    $r->print(' checked');
 	}
-	$r->print('>'.$$allparms{$tempkey}.'</font></td>');
+	$r->print('>'.$$allparms{$tempkey}.'</label></font></td>');
  	$cnt++;
         if ($cnt==3) {
 	    $r->print("</tr>\n<tr>");