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.28 -r1.29
--- openacs-4/packages/assessment/tcl/as-qti-procs.tcl	18 Feb 2005 16:33:37 -0000	1.28
+++ openacs-4/packages/assessment/tcl/as-qti-procs.tcl	22 Feb 2005 15:20:00 -0000	1.29
@@ -306,7 +306,11 @@
 					# Process the items
 					set as_items [as::qti::parse_item $section [file dirname $xmlfile]]
 					# Relation between as_items and as_sections
-					foreach as_item_id $as_items {
+					foreach as_item_list $as_items {
+					    array set as_item $as_item_list
+					    set as_item_id $as_item(as_item_id)
+					    set as_item__duration $as_item(duration)
+					    set as_item__points $as_item(points)
 					    db_dml as_item_section_map_insert {}
 					    incr as_item_section_map__sort_order
 					}
@@ -603,7 +607,10 @@
 		as::item_rels::new -item_rev_id $as_item_id -target_rev_id $as_item_type_id -type as_item_type_rel
 		# set the relation between as_items and as_item_display tables
 		as::item_rels::new -item_rev_id $as_item_id -target_rev_id $as_item_display_id -type as_item_display_rel
-		lappend as_items $as_item_id
+		set as_item(as_item_id) $as_item_id
+		set as_item(points) $as_items__points
+		set as_item(duration) $as_items__duration
+		lappend as_items [array get as_item]
 	    } else {
 		set response_lidNodes [$presentation selectNodes {.//response_lid}]
 		# The first node of the list. It may not be a good idea if it doesn't exist
@@ -656,7 +663,10 @@
 		as::item_rels::new -item_rev_id $as_item_id -target_rev_id $as_item_type_id -type as_item_type_rel
 		# set the relation between as_items and as_item_display tables
 		as::item_rels::new -item_rev_id $as_item_id -target_rev_id $as_item_display_id -type as_item_display_rel
-		lappend as_items $as_item_id
+		set as_item(as_item_id) $as_item_id
+		set as_item(points) $as_items__points
+		set as_item(duration) $as_items__duration
+		lappend as_items [array get as_item]
 		# <response_label> (each choice)
 		set response_labelNodes [$presentation selectNodes {.//response_label}]
 		foreach response_label $response_labelNodes {
Index: openacs-4/packages/assessment/tcl/as-qti-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-qti-procs.xql,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/assessment/tcl/as-qti-procs.xql	18 Feb 2005 15:51:07 -0000	1.4
+++ openacs-4/packages/assessment/tcl/as-qti-procs.xql	22 Feb 2005 15:20:00 -0000	1.5
@@ -10,8 +10,8 @@
 
 	<fullquery name="as::qti::parse_qti_xml.as_item_section_map_insert">
 		<querytext>
-			INSERT INTO as_item_section_map (as_item_id, section_id, sort_order) 
-			VALUES (:as_item_id, :section_id, :as_item_section_map__sort_order)
+			INSERT INTO as_item_section_map (as_item_id, section_id, sort_order, points, max_time_to_complete) 
+			VALUES (:as_item_id, :section_id, :as_item_section_map__sort_order, :as_item__points, :as_item__duration)
             </querytext>
         </fullquery>