[LON-CAPA-cvs] cvs: loncom /publisher lonpublisher.pm

[matthew]

matthew		Tue Oct  5 09:41:36 2004 EDT

  Modified files:              
    /loncom/publisher	lonpublisher.pm 
  Log:
  added <label>s around keywords.
  
  
Index: loncom/publisher/lonpublisher.pm
diff -u loncom/publisher/lonpublisher.pm:1.178 loncom/publisher/lonpublisher.pm:1.179
--- loncom/publisher/lonpublisher.pm:1.178	Thu Sep  2 15:34:46 2004
+++ loncom/publisher/lonpublisher.pm	Tue Oct  5 09:41:36 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Publication Handler
 #
-# $Id: lonpublisher.pm,v 1.178 2004/09/02 19:34:46 albertel Exp $
+# $Id: lonpublisher.pm,v 1.179 2004/10/05 13:41:36 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1132,7 +1132,7 @@
     my $colcount=0;
 
     foreach (sort keys %keywords) {
-	$keywordout.='<td><input type="checkbox" name="keywords" value="'.$_.'"';
+	$keywordout.='<td><label><input type="checkbox" name="keywords" value="'.$_.'"';
 	if ($metadatafields{'keywords'}) {
 	    if ($metadatafields{'keywords'}=~/\Q$_\E/) {
 		$keywordout.=' checked="on"';
@@ -1142,7 +1142,7 @@
 	    $keywordout.=' checked="on"';
 	    $ENV{'form.keywords'}.=$_.',';
 	}
-	$keywordout.=' />'.$_.'</td>';
+	$keywordout.=' />'.$_.'</label></td>';
 	if ($colcount>10) {
 	    $keywordout.="</tr><tr>\n";
 	    $colcount=0;