Index: openacs-4/contrib/packages/simulation/test/demo-data-setup.test =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/test/Attic/demo-data-setup.test,v diff -u -r1.9 -r1.10 --- openacs-4/contrib/packages/simulation/test/demo-data-setup.test 5 Jan 2004 10:31:39 -0000 1.9 +++ openacs-4/contrib/packages/simulation/test/demo-data-setup.test 5 Jan 2004 12:17:13 -0000 1.10 @@ -27,6 +27,10 @@ "C of Lawfirm Y" "Secretary firm Y" "Portal" "Library" } + array set properties { + "Demo Property 1" "Demo Property 1" + "Demo Property 2" "Demo Property 2" + } array set tasks { "Ask information from Bernadette" {assigned_role "Her lawyer" recipient_role "Bernadette"} "Ask information from MOTORHOME" {assigned_role "Her lawyer" recipient_role "MOTORHOME"} @@ -116,6 +120,11 @@ ::twt::simulation::add_object -type character -title $character_name } + ::twt::log_section "Create properties" + foreach property_name [array names properties] { + ::twt::simulation::add_object -type sim_prop -title $property_name + } + ::twt::log_section "Create simulation template" do_request /simulation/simbuild/template-edit set template_name "Elementary Private Law" Index: openacs-4/packages/simulation/test/demo-data-setup.test =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/test/demo-data-setup.test,v diff -u -r1.9 -r1.10 --- openacs-4/packages/simulation/test/demo-data-setup.test 5 Jan 2004 10:31:39 -0000 1.9 +++ openacs-4/packages/simulation/test/demo-data-setup.test 5 Jan 2004 12:17:13 -0000 1.10 @@ -27,6 +27,10 @@ "C of Lawfirm Y" "Secretary firm Y" "Portal" "Library" } + array set properties { + "Demo Property 1" "Demo Property 1" + "Demo Property 2" "Demo Property 2" + } array set tasks { "Ask information from Bernadette" {assigned_role "Her lawyer" recipient_role "Bernadette"} "Ask information from MOTORHOME" {assigned_role "Her lawyer" recipient_role "MOTORHOME"} @@ -116,6 +120,11 @@ ::twt::simulation::add_object -type character -title $character_name } + ::twt::log_section "Create properties" + foreach property_name [array names properties] { + ::twt::simulation::add_object -type sim_prop -title $property_name + } + ::twt::log_section "Create simulation template" do_request /simulation/simbuild/template-edit set template_name "Elementary Private Law"