Index: openacs-4/packages/assessment/www/asm-admin/assessment-form.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/assessment-form.tcl,v
diff -u -r1.9.2.3 -r1.9.2.4
--- openacs-4/packages/assessment/www/asm-admin/assessment-form.tcl	18 Jul 2005 22:25:08 -0000	1.9.2.3
+++ openacs-4/packages/assessment/www/asm-admin/assessment-form.tcl	19 Jul 2005 15:57:12 -0000	1.9.2.4
@@ -9,6 +9,7 @@
     {permission_p 0}
     {edit_p:optional "0"}
     {type ""}
+    {after "0"}
 } -properties {
     context:onevalue
     page_title:onevalue
@@ -47,7 +48,7 @@
 ##    {exit_page:text,optional,nospell {label "[_ assessment.Exit_Page]"} {html {size 50 maxlength 50}} {help_text "[_ assessment.as_Exit_Page_help]"}}
 
 
-ad_form -name assessment_form -export permission_p -action assessment-form -form {
+ad_form -name assessment_form -export {permission_p after} -action assessment-form -form {
     {assessment_id:key}
 }
 
@@ -170,7 +171,7 @@
     set section_navigation "default path"
 } -edit_request {
     db_1row assessment_data {}
-
+    
     if {![empty_string_p $start_time]} {
 	set start_time [util::date::acquire ansi $start_time]
     }
@@ -237,6 +238,22 @@
 	if {![empty_string_p $end_time]} {
 	    db_dml update_end_time {}
 	}
+	if { $type } {
+	    db_transaction {
+		set new_assessment_rev_id [as::assessment::new_revision -assessment_id $assessment_id]
+		
+		set new_section_id [as::section::new -title [_ assessment.survey_section] ]
+		
+		db_dml move_down_sections {}
+		set sort_order [expr $after + 1]
+		db_dml add_section_to_assessment {}
+		
+		if {[exists_and_not_null category_ids]} {
+		    category::map_object -object_id $new_section_id $category_ids
+		}
+	    }
+	}
+	
     }
 } -edit_data {
     db_transaction {