Index: openacs.org-dev/www/bboard-migr/msg-migr.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/www/bboard-migr/msg-migr.tcl,v
diff -u -r1.4 -r1.5
--- openacs.org-dev/www/bboard-migr/msg-migr.tcl 18 Jul 2002 13:40:23 -0000 1.4
+++ openacs.org-dev/www/bboard-migr/msg-migr.tcl 22 Jul 2002 20:08:54 -0000 1.5
@@ -5,7 +5,7 @@
set bboard_package "forums"
#set package_id [ad_conn package_id]
-set package_id 3928
+set package_id 12679
set olddb [ns_db gethandle acs32]
@@ -23,11 +23,11 @@
set nil [set new [list]]
set output ""
-db_transaction {
+
while { [ns_db getrow $olddb $selection] } {
set_variables_after_query
incr n_tried_old
-
+db_transaction {
#topic/forum
db_1row q "select new_forum_id from migr_forum_map
where old_forum_id = :topic_id and package_id = :package_id"
@@ -114,15 +114,16 @@
lappend $action $html
append output "$action: $html"
- }
-} on_error {
+ } on_error {
set output "Error:
$errmsg
$msg_id t $topic_id r $refers_to rid $new_reply_to_id u $user_id p $package_id: $one_line
c $category id $new_category_id"
# : a $action"
#
$output"
+ }
}
+
ns_db releasehandle $olddb
ns_return 200 text/html "