Index: openacs-4/packages/simulation/www/siminst/simulation-enrollment.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/siminst/Attic/simulation-enrollment.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/simulation/www/siminst/simulation-enrollment.tcl	9 Jan 2004 14:40:03 -0000	1.4
+++ openacs-4/packages/simulation/www/siminst/simulation-enrollment.tcl	12 Jan 2004 09:23:10 -0000	1.5
@@ -39,13 +39,13 @@
 
     # Default values
     set one_month [expr 3600*24*31]
+    set one_week [expr 3600*24*7]
 
-    # TODO: provide more sensible default dates?
     if { [empty_string_p $enroll_start] } {
-        set enroll_start [clock format [expr [clock seconds] + 1*$one_month] -format "%Y-%m-%d"]
+        set enroll_start [clock format [expr [clock seconds]] -format "%Y-%m-%d"]
     }
     if { [empty_string_p $enroll_end] } {
-        set enroll_end [clock format [expr [clock seconds] + 2*$one_month] -format "%Y-%m-%d"]
+        set enroll_end [clock format [expr [clock seconds] + 2*$one_week] -format "%Y-%m-%d"]
     }
     if { [empty_string_p $enroll_type] } {
         set enroll_type "closed"