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.13 -r1.14 --- openacs-4/packages/assessment/tcl/as-qti-procs.tcl 8 Dec 2004 15:30:34 -0000 1.13 +++ openacs-4/packages/assessment/tcl/as-qti-procs.tcl 16 Dec 2004 09:27:17 -0000 1.14 @@ -220,7 +220,7 @@ # we need the size of textarea (values of rows and cols) set html "rows $rows cols $cols" # insert as_item_display_ta in the CR (and in the as_item_display_ta table) getting the revision_id (item_display_id) - set as_item_display_id [as::item_display_ta::new -abs_size $html] + set as_item_display_id [as::item_display_ta::new -html_display_options $html] foreach node $presentationChildNodes { # get the title of item if {[$node nodeName] == {material}} { Index: openacs-4/packages/assessment/www/session.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/session.tcl,v diff -u -r1.22 -r1.23 --- openacs-4/packages/assessment/www/session.tcl 8 Dec 2004 15:30:34 -0000 1.22 +++ openacs-4/packages/assessment/www/session.tcl 16 Dec 2004 09:27:18 -0000 1.23 @@ -108,8 +108,8 @@ if {[string compare $presentation_type "textarea"] == 0} { set text_answer {} #get rows and cols for painting a textarea (in abs_size is stored as "rows value cols value", we need to add the symbol =) - db_0or1row html_rows_cols "SELECT abs_size FROM as_item_display_ta WHERE as_item_display_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 html_rows_cols "SELECT html_display_options FROM as_item_display_ta WHERE as_item_display_id=:item_display_id" + set html_options "[lindex $html_display_options 0]=[lindex $html_display_options 1] [lindex $html_display_options 2]=[lindex $html_display_options 3]" #get the user response db_0or1row shortanswer {} #paint a disabled textarea with the user response Index: openacs-4/packages/assessment/www/admin/export/index.vuh =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/export/Attic/index.vuh,v diff -u -r1.1 -r1.2 --- openacs-4/packages/assessment/www/admin/export/index.vuh 3 Dec 2004 10:24:23 -0000 1.1 +++ openacs-4/packages/assessment/www/admin/export/index.vuh 16 Dec 2004 09:27:18 -0000 1.2 @@ -213,9 +213,9 @@ $response_str setAttribute rtiming "No" $flow appendChild $response_str #get rows and cols for painting a textarea (in abs_size is stored as "rows value cols value", we need to add the symbol =) - db_0or1row html_rows_cols "SELECT abs_size FROM as_item_display_tax WHERE item_id=:item_display_id" - set rows "[lindex $abs_size 1]" - set columns "[lindex $abs_size 3]" + db_0or1row html_rows_cols "SELECT html_display_options FROM as_item_display_tax WHERE item_id=:item_display_id" + set rows "[lindex $html_display_options 1]" + set columns "[lindex $html_display_options 3]" # set render_fib [$doc createElement render_fib] $render_fib setAttribute fibtype "String"