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
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/packages/simulation/www/simplay/case.adp	18 Dec 2003 15:39:03 -0000	1.1
@@ -0,0 +1,11 @@
+<master src="play-master">
+  <property name="title">@title;noquote@</property>
+  <property name="context">@context;noquote@</property>
+<h3>Tasks</h3>
+     <include src="/packages/simulation/lib/messages"  user_id="@user_id@" case_id="@case_id@"></include>
+
+<h3>Messages</h3>
+     <include src="/packages/simulation/lib/tasks" user_id="@user_id@" case_id="@case_id@"></include>
+
+<h3>Portfolio</h3>
+<p>TODO: show list of case/role-specific documents 
Index: openacs-4/contrib/packages/simulation/www/simplay/case.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/simplay/Attic/case.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/packages/simulation/www/simplay/case.tcl	18 Dec 2003 15:39:03 -0000	1.1
@@ -0,0 +1,13 @@
+ad_page_contract {
+    Simplay home page for a user in one case.
+} {
+    case_id:integer
+}
+
+set title "SimPlay"
+set context [list [list . "SimPlay"] $title]
+set user_id [ad_conn user_id]
+set package_id [ad_conn package_id]
+set section_uri [apm_package_url_from_id $package_id]simplay/
+
+set adminplayer_p [permission::permission_p -object_id $package_id -privilege sim_adminplayer]
Index: openacs-4/contrib/packages/simulation/www/simplay/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/simplay/Attic/index.adp,v
diff -u -r1.8 -r1.9
--- openacs-4/contrib/packages/simulation/www/simplay/index.adp	18 Dec 2003 14:07:13 -0000	1.8
+++ openacs-4/contrib/packages/simulation/www/simplay/index.adp	18 Dec 2003 15:39:03 -0000	1.9
@@ -2,23 +2,12 @@
   <property name="title">@title;noquote@</property>
   <property name="context">@context;noquote@</property>
 
-<if @case_id@ not nil>
-    TODO: show list of valid cases
-</if>
-<else>
-     <include src="/packages/simulation/lib/messages" user_id="@user_id@" case_id="@case_id@"></include>
-     <include src="/packages/simulation/lib/tasks" user_id="@user_id@" case_id="@case_id@"></include>
-</else>
+Show list of cases and make user pick one before proceeding.  However, if there is only one valid case, use it.
+<include src="/packages/simulation/lib/cases" party_id="@user_id@"/>
 
 <if @adminplayer_p@>
-    TODO: in playeradmin, show all tasks.  (Still segregate messages by case?)
+     <include src="/packages/simulation/lib/messages" user_id="@user_id@"></include>
+<p>
+     <include src="/packages/simulation/lib/tasks" user_id="@user_id@"></include>
 </if>
