Index: openacs-4/contrib/packages/project-manager/www/task-add-edit-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/task-add-edit-2.tcl,v
diff -u -N -r1.1.2.14 -r1.1.2.15
--- openacs-4/contrib/packages/project-manager/www/task-add-edit-2.tcl	15 Jun 2005 16:40:15 -0000	1.1.2.14
+++ openacs-4/contrib/packages/project-manager/www/task-add-edit-2.tcl	16 Jun 2005 20:34:02 -0000	1.1.2.15
@@ -68,6 +68,11 @@
 
 foreach i $number {
 
+    #validate date
+    if { ![regexp {^\d{4}(\-)\d{1,2}(\-)\d{1,2}$} $date] } {
+        ad_return_error [_ project-manager.Bad_deadline] [_ project-manager.Bad_deadline_message]
+    }
+
     set date_$i [split [lindex $date [expr $i-1]] "-"]
     set end_date_${i}(day)    [lindex [set date_$i] 2]
     set end_date_${i}(month)  [lindex [set date_$i] 1]