Index: openacs-4/packages/cms-news-demo/www/install-wizard-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms-news-demo/www/install-wizard-3.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/cms-news-demo/www/install-wizard-3.tcl	17 May 2003 10:26:34 -0000	1.2
+++ openacs-4/packages/cms-news-demo/www/install-wizard-3.tcl	13 Nov 2003 12:04:21 -0000	1.3
@@ -5,8 +5,8 @@
 #
 # @author Michael Pih
 
+set user_id [User::getID]
 
-
 # get the user id of a cm_admin
 db_1row cm_admin "
   select
@@ -23,7 +23,7 @@
     cms_permission.permission_p(
 	module_id, user_id, 'cm_admin') = 't'
   and
-    user_id = [User::getID]
+    user_id = :user_id
 "
 
 
@@ -72,12 +72,11 @@
 	
 	# check if the user exists already
 	db_1row user_exists_p "
-	  select
-            count(1) as user_exists_p
-          from
-            users
-	  where
-            screen_name = :screen_name
+	  select count(1) as user_exists_p
+          from dual 
+	  where exists (
+            select 1 from users
+            where screen_name = :screen_name)
 	"
 
 	# if the user doesn't exists, create the user
@@ -86,17 +85,12 @@
 	    append html "<li>Creating $name... "
 
 	    set password $screen_name
-	    set email "${screen_name}@host.com"
+	    set email "${screen_name}@example.com"
 	    
-	    set user_id [ad_user_new $email $name $name $password "" ""]
+	    auth::create_user -email $email -first_names Demo -last_name $name -password $password -screen_name $screen_name
 
-	    db_dml update_users "
-	    update users
-              set screen_name = :screen_name
-              where user_id = :user_id"
+	    append html "created Demo $name &lt;$email&gt; password $password.<br>"
 
-	    append html "created.<br>"
-
 	} else {
 	    append html "<li>$name already exists.<br>"
 	}