-<pre>  
-TODO: playeradmin mode shows all cases; player mode shows one case
-
-in player mode, show "desk" - ie, list of messages and list of tasks,
-plus links to archive
-
-TODO: how can a player access completed cases?
-
-</pre>
\ No newline at end of file
+<p>TODO: how can a player access completed cases?
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/contrib/packages/simulation/www/simplay/message-detail.adp'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/contrib/packages/simulation/www/simplay/message-detail.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/contrib/packages/simulation/www/simplay/message.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/simplay/Attic/message.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/packages/simulation/www/simplay/message.adp	18 Dec 2003 15:39:03 -0000	1.1
@@ -0,0 +1,20 @@
+<master src="play-master">
+  <property name="title">@page_title;noquote@</property>
+  <property name="context">@context;noquote@</property>
+  
+<p>TODO: this page is for composing new messages and for reading messages.
+<p>Form:
+<ul>
+<li><b>From</b>: in new mode, is read-only of role name.  In read
+mode, there should be a reply button which composes a new message,
+with the original sender pre-selected in To:, and the old message body
+pre-inserted as body (with > spacers?  with html italics?)
+<li><b>To</b>: a checkbox list of all roles in the sim, with a "check
+all" option
+<li><b>Subject</b>
+<li><b>Body</b>: text/html field
+<li><b>Attachments</b>: A checkbox list of all props associated with
+the role. (how do we know which?  We may need a "workflow_case_role to
+sim_object" mapping table)?
+</ul>
+<input type="submit" value="Send">
\ No newline at end of file
Index: openacs-4/contrib/packages/simulation/www/simplay/message.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/simplay/Attic/message.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/packages/simulation/www/simplay/message.tcl	18 Dec 2003 15:39:03 -0000	1.1
@@ -0,0 +1,9 @@
+ad_page_contract {
+    Create or edit a message.
+}
+
+# TODO: task recipient_id as an optional input parameter
+
+set page_title "Task Information: taskname"
+set context [list [list "." "SimPlay"] [list $page_title] ]
+set package_id [ad_conn package_id]
Fisheye: Tag 1.6 refers to a dead (removed) revision in file `openacs-4/contrib/packages/simulation/www/simplay/messages.adp'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.4 refers to a dead (removed) revision in file `openacs-4/contrib/packages/simulation/www/simplay/messages.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/contrib/packages/simulation/www/simplay/task-detail.adp'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/contrib/packages/simulation/www/simplay/task-detail.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/contrib/packages/simulation/www/simplay/task.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/simplay/Attic/task.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/packages/simulation/www/simplay/task.adp	18 Dec 2003 15:39:03 -0000	1.1
@@ -0,0 +1,19 @@
+<master src="play-master">
+  <property name="title">@title;noquote@</property>
+  <property name="context">@context;noquote@</property>
+
+
+<p>TODO: show task description, list of attachments 
+
+
+(low-priority TODO: embed attachments as links within description body)
+
+For a specific task (action_id, case_id), show the "description"
+field, links to any attachments.  
+
+<p>TODO: include message form, with To: checkboxes including the task
+recipient selected and disabled.
+
+<p>TODO: low priority: if we allow multiple recipients for a tasks, for each recipient, show a <a
+href="message-detail">link to messaging</a> with that user as the
+recipient.
Index: openacs-4/contrib/packages/simulation/www/simplay/task.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/simplay/Attic/task.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/packages/simulation/www/simplay/task.tcl	18 Dec 2003 15:39:03 -0000	1.1
@@ -0,0 +1,14 @@
+ad_page_contract {
+    Simplay page showing details and message form for one task.
+} {
+    case_id:integer
+}
+
+# TODO: fix context bar
+set title "Task Information: taskname"
+set context [list [list . "SimPlay"] [list [export_vars -base "case" { case_id }] "Case Name" ] $title]
+set user_id [ad_conn user_id]
+set package_id [ad_conn package_id]
+set section_uri [apm_package_url_from_id $package_id]simplay/
+
+set adminplayer_p [permission::permission_p -object_id $package_id -privilege sim_adminplayer]
Fisheye: Tag 1.4 refers to a dead (removed) revision in file `openacs-4/contrib/packages/simulation/www/simplay/tasks.adp'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.3 refers to a dead (removed) revision in file `openacs-4/contrib/packages/simulation/www/simplay/tasks.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
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
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/simulation/www/simplay/case.adp	18 Dec 2003 15:39:03 -0000	1.1
@@ -0,0 +1,11 @@
+<master src="play-master">
+  <property name="title">@title;noquote@</property>
+  <property name="context">@context;noquote@</property>
+<h3>Tasks</h3>
+     <include src="/packages/simulation/lib/messages"  user_id="@user_id@" case_id="@case_id@"></include>
+
+<h3>Messages</h3>
+     <include src="/packages/simulation/lib/tasks" user_id="@user_id@" case_id="@case_id@"></include>
+
+<h3>Portfolio</h3>
+<p>TODO: show list of case/role-specific documents 
Index: openacs-4/packages/simulation/www/simplay/case.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/simplay/case.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/simulation/www/simplay/case.tcl	18 Dec 2003 15:39:03 -0000	1.1
@@ -0,0 +1,13 @@
+ad_page_contract {
+    Simplay home page for a user in one case.
+} {
+    case_id:integer
+}
+
+set title "SimPlay"
+set context [list [list . "SimPlay"] $title]
+set user_id [ad_conn user_id]
+set package_id [ad_conn package_id]
+set section_uri [apm_package_url_from_id $package_id]simplay/
+
+set adminplayer_p [permission::permission_p -object_id $package_id -privilege sim_adminplayer]
Index: openacs-4/packages/simulation/www/simplay/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/simplay/index.adp,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/simulation/www/simplay/index.adp	18 Dec 2003 14:07:13 -0000	1.8
+++ openacs-4/packages/simulation/www/simplay/index.adp	18 Dec 2003 15:39:03 -0000	1.9
@@ -2,23 +2,12 @@
   <property name="title">@title;noquote@</property>
   <property name="context">@context;noquote@</property>
 
-<if @case_id@ not nil>
-    TODO: show list of valid cases
-</if>
-<else>
-     <include src="/packages/simulation/lib/messages" user_id="@user_id@" case_id="@case_id@"></include>
-     <include src="/packages/simulation/lib/tasks" user_id="@user_id@" case_id="@case_id@"></include>
-</else>
+Show list of cases and make user pick one before proceeding.  However, if there is only one valid case, use it.
+<include src="/packages/simulation/lib/cases" party_id="@user_id@"/>
 
 <if @adminplayer_p@>
-    TODO: in playeradmin, show all tasks.  (Still segregate messages by case?)
+     <include src="/packages/simulation/lib/messages" user_id="@user_id@"></include>
+<p>
+     <include src="/packages/simulation/lib/tasks" user_id="@user_id@"></include>
 </if>
-<pre>  
-TODO: playeradmin mode shows all cases; player mode shows one case
-
-in player mode, show "desk" - ie, list of messages and list of tasks,
-plus links to archive
-
-TODO: how can a player access completed cases?
-
-</pre>
\ No newline at end of file
+<p>TODO: how can a player access completed cases?
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/packages/simulation/www/simplay/message-detail.adp'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/packages/simulation/www/simplay/message-detail.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/packages/simulation/www/simplay/message.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/simplay/message.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/simulation/www/simplay/message.adp	18 Dec 2003 15:39:03 -0000	1.1
@@ -0,0 +1,20 @@
+<master src="play-master">
+  <property name="title">@page_title;noquote@</property>
+  <property name="context">@context;noquote@</property>
+  
+<p>TODO: this page is for composing new messages and for reading messages.
+<p>Form:
+<ul>
+<li><b>From</b>: in new mode, is read-only of role name.  In read
+mode, there should be a reply button which composes a new message,
+with the original sender pre-selected in To:, and the old message body
+pre-inserted as body (with > spacers?  with html italics?)
+<li><b>To</b>: a checkbox list of all roles in the sim, with a "check
+all" option
+<li><b>Subject</b>
+<li><b>Body</b>: text/html field
+<li><b>Attachments</b>: A checkbox list of all props associated with
+the role. (how do we know which?  We may need a "workflow_case_role to
+sim_object" mapping table)?
+</ul>
+<input type="submit" value="Send">
\ No newline at end of file
Index: openacs-4/packages/simulation/www/simplay/message.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/simplay/message.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/simulation/www/simplay/message.tcl	18 Dec 2003 15:39:03 -0000	1.1
@@ -0,0 +1,9 @@
+ad_page_contract {
+    Create or edit a message.
+}
+
+# TODO: task recipient_id as an optional input parameter
+
+set page_title "Task Information: taskname"
+set context [list [list "." "SimPlay"] [list $page_title] ]
+set package_id [ad_conn package_id]
Fisheye: Tag 1.6 refers to a dead (removed) revision in file `openacs-4/packages/simulation/www/simplay/messages.adp'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.4 refers to a dead (removed) revision in file `openacs-4/packages/simulation/www/simplay/messages.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/packages/simulation/www/simplay/task-detail.adp'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/packages/simulation/www/simplay/task-detail.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/packages/simulation/www/simplay/task.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/simplay/Attic/task.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/simulation/www/simplay/task.adp	18 Dec 2003 15:39:03 -0000	1.1
@@ -0,0 +1,19 @@
+<master src="play-master">
+  <property name="title">@title;noquote@</property>
+  <property name="context">@context;noquote@</property>
+
+
+<p>TODO: show task description, list of attachments 
+
+
+(low-priority TODO: embed attachments as links within description body)
+
+For a specific task (action_id, case_id), show the "description"
+field, links to any attachments.  
+
+<p>TODO: include message form, with To: checkboxes including the task
+recipient selected and disabled.
+
+<p>TODO: low priority: if we allow multiple recipients for a tasks, for each recipient, show a <a
+href="message-detail">link to messaging</a> with that user as the
+recipient.
Index: openacs-4/packages/simulation/www/simplay/task.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/simplay/Attic/task.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/simulation/www/simplay/task.tcl	18 Dec 2003 15:39:03 -0000	1.1
@@ -0,0 +1,14 @@
+ad_page_contract {
+    Simplay page showing details and message form for one task.
+} {
+    case_id:integer
+}
+
+# TODO: fix context bar
+set title "Task Information: taskname"
+set context [list [list . "SimPlay"] [list [export_vars -base "case" { case_id }] "Case Name" ] $title]
+set user_id [ad_conn user_id]
+set package_id [ad_conn package_id]
+set section_uri [apm_package_url_from_id $package_id]simplay/
+
+set adminplayer_p [permission::permission_p -object_id $package_id -privilege sim_adminplayer]
Fisheye: Tag 1.4 refers to a dead (removed) revision in file `openacs-4/packages/simulation/www/simplay/tasks.adp'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.3 refers to a dead (removed) revision in file `openacs-4/packages/simulation/www/simplay/tasks.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?