Index: openacs-4/contrib/packages/simulation/lib/messages.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/lib/Attic/messages.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/packages/simulation/lib/messages.tcl	18 Nov 2003 09:44:30 -0000	1.1
+++ openacs-4/contrib/packages/simulation/lib/messages.tcl	16 Dec 2003 14:16:28 -0000	1.2
@@ -5,23 +5,28 @@
     @creation-date 2003-11-12
     @cvs-id $Id$
 } {
-    party_id {
+    user_id {
         default_value ""
     }
 }
 
 set package_id [ad_conn package_id]
 
 set elements {
+    case_name {
+        label "Case"
+    }
+    from {
+        label "From"
+    }
     subject {
+        link_url_col
+        message_url
         label "Subject"
     }
     date {
         label "Date"
     }
-    from {
-        label "From"
-    }
     attachment_count {
         label "Attachments"
     }
@@ -33,8 +38,11 @@
     -no_data "You don't have any messages." \
     -elements $elements 
 
-db_multirow messages select_messages "
-    select title as subject,
+# TODO: make case_name be a combo of simulation name and case #
+db_multirow -extend { message_url } messages select_messages "
+    select sm.message_id,
+           sm.title as subject,
+           sm.case_id as case_name,
            creation_date as date,
            (select p.first_names || ' ' || p.last_name
               from persons p
@@ -43,5 +51,12 @@
               from cr_item_rels
              where item_id = item_id
                and relation_tag = 'attachment') as  attachment_count
-      from sim_messagesi
-"
\ No newline at end of file
+      from sim_messagesx sm,
+           workflow_case_role_party_map wcrmp,
+           party_approved_member_map pamm
+     where pamm.member_id = :user_id
+       and wcrmp.party_id = pamm.party_id
+       and wcrmp.case_id = sm.case_id
+" {
+    set message_url [export_vars -base "[apm_package_url_from_id $package_id]simplay/message" { message_id }]
+}
\ No newline at end of file