Index: openacs-4/packages/assessment/www/asm-admin/change-timing.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/change-timing.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/assessment/www/asm-admin/change-timing.tcl	9 Nov 2006 13:01:09 -0000	1.3
+++ openacs-4/packages/assessment/www/asm-admin/change-timing.tcl	27 Oct 2014 16:41:00 -0000	1.4
@@ -4,7 +4,7 @@
     @author Malte Sussdorff (malte.sussdorff@cognovis.de)
     @author cognovis www.cognovis.de
 } {
-    assessment_id:multiple
+    assessment_id:naturalnum,multiple
     {return_url "index"}
 }
 
@@ -36,17 +36,17 @@
     }
 } -on_submit {
 
-    if {[db_type] == "postgresql"} {
+    if {[db_type] eq "postgresql"} {
 	regsub -all -- {to_date} $start_time {to_timestamp} start_time
 	regsub -all -- {to_date} $end_time {to_timestamp} end_time
     }
     
     foreach assessment $assessment_id {
 	set assessment_rev_id [content::item::get_latest_revision -item_id $assessment]
-	if {![empty_string_p $start_time]} {
+	if {$start_time ne ""} {
 	    db_dml update_start_time {}
 	}
-	if {![empty_string_p $end_time]} {
+	if {$end_time ne ""} {
 	    db_dml update_end_time {}
 	}
     }