Index: openacs-4/contrib/packages/simulation/lib/cases.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/lib/Attic/cases.tcl,v
diff -u -N
--- openacs-4/contrib/packages/simulation/lib/cases.tcl	20 Apr 2004 21:12:22 -0000	1.17
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,70 +0,0 @@
-simulation::include_contract {
-    Displays a list of cases for the specified user.
-
-    @author Joel Aufrecht
-    @creation-date 2003-11-12
-    @cvs-id $Id: cases.tcl,v 1.17 2004/04/20 21:12:22 jeffd Exp $
-} {
-    party_id {
-        default_value ""
-    }
-}
-
-set package_id [ad_conn package_id]
-
-set elements {
-    label {
-        label {[_ simulation.Case]}
-        link_url_eval {[export_vars -base "[ad_conn package_url]simplay/case" { case_id role_id }]}
-    }
-    pretty_name {
-        label {[_ simulation.Simulation]}
-    }
-    role_pretty {
-        label {[_ simulation.Role]}
-    }
-    status {
-        label {[_ simulation.Status]}
-    }
-    num_user_tasks {
-        label {[_ simulation.Your_Tasks]}
-        display_template {
-            <if @cases.num_user_tasks@ gt 0>@cases.num_user_tasks@</if>
-        }
-        html { align right }
-    }
-}
-
-template::list::create \
-    -name cases \
-    -multirow cases \
-    -no_data [_ simulation.lt_You_are_not_in_any_ac] \
-    -elements $elements 
-
-db_multirow cases select_cases "
-    select wc.case_id,
-           sc.label,
-           w.pretty_name,
-           case when (select count(*)
-                        from workflow_case_enabled_actions wcea
-                       where wcea.case_id = wc.case_id) = 0 then 'Completed'
-                else 'Active'
-           end as status,
-           r.role_id,
-           r.pretty_name as role_pretty,
-           (select count(distinct wcaa.enabled_action_id)
-            from   workflow_case_assigned_actions wcaa
-            where  wcaa.case_id = wc.case_id
-            and    wcaa.role_id = wcrpm.role_id) as num_user_tasks
-      from workflow_cases wc,
-           sim_cases sc,
-           workflow_case_role_party_map wcrpm,
-           workflows w,
-           workflow_roles r
-     where wcrpm.party_id = :party_id
-       and r.role_id = wcrpm.role_id
-       and wc.case_id = wcrpm.case_id
-       and sc.sim_case_id = wc.object_id
-       and w.workflow_id = wc.workflow_id
-     order by w.pretty_name, sc.label
-"