Index: openacs-4/contrib/obsolete-packages/acs-workflow/www/task-list.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/acs-workflow/www/task-list.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/acs-workflow/www/task-list.tcl	13 Mar 2001 22:59:27 -0000	1.1
+++ openacs-4/contrib/obsolete-packages/acs-workflow/www/task-list.tcl	14 May 2001 03:55:24 -0000	1.2
@@ -20,28 +20,7 @@
 
 set user_id [ad_get_user_id]
 
-set select {
-    {t.task_id} 
-    {t.case_id} 
-    {t.transition_key} 
-    {t.enabled_date} 
-    {to_char(t.enabled_date, :date_format) as enabled_date_pretty}
-    {t.started_date}
-    {to_char(t.started_date, :date_format) as started_date_pretty}
-    {t.deadline}
-    {to_char(t.deadline, :date_format) as deadline_pretty}
-    {t.deadline - sysdate as days_till_deadline}
-    {t.state} 
-    {c.object_id} 
-    {ot.object_type as object_type}
-    {ot.pretty_name as object_type_pretty} 
-    {acs_object.name(c.object_id) as object_name}
-    {c.workflow_key}
-    {wft.pretty_name as workflow_name}
-    {sysdate}
-    {t.estimated_minutes}
-    {'' as task_url}
-}
+set select [db_map select_list]
 set from {
     {wf_cases c} 
     {acs_objects o} 
@@ -66,7 +45,7 @@
         lappend where {not exists (select 1 from wf_task_assignments tas where tas.task_id = t.task_id)}
         lappend where {t.state = 'enabled'}
         lappend where {c.state = 'active'}
-        lappend where {decode(wcti.access_privilege,'','t',acs_permission.permission_p(c.object_id, :user_id, wcti.access_privilege)) = 't'}
+        lappend where [db_map decode_privilege]
         lappend where {wcti.context_key = c.context_key}
         lappend where {wcti.workflow_key = tr.workflow_key}
         lappend where {wcti.transition_key = tr.transition_key}