Index: openacs-4/packages/assessment/tcl/as-item-answer-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-item-answer-procs.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/assessment/tcl/as-item-answer-procs.tcl 22 Nov 2004 11:59:22 -0000 1.3 +++ openacs-4/packages/assessment/tcl/as-item-answer-procs.tcl 19 Jan 2005 16:49:14 -0000 1.4 @@ -26,7 +26,7 @@ # Insert as_item_answer in the CR (and as_item_sa_answers table) getting the revision_id (as_item_answer_id) db_transaction { - set item_answer_id [content::item::new -parent_id $folder_id -content_type {as_item_choices} -name [exec uuidgen] -title $title ] + set item_answer_id [content::item::new -parent_id $folder_id -content_type {as_item_choices} -name [exec uuidgen]] set as_item_answer_id [content::revision::new \ -item_id $item_answer_id \ -content_type {as_item_answers} \