-
+
-
-
-Task versions
- |
-
-
-
- |
-
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 -N -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 {
@revisions.task_title@@revisions.task_title@}
+ }
+ 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