Index: openacs-4/contrib/obsolete-packages/acs-workflow/www/task-list-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/acs-workflow/www/task-list-oracle.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/obsolete-packages/acs-workflow/www/task-list-oracle.xql	14 May 2001 03:55:24 -0000	1.1
@@ -0,0 +1,42 @@
+<?xml version="1.0"?>
+<queryset>
+   <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
+
+<partialquery name="select_list">      
+      <querytext>
+      
+
+    "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"
+
+
+      </querytext>
+</partialquery>
+
+<partialquery name="decode_privilege">      
+      <querytext>
+
+        decode(wcti.access_privilege,'','t',acs_permission.permission_p(c.object_id, :user_id, wcti.access_privilege)) = 't'
+
+      </querytext>
+</partialquery>
+ 
+</queryset>
Index: openacs-4/contrib/obsolete-packages/acs-workflow/www/task-list-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/acs-workflow/www/task-list-postgresql.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/obsolete-packages/acs-workflow/www/task-list-postgresql.xql	14 May 2001 03:55:24 -0000	1.1
@@ -0,0 +1,41 @@
+<?xml version="1.0"?>
+<queryset>
+   <rdbms><type>postgresql</type><version>7.1</version></rdbms>
+
+<partialquery name="select_list">      
+      <querytext>
+      
+
+   "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 - now() 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,
+    now(),
+    t.estimated_minutes,
+    '' as task_url"
+
+      </querytext>
+</partialquery>
+
+<partialquery name="decode_privilege">      
+      <querytext>
+
+       (case when wcti.access_privilege = '' then 't' else acs_permission__permission_p(c.object_id, :user_id, wcti.access_privilege) end) = 't'
+
+      </querytext>
+</partialquery>
+ 
+</queryset>
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}