Index: openacs-4/contrib/packages/simulation/lib/portfolio.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/lib/Attic/portfolio.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/packages/simulation/lib/portfolio.adp	19 Dec 2003 13:39:33 -0000	1.1
@@ -0,0 +1 @@
+<listtemplate name="documents"></listtemplate></p>
Index: openacs-4/contrib/packages/simulation/lib/portfolio.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/lib/Attic/portfolio.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/packages/simulation/lib/portfolio.tcl	19 Dec 2003 13:39:33 -0000	1.1
@@ -0,0 +1,42 @@
+simulation::include_contract {
+    Displays a list of documents mapped to roles in this case.
+
+    @author Peter Marklund
+    @creation-date 2003-12-20
+    @cvs-id $Id: portfolio.tcl,v 1.1 2003/12/19 13:39:33 peterm Exp $
+} {
+    user_id {}
+    case_id {}
+}
+
+template::list::create \
+    -name documents \
+    -multirow documents \
+    -no_data "There are no documents." \
+    -elements {
+        role_name {
+            label "Role"
+        }
+        document_title {
+            label "Document"
+            link_url_col document_url
+        }        
+    } 
+
+db_multirow -extend { document_url } documents select_documents "
+    select scrom.object_id as document_id,
+           ci.name  as document_name,
+           cr.title as document_title,
+           wr.pretty_name as role_name
+    from sim_case_role_object_map scrom,
+         workflow_roles wr,
+         cr_items ci,
+         cr_revisions cr
+    where scrom.case_id = :case_id
+      and scrom.role_id = wr.role_id
+      and scrom.object_id = ci.item_id
+      and ci.live_revision = cr.revision_id
+    order by scrom.order_n
+" {
+    set document_url [simulation::object::url -name $document_name]
+}
Index: openacs-4/contrib/packages/simulation/www/simplay/case.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/simplay/Attic/case.adp,v
diff -u -r1.3 -r1.4
--- openacs-4/contrib/packages/simulation/www/simplay/case.adp	19 Dec 2003 13:24:18 -0000	1.3
+++ openacs-4/contrib/packages/simulation/www/simplay/case.adp	19 Dec 2003 13:39:34 -0000	1.4
@@ -11,4 +11,4 @@
 <p></p>
 
 <h3>Portfolio</h3>
-<p>TODO: show list of case/role-specific documents 
+<include src="/packages/simulation/lib/portfolio" user_id="@user_id@" case_id="@case_id@"></include>
Index: openacs-4/packages/simulation/lib/portfolio.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/lib/portfolio.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/simulation/lib/portfolio.adp	19 Dec 2003 13:39:33 -0000	1.1
@@ -0,0 +1 @@
+<listtemplate name="documents"></listtemplate></p>
Index: openacs-4/packages/simulation/lib/portfolio.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/lib/portfolio.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/simulation/lib/portfolio.tcl	19 Dec 2003 13:39:33 -0000	1.1
@@ -0,0 +1,42 @@
+simulation::include_contract {
+    Displays a list of documents mapped to roles in this case.
+
+    @author Peter Marklund
+    @creation-date 2003-12-20
+    @cvs-id $Id: portfolio.tcl,v 1.1 2003/12/19 13:39:33 peterm Exp $
+} {
+    user_id {}
+    case_id {}
+}
+
+template::list::create \
+    -name documents \
+    -multirow documents \
+    -no_data "There are no documents." \
+    -elements {
+        role_name {
+            label "Role"
+        }
+        document_title {
+            label "Document"
+            link_url_col document_url
+        }        
+    } 
+
+db_multirow -extend { document_url } documents select_documents "
+    select scrom.object_id as document_id,
+           ci.name  as document_name,
+           cr.title as document_title,
+           wr.pretty_name as role_name
+    from sim_case_role_object_map scrom,
+         workflow_roles wr,
+         cr_items ci,
+         cr_revisions cr
+    where scrom.case_id = :case_id
+      and scrom.role_id = wr.role_id
+      and scrom.object_id = ci.item_id
+      and ci.live_revision = cr.revision_id
+    order by scrom.order_n
+" {
+    set document_url [simulation::object::url -name $document_name]
+}
Index: openacs-4/packages/simulation/www/simplay/case.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/simplay/case.adp,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/simulation/www/simplay/case.adp	19 Dec 2003 13:24:18 -0000	1.3
+++ openacs-4/packages/simulation/www/simplay/case.adp	19 Dec 2003 13:39:34 -0000	1.4
@@ -11,4 +11,4 @@
 <p></p>
 
 <h3>Portfolio</h3>
-<p>TODO: show list of case/role-specific documents 
+<include src="/packages/simulation/lib/portfolio" user_id="@user_id@" case_id="@case_id@"></include>