Index: openacs-4/contrib/packages/project-manager/www/add-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/add-edit.tcl,v
diff -u -r1.18 -r1.19
--- openacs-4/contrib/packages/project-manager/www/add-edit.tcl	3 Jun 2004 21:32:03 -0000	1.18
+++ openacs-4/contrib/packages/project-manager/www/add-edit.tcl	13 Jan 2005 13:54:36 -0000	1.19
@@ -80,8 +80,6 @@
 
 }
 
-ns_log Notice "Logger values: $logger_values"
-
 ad_form -name add_edit \
     -form {
         project_id:key
@@ -114,19 +112,20 @@
             {options {{"--- TBD ---" ""} [db_list_of_lists get_customer "select o.name, o.organization_id from organizations o order by o.name"]}}
         }
 
-        {planned_start_date:date,to_sql(linear_date)
+        {planned_start_date:text(text)
             {label "Starts"}
-            {value $planned_start_date}
-            {today}
-            {help}
+	    {html {id sel1}}
+	    {after_html {<input type='reset' value=' ... ' onclick=\"return showCalendar('sel1', 'y-m-d');\"> \[<b>y-m-d </b>\]
+	    }}
         }
         
-        {planned_end_date:date,to_sql(linear_date) 
+        {planned_end_date:text(text) 
             {label "Deadline"}
-            {value $planned_end_date}
-            {today}
-            {help}
+	    {html {id sel2}}
+	    {after_html {<input type='reset' value=' ... ' onclick=\"return showCalendar('sel2', 'y-m-d');\"> \[<b>y-m-d </b>\]
+	    }}
         }
+
         
         {ongoing_p:text(select)
             {label "Project is ongoing?"}
@@ -206,9 +205,13 @@
         }
 
         set planned_end_date [util::date acquire clock [clock scan $planned_end_date]]
-
+        set planned_end_date "[lindex $planned_end_date 0]-[lindex $planned_end_date 1]-[lindex $planned_end_date 2]"
         set planned_start_date [util::date acquire clock [clock scan $planned_start_date]]
-        
+       set planned_start_date "[lindex $planned_start_date 0]-[lindex $planned_start_date 1]-[lindex $planned_start_date 2]"
+	
+	
+	 
+
     } \
     -new_data {
 
@@ -266,7 +269,7 @@
         # the new revision will not have any of the custom values in
         # it until it is edited. So we need to pull in these values
         set old_project_id $project_id
-        
+
         set project_id [pm::project::edit \
                             -project_item_id $project_item_id \
                             -project_name $project_name \
@@ -308,11 +311,15 @@
         if {$use_project_customizations_p} {
             # warn of current bug so users can work around it
             ad_returnredirect -message "You must submit changes on this page or you will lose any data on this page" "add-edit-2?[export_url_vars project_id old_project_id]"
-            pm::project::compute_parent_status $project_item_id
+            # to add back in subproject support, should use
+            # compute_parent_status
+            pm::project::compute_status $project_item_id
             ad_script_abort
         } else {
             ad_returnredirect -message "Changes to project saved" "one?[export_url_vars project_id]"
-            pm::project::compute_parent_status $project_item_id
+            # to add back in subproject support, should use
+            # compute_parent_status
+            pm::project::compute_status $project_item_id
             ad_script_abort
         }
 }