Index: openacs-4/contrib/packages/project-manager/www/task-one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/task-one.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/contrib/packages/project-manager/www/task-one.tcl	7 Aug 2003 23:08:45 -0000	1.8
+++ openacs-4/contrib/packages/project-manager/www/task-one.tcl	8 Aug 2003 19:13:53 -0000	1.9
@@ -19,19 +19,16 @@
 } {
     task_id:integer,optional
     task_revision_id:integer,optional
+    orderby:optional
 
 } -properties {
+    task_info:onerow
     project_item_id:onevalue
     project_id:onevalue
     context_bar:onevalue
-    task_title:onevalue
-    description:onevalue
-    start_date:onevalue
-    end_date:onevalue
-    percent_complete:onevalue
     write_p:onevalue
     create_p:onevalue
-    versions:multirow
+    revisions:multirow
     consts:multirow
     task_term:onevalue
     task_term_lower:onevalue
@@ -76,10 +73,57 @@
 set create_p [permission::permission_p -object_id $package_id -privilege create]
 
 
-db_1row task_query { }
+db_1row task_query { } -column_array task_info
 
-db_multirow versions task_revisions_query { }
+# Trying to show the task revisions with list-builder
 
+template::list::create \
+    -name revisions \
+    -multirow revisions \
+    -key revision_id \
+    -elements {
+        revision_id {
+            label "Subject"
+            display_col task_title
+            link_url_col item_url
+            link_html { title "View this revision" }
+            display_template {<if @revisions.live_revision@ eq @revisions.revision_id@><B>@revisions.task_title@</B></if><else>@revisions.task_title@</else>}
+        }
+        description {
+            label "Description"
+        }
+        percent_complete {
+            label "Status"
+            display_template "@revisions.percent_complete@\%"
+        }
+        start_date {
+            label "Start date"
+        }
+        end_date {
+            label "End date"
+        }
+    } \
+    -orderby {
+        revision_id {orderby revision_id}
+        percent_complete {orderby percent_complete}
+        start_date {orderby start_date}
+        end_date {orderby end_date}
+    } \
+    -filters {
+        task_revision_id
+    }
+
+if {[exists_and_not_null orderby]} {
+    set orderby_clause "ORDER BY [template::list::orderby_clause -name revisions]"
+} else {
+    set orderby_clause "ORDER BY revision_id desc"
+}
+
+db_multirow -extend { item_url } revisions task_revisions_query {
+} {
+    set item_url [export_vars -base "task-one" -override {{task_revision_id $revision_id}} -exclude {revision_id} { revision_id task_id}]
+}
+
 db_multirow consts consts_query { }
 
 ad_return_template