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 -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