+
+
+Active simulations ...
+
+
+Flash map of city...
+
+
+If user has permission to edit simulation objects:
+
+
+
+
+
+
Index: openacs-4/contrib/packages/simulation/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/Attic/index.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/packages/simulation/www/index.tcl 13 Oct 2003 13:27:02 -0000 1.1
@@ -0,0 +1,51 @@
+ad_page_contract {
+
+ @creation-date 2003-10-13
+ @cvs-id $Id: index.tcl,v 1.1 2003/10/13 13:27:02 joela Exp $
+} {
+} -properties {
+}
+
+# phase2: sortable, filterable
+template::list::create \
+ -name cases \
+ -multirow cases \
+ -elements {
+ case_name {
+ label "Case"
+ orderby case_name
+ }
+ task_count {
+ label "Tasks"
+ orderby task_count
+ }
+ }
+
+# phase2: a list of cases for which the user has a role, along with a count of the
+# number of active tasks for that role
+
+db_multirow cases cases_sql {
+ select 'case one', 'case two' as case_name,
+ 0,2 as task_count
+ from dual
+}
+
+template::list::create \
+ -name cases \
+ -multirow cases \
+ -elements {
+ case_name {
+ label "Case"
+ orderby case_name
+ }
+ task_count {
+ label "Tasks"
+ orderby task_count
+ }
+ }
+
+db_multirow cases cases_sql {
+ select 'case one', 'case two' as case_name,
+ 0,2 as task_count
+ from dual
+}
\ No newline at end of file
Index: openacs-4/contrib/packages/simulation/www/object.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/Attic/object.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/packages/simulation/www/object.adp 13 Oct 2003 13:27:02 -0000 1.1
@@ -0,0 +1 @@
+
Index: openacs-4/contrib/packages/simulation/www/object.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/Attic/object.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/packages/simulation/www/object.tcl 13 Oct 2003 13:27:02 -0000 1.1
@@ -0,0 +1,28 @@
+ad_page_contract {
+
+ @creation-date 2003-10-13
+ @cvs-id $Id: object.tcl,v 1.1 2003/10/13 13:27:02 joela Exp $
+} {
+} -properties {
+}
+
+# fake the multirow for active cases
+multirow create cases case_id case_name task_count
+multirow append cases 1 "Case One" 0
+multirow append cases 1 "Case Two" 2
+
+template::list::create \
+ -name cases \
+ -multirow cases \
+ -elements {
+ case_name {
+ label "Case"
+ orderby case_name
+ }
+ task_count {
+ label "Tasks"
+ orderby task_count
+ }
+ }
+
+
Index: openacs-4/contrib/packages/simulation/www/template.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/Attic/template.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/packages/simulation/www/template.tcl 13 Oct 2003 13:27:02 -0000 1.1
@@ -0,0 +1,28 @@
+ad_page_contract {
+
+ @creation-date 2003-10-13
+ @cvs-id $Id: template.tcl,v 1.1 2003/10/13 13:27:02 joela Exp $
+} {
+} -properties {
+}
+
+# fake the multirow for active objects
+multirow create cases case_id case_name task_count
+multirow append cases 1 "Case One" 0
+multirow append cases 1 "Case Two" 2
+
+template::list::create \
+ -name cases \
+ -multirow cases \
+ -elements {
+ case_name {
+ label "Case"
+ orderby case_name
+ }
+ task_count {
+ label "Tasks"
+ orderby task_count
+ }
+ }
+
+
Index: openacs-4/packages/simulation/simulation.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/simulation.info,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/simulation/simulation.info 13 Oct 2003 07:58:52 -0000 1.1
+++ openacs-4/packages/simulation/simulation.info 13 Oct 2003 13:26:37 -0000 1.2
@@ -6,12 +6,14 @@
Simulations
f
f
-
-
+ simulation
+
+
Joel Aufrecht
Workflow-based task simulator.
+ 2003-10-13
-
+
Index: openacs-4/packages/simulation/sql/postgresql/simulation-create-tables.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/sql/postgresql/Attic/simulation-create-tables.sql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/simulation/sql/postgresql/simulation-create-tables.sql 13 Oct 2003 09:57:02 -0000 1.2
+++ openacs-4/packages/simulation/sql/postgresql/simulation-create-tables.sql 13 Oct 2003 13:29:30 -0000 1.3
@@ -12,7 +12,7 @@
description text
);
-comment on table sim_object IS 'Each record is an object in a simulation package.';
+comment on table sim_objects IS 'Each record is an object in a simulation package.';
select acs_object_type__create_type (
'sim_object', -- object_type
Index: openacs-4/packages/simulation/www/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/index.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/simulation/www/index.adp 13 Oct 2003 13:27:02 -0000 1.1
@@ -0,0 +1,25 @@
+
+
+
+
+Active simulations ...
+
+
+Flash map of city...
+
+
+If user has permission to edit simulation objects:
+
+
+
+
+
+
Index: openacs-4/packages/simulation/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/index.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/simulation/www/index.tcl 13 Oct 2003 13:27:02 -0000 1.1
@@ -0,0 +1,51 @@
+ad_page_contract {
+
+ @creation-date 2003-10-13
+ @cvs-id $Id: index.tcl,v 1.1 2003/10/13 13:27:02 joela Exp $
+} {
+} -properties {
+}
+
+# phase2: sortable, filterable
+template::list::create \
+ -name cases \
+ -multirow cases \
+ -elements {
+ case_name {
+ label "Case"
+ orderby case_name
+ }
+ task_count {
+ label "Tasks"
+ orderby task_count
+ }
+ }
+
+# phase2: a list of cases for which the user has a role, along with a count of the
+# number of active tasks for that role
+
+db_multirow cases cases_sql {
+ select 'case one', 'case two' as case_name,
+ 0,2 as task_count
+ from dual
+}
+
+template::list::create \
+ -name cases \
+ -multirow cases \
+ -elements {
+ case_name {
+ label "Case"
+ orderby case_name
+ }
+ task_count {
+ label "Tasks"
+ orderby task_count
+ }
+ }
+
+db_multirow cases cases_sql {
+ select 'case one', 'case two' as case_name,
+ 0,2 as task_count
+ from dual
+}
\ No newline at end of file
Index: openacs-4/packages/simulation/www/object.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/Attic/object.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/simulation/www/object.adp 13 Oct 2003 13:27:02 -0000 1.1
@@ -0,0 +1 @@
+
Index: openacs-4/packages/simulation/www/object.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/Attic/object.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/simulation/www/object.tcl 13 Oct 2003 13:27:02 -0000 1.1
@@ -0,0 +1,28 @@
+ad_page_contract {
+
+ @creation-date 2003-10-13
+ @cvs-id $Id: object.tcl,v 1.1 2003/10/13 13:27:02 joela Exp $
+} {
+} -properties {
+}
+
+# fake the multirow for active cases
+multirow create cases case_id case_name task_count
+multirow append cases 1 "Case One" 0
+multirow append cases 1 "Case Two" 2
+
+template::list::create \
+ -name cases \
+ -multirow cases \
+ -elements {
+ case_name {
+ label "Case"
+ orderby case_name
+ }
+ task_count {
+ label "Tasks"
+ orderby task_count
+ }
+ }
+
+
Index: openacs-4/packages/simulation/www/template.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/Attic/template.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/simulation/www/template.tcl 13 Oct 2003 13:27:02 -0000 1.1
@@ -0,0 +1,28 @@
+ad_page_contract {
+
+ @creation-date 2003-10-13
+ @cvs-id $Id: template.tcl,v 1.1 2003/10/13 13:27:02 joela Exp $
+} {
+} -properties {
+}
+
+# fake the multirow for active objects
+multirow create cases case_id case_name task_count
+multirow append cases 1 "Case One" 0
+multirow append cases 1 "Case Two" 2
+
+template::list::create \
+ -name cases \
+ -multirow cases \
+ -elements {
+ case_name {
+ label "Case"
+ orderby case_name
+ }
+ task_count {
+ label "Tasks"
+ orderby task_count
+ }
+ }
+
+