Index: openacs.org-dev/www/bboard-migr/user-migr.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/www/bboard-migr/user-migr.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs.org-dev/www/bboard-migr/user-migr.tcl	15 Jul 2002 13:26:44 -0000	1.3
+++ openacs.org-dev/www/bboard-migr/user-migr.tcl	17 Jul 2002 13:31:51 -0000	1.4
@@ -7,7 +7,7 @@
 # added where and order by clauses (olah)
 set selection [ns_db select $olddb "
   select last_name, first_names, email, password, url,
-         user_id as old_user_id, registration_date
+      user_id as old_user_id, registration_date, registration_ip
   from users
   where user_state ='authorized'
   order by user_id
@@ -59,8 +59,7 @@
 	# mapped before. the user probably changed email address since the last
 	# pass of this script... let's create a new user (or should we update the email address).
 
-	set new_created_id [ad_user_new $email $first_names $last_name $password "" "" $url "t" "approved" $new_map_id $registration_date]
-	#set new_created_id [ad_user_new $email $first_names $last_name $password "" "" $url "t" "approved" "" $registration_date]
+	set new_created_id [ad_user_new $email $first_names $last_name $password "" "" $url "t" "approved" "" $registration_date $registration_ip]
 	set new_id $new_map_id
 	set action "update"
 
@@ -69,7 +68,7 @@
 	# mapped before. let's create this previously unseen user and register
 	# the event in the mapping table.
 
-	set new_created_id [ad_user_new $email $first_names $last_name $password "" "" $url "t" "approved" "" $registration_date]
+	set new_created_id [ad_user_new $email $first_names $last_name $password "" "" $url "t" "approved" "" $registration_date $registration_ip]
 	db_dml q "insert into migr_user_map 
 	(old_user_id, new_user_id) values ($old_user_id, $new_created_id)"
 	set new_id $new_created_id