Index: openacs-4/packages/cms/www/modules/workspace/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/workspace/index.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/cms/www/modules/workspace/index.tcl	8 Jun 2001 01:44:53 -0000	1.2
+++ openacs-4/packages/cms/www/modules/workspace/index.tcl	22 Aug 2002 03:04:33 -0000	1.3
@@ -11,53 +11,9 @@
 # first part of the where clause gets all assignments for the individual
 # and for any groups to which the individual belongs.
 
+db_multirow items get_workspace_items ""
 
-template::query get_workspace_items items multirow "
-  select
-    types.pretty_name, 
-    obj.object_id item_id, 
-    content_item.get_title(obj.object_id) title,
-    task.task_id,
-    task.holding_user,
-    task.state,
-    assign.case_id, 
-    trans.transition_name, trans.transition_key,
-    to_char(dead.deadline,'Mon. DD, YYYY') deadline,
-    content_workflow.can_reject(task.task_id, :user_id) can_reject,
-    content_workflow.approve_string(task.task_id, :user_id) approve_string
-  from
-    acs_object_types types,
-    acs_objects obj,
-    wf_case_assignments assign,
-    wf_transitions trans, 
-    wf_tasks task,
-    wf_cases case,
-    wf_case_deadlines dead
-  where 
-    dead.case_id = case.case_id
-  and
-    dead.transition_key = task.transition_key
-  and
-    assign.party_id = :user_id
-  and
-    assign.case_id = task.case_id
-  and
-    assign.transition_key = task.transition_key
-  and (
-    task.state = 'enabled'
-    or (task.state = 'started' and task.holding_user = :user_id)
-  ) and
-    task.transition_key = trans.transition_key
-  and
-    assign.case_id = case.case_id
-  and
-    case.object_id = obj.object_id
-  and
-    types.object_type = content_item.get_content_type(obj.object_id)
-  order by
-    dead.deadline"
 
-
 # don't cache this page
 #ns_set put [ns_conn outputheaders] Pragma "No-cache"