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.11 -r1.12
--- openacs-4/packages/assessment/tcl/assessment-qti-procs.tcl	3 Jun 2004 16:29:47 -0000	1.11
+++ openacs-4/packages/assessment/tcl/assessment-qti-procs.tcl	23 Jun 2004 13:12:58 -0000	1.12
@@ -45,7 +45,7 @@
 					}
 				}
 				# assessment_id
-				set as_assessments__assessment_id [expr [db_exec_plsql as_assessments_assessment_id {}] + 1]
+				set as_assessments__assessment_id [db_nextval acs_object_id_seq]
 				# Insert assessment in the as_assessments table
 				db_dml as_assessments_insert {}
 				# Section
@@ -64,7 +64,7 @@
 							}
 						}
 					}
-					set as_sections__section_id [expr [db_exec_plsql as_sections_section_id {}] + 1]
+					set as_sections__section_id [db_nextval acs_object_id_seq]
 					# Insert section in the as_sections table
 					db_dml as_sections_insert {}
 					# Relation between as_sections and as_assessments