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.6 -r1.7
--- openacs.org-dev/www/bboard-migr/msg-migr.tcl 30 Jul 2002 21:00:12 -0000 1.6
+++ openacs.org-dev/www/bboard-migr/msg-migr.tcl 28 Oct 2002 01:04:35 -0000 1.7
@@ -22,12 +22,13 @@
set nil [set new [list]]
set output ""
-
-
+set new_reply_to_id ""
+set new_category_id ""
+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"
@@ -90,11 +91,26 @@
} else {
# assume it's the new "forums" package
- set new_created_id [forum::message::new -forum_id $new_forum_id \
- -message_id "" -parent_id $new_reply_to_id \
- -subject $one_line -content $message \
- -html_p $html_p -user_id $new_user_id \
- -posting_date $posting_time]
+
+ set new_created_id [db_exec_plsql forum_message_new {
+ select forums_message__new(
+ NULL,
+ 'forums_message',
+ :new_forum_id,
+ :one_line,
+ :message,
+ :html_p,
+ :new_user_id,
+ :posting_time,
+ NULL,
+ :new_reply_to_id,
+ now(),
+ NULL,
+ NULL,
+ :new_forum_id
+ );
+ }]
+
}
@@ -114,16 +130,15 @@
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 "
Index: openacs.org-dev/www/doc/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/www/doc/index.adp,v
diff -u -r1.1 -r1.2
--- openacs.org-dev/www/doc/index.adp 8 Oct 2002 17:05:30 -0000 1.1
+++ openacs.org-dev/www/doc/index.adp 28 Oct 2002 01:04:44 -0000 1.2
@@ -4,4 +4,5 @@
OpenACS 4.5 Documentation
OpenACS 3.2.5 Documentation
Documentation for this Installation of OpenACS
+Learning OpenACS