--- loncom/homework/edit.pm	2004/06/04 16:05:47	1.83
+++ loncom/homework/edit.pm	2004/06/08 01:32:01	1.84
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # edit mode helpers
 #
-# $Id: edit.pm,v 1.83 2004/06/04 16:05:47 www Exp $
+# $Id: edit.pm,v 1.84 2004/06/08 01:32:01 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -487,7 +487,11 @@ sub editfield {
     my ($tag,$data,$description,$minwidth,$minheight,$usehtmlarea)=@_;
 
     my ($rows,$cols)=&textarea_sizes(\$data);
-    $rows+=5; # make room for HTMLarea
+    if (&Apache::lonhtmlcommon::htmlareabrowser() &&
+	!&Apache::lonhtmlcommon::htmlareablocked()) {
+	$rows+=7;      # make room for HTMLarea
+	$minheight+=7; # make room for HTMLarea
+    }
     if ($cols > 80) { $cols = 80; }
     if ($cols < $minwidth ) { $cols = $minwidth; }
     if ($rows < $minheight) { $rows = $minheight; }