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.35.2.8 -r1.35.2.9
--- openacs-4/packages/assessment/tcl/as-qti-procs.tcl	6 May 2006 15:52:56 -0000	1.35.2.8
+++ openacs-4/packages/assessment/tcl/as-qti-procs.tcl	10 May 2006 14:58:55 -0000	1.35.2.9
@@ -250,7 +250,7 @@
 		
 		# Section
 		set sectionNodes [$assessment selectNodes {section}]
-		set as_assessment_section_map__sort_order 0
+		set as_asmt_sect_map__sort_order 0
 		foreach section $sectionNodes {					
 		    set as_sections__title [$section getAttribute {title} {Section}]
 		    set as_sections__ident [$section getAttribute {ident} {Section}]
@@ -377,9 +377,15 @@
 					-display_type_id $display_type_id]
 		    
 		    # Relation between as_sections and as_assessments
+ns_log debug "
+DB --------------------------------------------------------------------------------
+DB DAVE debugging procedure as::qti::parse_qti_xml
+DB --------------------------------------------------------------------------------
+
+DB --------------------------------------------------------------------------------"
 		    db_dml as_assessment_section_map_insert {}
-		    incr as_assessment_section_map__sort_order
-		    set as_item_section_map__sort_order 0
+		    incr as_asmt_sect_map__sort_order
+		    set as_item_sect_map__sort_order 0
 		    # Process the items
 		    set as_items [as::qti::parse_item $section [file dirname $xmlfile]]
 		    # Relation between as_items and as_sections
@@ -390,7 +396,7 @@
 			set as_item__points $as_item(points)
 			set as_item__required_p $as_item(required_p)
 			db_dml as_item_section_map_insert {}
-			incr as_item_section_map__sort_order
+			incr as_item_sect_map__sort_order
 		    }
 		    
 		    #get points from a section