Index: openacs-4/packages/cms/www/modules/workflow/case-create.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/workflow/case-create.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/cms/www/modules/workflow/case-create.tcl	3 Sep 2001 05:28:28 -0000	1.7
+++ openacs-4/packages/cms/www/modules/workflow/case-create.tcl	22 Aug 2002 00:19:06 -0000	1.8
@@ -21,20 +21,12 @@
 	-request_error
 
 # get a list of users (this should be context-specific)
-template::query get_users users multilist "
-  select 
-    person.name(user_id) name, user_id 
-  from 
-    users 
-  where 
-    user_id > 0 
-  order by 
-    name
-" 
+set users [db_list_of_lists get_users ""]
 
 # Prepare the form elements
 
 set transition_list [list]
+
 template::query::iterate get_name_key  "
   select 
     transition_name, transition_key 
Index: openacs-4/packages/cms/www/modules/workflow/case-status.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/workflow/case-status.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/cms/www/modules/workflow/case-status.tcl	20 Aug 2002 11:17:31 -0000	1.3
+++ openacs-4/packages/cms/www/modules/workflow/case-status.tcl	22 Aug 2002 00:19:06 -0000	1.4
@@ -31,13 +31,7 @@
 
   set case_id $caseinfo(case_id)
 
-  template::query get_transinfo transinfo onerow "select k.transition_key, k.task_id, t.transition_name,
-             k.holding_user, 
-             content_workflow.get_holding_user_name(k.task_id) hold_name
-             from wf_tasks k, wf_transitions t
-	     where k.case_id = :case_id 
-             and k.state in ('enabled', 'started')
-             and k.transition_key = t.transition_key"
+  db_0or1row get_transinfo "" -column_array transinfo
 
   # Determine whether the current user is assigned to the active transition
 
@@ -46,18 +40,11 @@
     set user_id [User::getID]
     set transition_key $transinfo(transition_key)
 
-    template::query get_status is_assigned onevalue "select decode(count(*), 0, 'no', 'yes')
-               from wf_case_assignments
-               where case_id = :case_id 
-               and transition_key = :transition_key 
-               and party_id = :user_id"
+    set is_assigned [db_string get_status ""]
 
     # if eligible, add a link to complete this task
     if { $is_assigned } {
-      template::query get_deadline deadlline onevalue "select to_char(deadline, 'DD MON') deadline 
-		 from wf_case_deadlines 
-		 where case_id = :case_id 
-                 and transition_key = :transition_key"
+        set deadline [db_string get_deadline ""]
     }
   }
 }