[LON-CAPA-cvs] cvs: loncom /homework essayresponse.pm

matthew lon-capa-cvs@mail.lon-capa.org
Tue, 19 Apr 2005 00:56:39 -0000


matthew		Mon Apr 18 20:56:39 2005 EDT

  Modified files:              
    /loncom/homework	essayresponse.pm 
  Log:
  <label>s added around checkboxes above essay entry form.
  
  
Index: loncom/homework/essayresponse.pm
diff -u loncom/homework/essayresponse.pm:1.63 loncom/homework/essayresponse.pm:1.64
--- loncom/homework/essayresponse.pm:1.63	Fri Apr  8 15:21:52 2005
+++ loncom/homework/essayresponse.pm	Mon Apr 18 20:56:39 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # essay (ungraded) style responses
 #
-# $Id: essayresponse.pm,v 1.63 2005/04/08 19:21:52 albertel Exp $
+# $Id: essayresponse.pm,v 1.64 2005/04/19 00:56:39 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -50,16 +50,21 @@
         $uploadedfiletypes=~s/[^\w\,]//g;
 	$result='<br /><table border="1">';
 	$result.='<tr><td>'.
+            '<label>'.
 	    '<input type="radio" name="HWDRAFT'.$part.'_'.$id.'" value="yes" checked="checked" /> '.
-	    &mt('Submit entries below as answer to receive credit').' <br />'.
-	    '<input type="radio" name="HWDRAFT'.$part.'_'.$id.'" value="no" /> '.
+	    &mt('Submit entries below as answer to receive credit').
+            '</label> <br />'.
+	    '<label>'.
+            '<input type="radio" name="HWDRAFT'.$part.'_'.$id.'" value="no" /> '.
 	    &mt('Save entries below as a draft answer (not submitting them for credit yet)').
-	    ' </td></tr>';
+	    '</label>'.
+            ' </td></tr>';
 	if ($ncol > 0) {
-	    $result .='<tr><td>'.
+	    $result .='<tr><td>'.'<label>'.
 		'Collaborators: <input type="text" size="70" max="80" name="HWCOL'.
 		$part.'_'.$id.'" value="'.$coll.'" /><br />'.
-		&mt('(Enter maximum [_1] collaborators using username or username@domain, e.g. smithje or smithje@[_2].)',$ncol,$env{'user.domain'}).'<br />';
+		&mt('(Enter maximum [_1] collaborators using username or username@domain, e.g. smithje or smithje@[_2].)',$ncol,$env{'user.domain'}).
+                '</label><br />';
 	    $result .= &check_collaborators($ncol,$coll) if ($coll =~ /\w+/);
 	    $result .='</td></tr>';
 	}