Index: openacs-4/contrib/packages/project-manager/catalog/project-manager.en_US.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/catalog/Attic/project-manager.en_US.ISO-8859-1.xml,v
diff -u -r1.1.2.11 -r1.1.2.12
--- openacs-4/contrib/packages/project-manager/catalog/project-manager.en_US.ISO-8859-1.xml 14 Jun 2005 20:45:20 -0000 1.1.2.11
+++ openacs-4/contrib/packages/project-manager/catalog/project-manager.en_US.ISO-8859-1.xml 16 Jun 2005 20:34:01 -0000 1.1.2.12
@@ -40,6 +40,8 @@
Attach a file?
Average
back to admin page
+ Bad Deadline
+ Please enter your deadline in yyyy-mm-dd format
Cancel
Cancel, do not delete
Categories
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 -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]