Index: openacs-4/contrib/packages/project-manager/www/tasks.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/tasks.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/contrib/packages/project-manager/www/tasks.tcl	26 Feb 2004 15:28:34 -0000	1.4
+++ openacs-4/contrib/packages/project-manager/www/tasks.tcl	12 Mar 2004 13:44:45 -0000	1.5
@@ -22,7 +22,7 @@
     {status_id ""}
 } -properties {
     task_term:onevalue
-    context_bar:onevalue
+    context:onevalue
     tasks:multirow
 }
 
@@ -35,7 +35,7 @@
 set project_term_lower [parameter::get -parameter "projectname" -default "project"]
 
 # set up context bar
-set context_bar [ad_context_bar "Tasks"]
+set context [list "Tasks"]
 
 # the unique identifier for this package
 set package_id [ad_conn package_id]
@@ -48,7 +48,7 @@
 
 # status defaults to open
 if {![exists_and_not_null status_id]} {
-    set status_id [project_manager::task::default_status_open]
+    set status_id [pm::task::default_status_open]
 }
 
 # permissions
@@ -78,9 +78,6 @@
             label "Who"
             display_template "<if @tasks.full_name@ nil><font color=\"red\">unassigned</font></if><else>@tasks.full_name@ (@tasks.role@)</else>"
         }
-        description {
-            label "Description"
-        }
         slack_time {
             label "Slack time"
             display_template "<if @tasks.slack_time@ gt 1>@tasks.slack_time@</if><else><font color=\"red\">@tasks.slack_time@</font></else>"
@@ -97,18 +94,16 @@
         }
     } \
     -actions {
-        "Projects" "index" "View list of tasks"
-        "Processes" "processes" "View and use processes"
         "Add task" "task-select-project" "Add a task"
-        "Admin" "admin/" "Administration pages"
     } \
-    -main_class {
+    -sub_class {
         narrow
     } \
     -filters {
         searchterm {
             label "Search"
         }
+
         party_id {
             label "People"
             values {[db_list_of_lists get_people "select distinct(first_names || ' ' || last_name) as fullname, u.person_id from persons u, pm_task_assignment a where u.person_id = a.party_id order by fullname"]}
@@ -121,9 +116,13 @@
             values {[db_list_of_lists get_status_values "select description, status_id from pm_task_status order by status_type desc, description"]}
             where_clause {ts.status = :status_id}
         }
+
+        mine_p {
+            label "Show others' tasks"
+        }
     } \
     -orderby {
-        default_value task_number,asc
+        default_value latest_start_pretty,asc
         task_number {
             label "Task \#"
             orderby_desc "ts.task_number desc"
@@ -187,11 +186,10 @@
     set latest_finish_pretty [lc_time_fmt $latest_finish "%x"]
 
     if {[exists_and_not_null earliest_start_j]} {
-        if {$earliest_start_j < $today_j} {
-            set slack_time "[expr $latest_start_j - $today_j] days"
-        } else {
-            set slack_time "[expr $latest_start_j - $earliest_start_j] days"
-        }
+        set slack_time [pm::task::slack_time \
+                            -earliest_start_j $earliest_start_j \
+                            -today_j $today_j \
+                            -latest_start_j $latest_start_j]
     } else {
         set slack_time "n/a"
     }