Index: openacs-4/contrib/obsolete-packages/acs-workflow/tcl/workflow-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/acs-workflow/tcl/workflow-procs.tcl,v diff -u -r1.7 -r1.8 --- openacs-4/contrib/obsolete-packages/acs-workflow/tcl/workflow-procs.tcl 24 Dec 2001 02:50:17 -0000 1.7 +++ openacs-4/contrib/obsolete-packages/acs-workflow/tcl/workflow-procs.tcl 10 Jan 2002 01:56:39 -0000 1.8 @@ -165,8 +165,8 @@
- The values for the keys journal, attributes_to_set and
- assigned_users
are themselves Tcl lists of [array
+ The values for the keys
journal, attributes_to_set and assigned_users
+ are themselves Tcl lists of [array
get]
repesentations. For the journal entry, see wf_journal
.
@@ -282,7 +282,6 @@
and p.party_id = ut.user_id
}
-
set user_id [ad_get_user_id]
if { [string equal $task(state) enabled] } {
set task(this_user_is_assigned_p) [db_string this_user_is_assigned_p {
@@ -299,7 +298,30 @@
return [array get task]
}
+ad_proc -public wf_task_panels {
+ -task_id:required
+ -action:boolean
+ {-user_id 0}
+} {
+ Get the panels for a task in [array get]
format. Action
+ panels follow non-action panels. These could be returned by wf_task_info
+ in the future with a little rewriting of the workflow pages.
+
+ @param task_id The task in question
+ @param action Only return action panels
+ @param user_id Return "show only when task started" panels for this user
+
+ @author Don Baccus (dhogaza@pacifier.com)
+} {
+ if { $action_p } {
+ db_multirow panels action_panels ""
+ } else {
+ db_multirow panels all_panels ""
+ }
+ return [array get panels]
+}
+
ad_proc -public wf_journal {
{-date_format "Mon fmDDfm, YYYY HH24:MI:SS"}
{-order latest_first}