Index: openacs-4/packages/assessment/tcl/as-callback-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-callback-procs.tcl,v diff -u -r1.1.2.7 -r1.1.2.8 --- openacs-4/packages/assessment/tcl/as-callback-procs.tcl 17 Nov 2005 15:41:46 -0000 1.1.2.7 +++ openacs-4/packages/assessment/tcl/as-callback-procs.tcl 21 Nov 2005 09:17:57 -0000 1.1.2.8 @@ -141,7 +141,7 @@ -package_id $package_id \ -type $type ] -ns_log Notice "package_id: $package_id" + #get sections data set sections_id_list [db_list get_sections_id_list {}] #asociate section with assessment @@ -151,6 +151,7 @@ db_1row get_section_data {} db_dml map_ass_sections {} } + return $new_assessment_id }