Index: openacs-4/packages/assessment/tcl/as-item-form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-item-form-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/assessment/tcl/as-item-form-procs.tcl	27 Oct 2004 13:51:09 -0000	1.2
+++ openacs-4/packages/assessment/tcl/as-item-form-procs.tcl	27 Oct 2004 13:53:49 -0000	1.3
@@ -34,13 +34,13 @@
 	}
 
 	"textarea" {
-	    set html {rows 15 cols 55}
+	    db_0or1row html_rows_cols "SELECT abs_size FROM as_item_display_tax WHERE item_id=:item_display_id"	   
 	    template::element::create $form $element_name \
 		-datatype text \
 		-widget textarea \
 		-label $title \
 		-value $user_value \
-		-html $html \
+		-html $abs_size \
 		-nospell \
 		-required_p $required_p
 	}
Index: openacs-4/packages/assessment/tcl/as-qti-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-qti-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/assessment/tcl/as-qti-procs.tcl	27 Oct 2004 13:51:09 -0000	1.4
+++ openacs-4/packages/assessment/tcl/as-qti-procs.tcl	27 Oct 2004 13:53:49 -0000	1.5
@@ -164,7 +164,10 @@
 				set as_item_display_id {}
 				if {[$render_fib hasAttribute {rows}]} {
 					# shortanswer (textarea)
-					set as_item_display_id [as::item_display_ta::new -name [ad_generate_random_string]]
+					set rows [$render_fib getAttribute {rows} {15}]
+					set cols [$render_fib getAttribute {columns} {55}]
+					set html "rows $rows cols $cols"					
+					set as_item_display_id [as::item_display_ta::new -name [ad_generate_random_string] -abs_size $html]
 					foreach node $presentationChildNodes {
 					if {[$node nodeName] == {material}} {
 						set mattextNodes [$node selectNodes {mattext/text()}]
Index: openacs-4/packages/assessment/www/session.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/session.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/assessment/www/session.tcl	27 Oct 2004 13:51:10 -0000	1.14
+++ openacs-4/packages/assessment/www/session.tcl	27 Oct 2004 13:53:49 -0000	1.15
@@ -49,8 +49,10 @@
   
   if {[string compare $presentation_type "textarea"] == 0} {  
       set text_answer {}       
+      db_0or1row html_rows_cols "SELECT abs_size FROM as_item_display_tax WHERE item_id=:item_display_id"
+      set html_options "[lindex $abs_size 0]=[lindex $abs_size 1] [lindex $abs_size 2]=[lindex $abs_size 3]"
       db_0or1row shortanswer {} 
-      set choice_answer "<textarea rows=\"15\" cols=\"55\" readonly disabled>$text_answer</textarea>"
+      set choice_answer "<textarea $html_options readonly disabled>$text_answer</textarea>"
       set correct_answer {}
       append choice_html "<tr><td>$correct_answer</td><td>$choice_answer </td></tr>"	 
       set item_correct 0