Index: openacs-4/etc/install/tclwebtest-functions.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/etc/install/Attic/tclwebtest-functions.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/etc/install/tclwebtest-functions.tcl	17 Sep 2003 08:20:23 -0000	1.3
+++ openacs-4/etc/install/tclwebtest-functions.tcl	26 Sep 2003 13:23:03 -0000	1.4
@@ -280,14 +280,20 @@
     link follow ~u "user-add"
 
     form find ~a "/dotlrn/user-add"
-    field find ~n "id"
-    field fill $id
     field find ~n "email"
     field fill $email
     field find ~n "first_names"
     field fill $first_names
     field find ~n "last_name"
     field fill $last_name
+    field find ~n "password"
+    field fill [get_user_password $email]
+    field find ~n "password_confirm"
+    field fill [get_user_password $email]
+    field find ~n "secret_question"
+    field fill 1
+    field find ~n "secret_answer"
+    field fill 1
     form submit
 
     form find ~n add_user