Index: openacs-4/packages/assessment/www/asm-admin/assessment-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/assessment-new.tcl,v
diff -u -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/assessment/www/asm-admin/assessment-new.tcl	18 Jul 2005 18:04:34 -0000	1.1.2.1
+++ openacs-4/packages/assessment/www/asm-admin/assessment-new.tcl	20 Jul 2005 15:36:13 -0000	1.1.2.2
@@ -33,9 +33,15 @@
 	{value $type}
     }
 } -on_submit {
-    if { ![empty_string_p $permission_p]} {
-	ad_returnredirect [export_vars -base assessment-form {type assessment_id permission_p}]
+    if { [exists_and_not_null assessment_id]} {
+    set new_assessment_rev_id [as::assessment::new_revision -assessment_id $assessment_id]
+    db_dml update_asm { update as_assessments set type=:type where assessment_id=:new_assessment_rev_id}
+    ad_returnredirect [export_vars -base one-a {assessment_id}]
     } else {
-	ad_returnredirect [export_vars -base assessment-form {type assessment_id}]
+	if { ![empty_string_p $permission_p]} {
+	    ad_returnredirect [export_vars -base assessment-form {type assessment_id permission_p}]
+	} else {
+	    ad_returnredirect [export_vars -base assessment-form {type assessment_id}]
+	}
     }
-}
+}
\ No newline at end of file