Index: openacs-4/contrib/packages/project-manager/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/index.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/contrib/packages/project-manager/www/index.tcl	12 Sep 2003 21:36:32 -0000	1.9
+++ openacs-4/contrib/packages/project-manager/www/index.tcl	11 Dec 2003 21:39:44 -0000	1.10
@@ -14,6 +14,10 @@
     @return project_term Terminology for projects
     @return project_term_lower Terminology for projects (lower case)
 
+} {
+    orderby_project:optional
+    status_id:optional
+    category_id:optional
 } -properties {
 
     context:onevalue
@@ -54,13 +58,19 @@
 
 # Projects, using list-builder ---------------------------------
 
+
+
+set category_choices [db_list_of_lists gg "select t.name, t.category_id from category_tree_map tm, categories c, category_translations t where c.tree_id = tm.tree_id and c.category_id = t.category_id and tm.object_id = :package_id"]
+
+
+
 template::list::create \
     -name projects \
     -multirow projects \
     -key item_id \
     -elements {
         project_name {
-            label "Subject"
+            label "Project name"
             link_url_col item_url
             link_html { title "View this project version" }
         }
@@ -74,16 +84,50 @@
             label "Hours completed"
             display_template "@projects.actual_hours_completed@/@projects.estimated_hours_total@"
         }
+        category_id {
+            label "Categories"
+            display_template "<group column=\"item_id\"><li>@projects.category_name@</group>"
+        }
     } \
+    -actions {
+        "Tasks" "tasks" "View list of tasks"
+        "Processes" "processes" "View and use processes"
+        "Add project" "add-edit" "Add project"
+        "Admin" "admin/" "Administration pages"
+    } \
     -main_class {
         narrow
     } \
     -filters {
-        orderby_project {}
+        status_id {
+            label "Status"
+            values {[db_list_of_lists get_status "select description, status_id from pm_project_status order by status_type desc, description"]}
+            where_clause {
+                s.status_id = :status_id
+            }
+        }
+        category_id {
+            label "Category"
+            values {$category_choices}
+            where_clause {
+                om.category_id = :category_id
+            }
+        }
     } \
     -orderby {
-        project_name {orderby project_name}
-        default_value project_name,desc
+        default_value category_id,asc
+        project_name {
+            label "Project name"
+            orderby_desc "upper(p.title) desc"
+            orderby_asc "upper(p.title) asc"
+            default_direction asc
+        }
+        category_id {
+            label "Categories"
+            orderby_desc "c.category_name desc"
+            orderby_asc "c.category_name asc"
+            default_direction asc
+        }
     } \
     -orderby_name orderby_project \
     -html {