--- loncom/homework/inputtags.pm	2012/09/10 09:50:57	1.308
+++ loncom/homework/inputtags.pm	2012/09/14 11:23:58	1.309
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # input  definitons
 #
-# $Id: inputtags.pm,v 1.308 2012/09/10 09:50:57 foxr Exp $
+# $Id: inputtags.pm,v 1.309 2012/09/14 11:23:58 goltermann Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -253,10 +253,12 @@ sub start_textfield {
 	    for (my $i=0;$i<int $number_of_lines*2;$i++) {$result.='\strut \\\\ ';}
 	    $result.='\strut \\\\\strut \\\\\strut \\\\\strut \\\\}}}';
 	} else {
-	    my $TeXwidth=$width_of_box/80;
-	    $result = '\vskip 1 mm \fbox{\fbox{\parbox{'.$TeXwidth.'\textwidth-5mm}{';
-	    for (my $i=0;$i<int $number_of_lines*2;$i++) {$result.='\strut \\\\ ';}
-	    $result.='}}}\vskip 2 mm ';
+	    my $fieldname = $env{'request.symb'}.
+                    '&part_'. $Apache::inputtags::part.
+                    '&textresponse'.
+                    '&HWVAL_' . $Apache::inputtags::response['-1'];
+            $result.='\TextField[name='.$fieldname.',multiline=true,height=6\baselineskip,width=270,borderwidth=0,backgroundcolor={.85
+                .85 .85}]\\';
 	}
     }
     return $result;