Index: openacs-4/packages/assessment/tcl/assessment-qti-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/Attic/assessment-qti-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/assessment/tcl/assessment-qti-procs.tcl	31 May 2004 14:24:51 -0000	1.3
+++ openacs-4/packages/assessment/tcl/assessment-qti-procs.tcl	31 May 2004 14:25:59 -0000	1.4
@@ -78,17 +78,14 @@
 					# shortanswer (textarea)
 					set as_item__display_type_id 1
 				}
-				#db_dml as_item_insert {insert into as_items (item_id, item_display_type_id, name, item_text) values (:item_id, :as_item__display_type_id, :as_items__name, :as_items__item_text)}
 				db_dml as_item_insert {}
 				foreach node $nodeNodes {
 					if {[$node nodeName] == {material}} {
 						set mattextNodes [$node selectNodes {mattext/text()}]
 						set mattext [lindex $mattextNodes 0]
 						set as_item_choices__choice_text [$mattext nodeValue]
 						set choice_id [db_nextval acs_object_id_seq]
-						#db_dml as_item_choice_insert {insert into as_item_choices (choice_id, name, choice_text) values (:choice_id, :as_item_choices__choice_text, :as_item_choices__choice_text)}
 						db_dml as_item_choice_insert {}
-						#db_dml as_item_choice_map_insert {insert into as_item_choice_map (item_id, choice_id, sort_order) values (:item_id, :choice_id, :sort_order)}
 						db_dml as_item_choice_map_insert {}
 						# order of the item_choices
 						incr sort_order
@@ -106,7 +103,6 @@
 					# multiple response either text (remember it can be internationalized or changed), images, sounds, videos
 					set as_item__display_type_id 3
 				}
-				#db_dml as_item_insert {insert into as_items (item_id, item_display_type_id, name, item_text) values (:item_id, :as_item__display_type_id, :as_items__name, :as_items__item_text)}
 				db_dml as_item_insert {}
 				set response_labelNodes [$presentation selectNodes {.//response_label}]
 				foreach response_label $response_labelNodes {
@@ -115,9 +111,7 @@
 						set as_item_choices__choice_text [$mattext nodeValue]
 					}
 					set choice_id [db_nextval acs_object_id_seq]
-					#db_dml as_item_choice_insert {insert into as_item_choices (choice_id, name, choice_text) values (:choice_id, :as_item_choices__choice_text, :as_item_choices__choice_text)}
 					db_dml as_item_choice_insert {}
-					#db_dml as_item_choice_map_insert {insert into as_item_choice_map (item_id, choice_id, sort_order) values (:item_id, :choice_id, :sort_order)}
 					db_dml as_item_choice_map_insert {}
 					# order of the item_choices
 					incr sort_order