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

[albertel]

albertel		Tue Aug  9 16:00:08 2005 EDT

  Modified files:              
    /loncom/publisher	lonpublisher.pm 
  Log:
  - adding <label>
  
  
Index: loncom/publisher/lonpublisher.pm
diff -u loncom/publisher/lonpublisher.pm:1.200 loncom/publisher/lonpublisher.pm:1.201
--- loncom/publisher/lonpublisher.pm:1.200	Wed Jun 29 13:46:20 2005
+++ loncom/publisher/lonpublisher.pm	Tue Aug  9 16:00:06 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Publication Handler
 #
-# $Id: lonpublisher.pm,v 1.200 2005/06/29 17:46:20 raeburn Exp $
+# $Id: lonpublisher.pm,v 1.201 2005/08/09 20:00:06 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -355,7 +355,8 @@
 
 sub checkbox {
     my ($name,$text)=@_;
-    return "\n<br /><input type='checkbox' name='$name' /> ".&mt($text);
+    return "\n<br /><label><input type='checkbox' name='$name' /> ".
+	&mt($text)."</label>";
 }
 
 sub selectbox {
@@ -1312,12 +1313,12 @@
 #	$intr_scrout.=&text_with_browse_field('Source Custom Distribution File','sourcerights',$metadatafields{'sourcerights'},'rights');
 	my $uctitle=&mt('Obsolete');
 	$intr_scrout.=
-	    "\n<p><font color=\"#800000\" face=\"helvetica\"><b>$uctitle:".
+	    "\n<p><label><font color=\"#800000\" face=\"helvetica\"><b>$uctitle:".
 	    '</b></font> <input type="checkbox" name="obsolete" ';
 	if ($metadatafields{'obsolete'}) {
 	    $intr_scrout.=' checked="1" ';
 	}
-	$intr_scrout.='/ ></p>'.
+	$intr_scrout.='/ ></label></p>'.
 	    &text_with_browse_field('Suggested Replacement for Obsolete File',
 				    'obsoletereplacement',
 				    $metadatafields{'obsoletereplacement'});