Index: openacs-4/contrib/packages/simulation/test/simulation-test-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/test/Attic/simulation-test-procs.tcl,v diff -u -r1.15 -r1.16 --- openacs-4/contrib/packages/simulation/test/simulation-test-procs.tcl 10 Mar 2004 15:22:35 -0000 1.15 +++ openacs-4/contrib/packages/simulation/test/simulation-test-procs.tcl 11 Mar 2004 09:16:45 -0000 1.16 @@ -29,6 +29,7 @@ do_request "/admin/group-types/one?group_type=group" link follow ~u "parties/new" + form find ~n add_group field find ~n group.group_name field fill "Demo group $i" form submit @@ -596,6 +597,7 @@ } do_request $add_user_url + form find ~n add_relation field find ~n party_id field select $user_name form submit Index: openacs-4/packages/simulation/test/simulation-test-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/test/simulation-test-procs.tcl,v diff -u -r1.15 -r1.16 --- openacs-4/packages/simulation/test/simulation-test-procs.tcl 10 Mar 2004 15:22:35 -0000 1.15 +++ openacs-4/packages/simulation/test/simulation-test-procs.tcl 11 Mar 2004 09:16:45 -0000 1.16 @@ -29,6 +29,7 @@ do_request "/admin/group-types/one?group_type=group" link follow ~u "parties/new" + form find ~n add_group field find ~n group.group_name field fill "Demo group $i" form submit @@ -596,6 +597,7 @@ } do_request $add_user_url + form find ~n add_relation field find ~n party_id field select $user_name form submit