Index: openacs.org-dev/www/bboard-migr/forum-migr.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/www/bboard-migr/forum-migr.tcl,v
diff -u -r1.1 -r1.2
--- openacs.org-dev/www/bboard-migr/forum-migr.tcl	10 Jul 2002 19:29:04 -0000	1.1
+++ openacs.org-dev/www/bboard-migr/forum-migr.tcl	12 Jul 2002 12:53:35 -0000	1.2
@@ -35,8 +35,8 @@
 	set action "nil"
     } else {
 	#make a new one!
-	set new_created_id [bboard_forum_new -short_name $topic \
-            -charter $blather -bboard_id $package_id]
+	set new_created_id [forum::new -name $topic \
+            -charter $blather -package_id $package_id]
 
 	set new_id $new_created_id
 	set action "new"
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.1 -r1.2
--- openacs.org-dev/www/bboard-migr/user-migr.tcl	10 Jul 2002 19:29:04 -0000	1.1
+++ openacs.org-dev/www/bboard-migr/user-migr.tcl	12 Jul 2002 12:53:35 -0000	1.2
@@ -42,6 +42,11 @@
     } elseif {[empty_string_p $first_names] || [empty_string_p $last_name] || [empty_string_p $email]} {
 	set action "nil"
 
+    } elseif {[db_0or1row tr $mapped_user_sql]} {
+      set new_created_id [ad_user_new $email $first_names $last_name $password
+       "" "" $url "t" "approved" $new_map_id $registration_date]
+	set new_id $new_map_id
+	set action "update"
     } else {
 	set new_created_id [ad_user_new $email $first_names $last_name $password "" "" $url "t" "approved" "" $registration_date]
 	db_dml q "insert into migr_user_map