Index: openacs-4/contrib/packages/project-manager/www/one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/one.tcl,v
diff -u -r1.26 -r1.27
--- openacs-4/contrib/packages/project-manager/www/one.tcl	10 Oct 2003 22:51:04 -0000	1.26
+++ openacs-4/contrib/packages/project-manager/www/one.tcl	11 Dec 2003 21:39:44 -0000	1.27
@@ -29,6 +29,7 @@
     {orderby_versions ""}
 
 } -properties {
+    categories:onelist
     context_bar:onevalue
     project:multirow
     tasks:multirow
@@ -74,9 +75,24 @@
 set write_p  [permission::permission_p -object_id $package_id -privilege write] 
 set create_p [permission::permission_p -object_id $package_id -privilege create]
 
+# categories
+
+
+set categories [list]
+set cat_list [category::get_mapped_categories $project_item_id]
+foreach cat $cat_list {
+    lappend categories [category::get_name $cat]
+}
+
 db_1row project_query { } -column_array project
 set project_root [db_exec_plsql get_root_folder { }]
 
+set project(planned_start_date) [lc_time_fmt $project(planned_start_date) "%x"]
+set project(planned_end_date)   [lc_time_fmt $project(planned_end_date) "%x"]
+set project(estimated_finish_date) [lc_time_fmt $project(estimated_finish_date) "%x"]
+set project(earliest_finish_date) [lc_time_fmt $project(earliest_finish_date) "%x"]
+set project(latest_finish_date) [lc_time_fmt $project(latest_finish_date) "%x"]
+
 # set up context bar, needs parent_id
 
 if {[string equal $project(parent_id) $project_root]} {
@@ -127,20 +143,20 @@
         }
         earliest_start {
             label "Earliest Start"
-            display_template "@tasks.earliest_start@"
+            display_template "@tasks.earliest_start_pretty@"
         }
         earliest_finish {
             label "Earliest Finish"
-            display_template "@tasks.earliest_finish@"
+            display_template "@tasks.earliest_finish_pretty@"
         }
         latest_start {
             label "Latest Start"
-            display_template "@tasks.latest_start@"
+            display_template "@tasks.latest_start_pretty@"
         }
         latest_finish {
             label "Latest Finish"
             display_template {
-                @tasks.latest_finish@
+                @tasks.latest_finish_pretty@
             }
         }
         last_name {
@@ -176,16 +192,21 @@
         latest_start {orderby latest_start}
         slack_time {orderby slack_time}
         latest_finish {orderby latest_finish}
-        default_value slack_time,asc
+        default_value latest_start,asc
     } \
     -orderby_name orderby_tasks \
     -html {
     }
 
 
-db_multirow -extend { item_url } tasks project_tasks_query {
+db_multirow -extend { item_url earliest_start_pretty earliest_finish_pretty latest_start_pretty latest_finish_pretty} tasks project_tasks_query {
 } {
     set item_url [export_vars -base "task-one" { revision_id task_id}]
+
+    set earliest_start_pretty [lc_time_fmt $earliest_start "%x"]
+    set earliest_finish_pretty [lc_time_fmt $earliest_finish "%x"]
+    set latest_start_pretty [lc_time_fmt $latest_start "%x"]
+    set latest_finish_pretty [lc_time_fmt $latest_finish "%x"]
 }
 
 
@@ -318,6 +339,8 @@
 db_multirow -extend { item_url } versions project_versions {
 } {
     set item_url [export_vars -base "one" -override {{project_item_id $item_id}} {project_item_id}]
+
+    
 }