Index: openacs-4/packages/assessment/tcl/as-item-type-oq-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-item-type-oq-procs.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/assessment/tcl/as-item-type-oq-procs.tcl	7 Jan 2005 16:10:44 -0000	1.11
+++ openacs-4/packages/assessment/tcl/as-item-type-oq-procs.tcl	19 Jan 2005 16:49:14 -0000	1.12
@@ -21,7 +21,7 @@
 
     # Insert as_item_type_oq in the CR (and as_item_type_oq table) getting the revision_id (as_item_type_id)
     db_transaction {
-        set item_item_type_oq_id [content::item::new -parent_id $folder_id -content_type {as_item_type_oq} -name [exec uuidgen] -title $title ]
+        set item_item_type_oq_id [content::item::new -parent_id $folder_id -content_type {as_item_type_oq} -name [exec uuidgen]]
         set as_item_type_oq_id [content::revision::new \
 				-item_id $item_item_type_oq_id \
 				-content_type {as_item_type_oq} \
@@ -108,15 +108,17 @@
     -type_id:required
     -session_id:required
     -as_item_id:required
+    -section_id:required
     -subject_id:required
     {-staff_id ""}
     {-response ""}
     {-max_points 0}
+    {-allow_overwrite_p t}
 } {
     @author Timo Hentschel (timo@timohentschel.de)
     @creation-date 2004-12-11
 
     Process a Response to an Open Question Type
 } {
-    as::item_data::new -session_id $session_id -subject_id $subject_id -staff_id $staff_id -as_item_id $as_item_id -clob_answer [lindex $response 0] -points ""
+    as::item_data::new -session_id $session_id -subject_id $subject_id -staff_id $staff_id -as_item_id $as_item_id -section_id $section_id -clob_answer [lindex $response 0] -points "" -allow_overwrite_p $allow_overwrite_p
 }