Index: openacs-4/contrib/packages/simulation/www/siminst/simulation-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/siminst/Attic/simulation-edit.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/contrib/packages/simulation/www/siminst/simulation-edit.tcl	13 Jan 2004 10:17:11 -0000	1.9
+++ openacs-4/contrib/packages/simulation/www/siminst/simulation-edit.tcl	13 Jan 2004 10:58:09 -0000	1.10
@@ -94,7 +94,11 @@
     # Date validation
     set error_p 0
     # All dates need to be in the future
-    foreach date_var {send_start_note_date case_start case_end enroll_start enroll_end} {
+    set dates_to_check {send_start_note_date case_start case_end}
+    if { [string equal $enroll_type "open"] } {
+        lappend dates_to_check enroll_start enroll_end
+    }
+    foreach date_var $dates_to_check {
         if { [clock scan [set $date_var]] < [clock seconds] } {
             template::form::set_error simulation $date_var "The date needs to be in the future"
             set error_p 1