Index: openacs-4/contrib/obsolete-packages/acs-workflow/www/admin/cases.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/acs-workflow/www/admin/cases.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/acs-workflow/www/admin/cases.tcl	13 Mar 2001 22:59:27 -0000	1.1
+++ openacs-4/contrib/obsolete-packages/acs-workflow/www/admin/cases.tcl	14 May 2001 23:16:08 -0000	1.2
@@ -105,32 +105,8 @@
     { action "" "" "<td>(<a href=\"case-debug?[export_vars -url {case_id}]\">debug</a>)</td>" }
 }
 
-set sql "
-    select c.case_id, 
-           o.object_type,
-           ot.pretty_name as object_type_pretty,
-           acs_object.name(c.object_id) as object_name, 
-           c.state,
-           jeo.creation_date as started_date,
-           to_char(jeo.creation_date, 'Mon fmDDfm, YYYY HH24:MI:SS') as started_date_pretty,
-           round(sysdate - jeo.creation_date) as age
-    from   wf_cases c, 
-           acs_objects o,
-           acs_object_types ot,
-           journal_entries je,
-           acs_objects jeo
-    where  c.workflow_key = '[db_quote $workflow_key]'
-    and    o.object_id = c.object_id
-    and    ot.object_type = o.object_type
-    and    je.object_id = c.case_id
-    and    je.action = 'case start'
-    and    jeo.object_id = je.journal_id
-    [ad_dimensional_sql $dimensional_list where and]
-    [ad_order_by_from_sort_spec $orderby $table_def]
-"
+set table_html [ad_table -Torderby $orderby -Tmissing_text $missing_text "cases_table" "" $table_def]
 
-set table_html [ad_table -Torderby $orderby -Tmissing_text $missing_text "cases_table" $sql $table_def]
-
 db_release_unused_handles