Index: openacs-4/packages/assessment/www/admin/assessment-form.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/assessment-form.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/assessment/www/admin/assessment-form.tcl	14 Jan 2005 13:12:10 -0000	1.7
+++ openacs-4/packages/assessment/www/admin/assessment-form.tcl	18 Jan 2005 12:42:37 -0000	1.8
@@ -147,7 +147,12 @@
 	    category::map_object -object_id $assessment_rev_id $category_ids
 	}
 
-	db_dml update_time {}
+	if {![empty_string_p $start_time]} {
+	    db_dml update_end_time {}
+	}
+	if {![empty_string_p $end_time]} {
+	    db_dml update_end_time {}
+	}
     }
 } -edit_data {
     db_transaction {
@@ -177,7 +182,12 @@
 	    category::map_object -object_id $assessment_rev_id $category_ids
 	}
 
-	db_dml update_time {}
+	if {![empty_string_p $start_time]} {
+	    db_dml update_end_time {}
+	}
+	if {![empty_string_p $end_time]} {
+	    db_dml update_end_time {}
+	}
     }
 } -after_submit {
     ad_returnredirect [export_vars -base one-a {assessment_id}]