Index: openacs.org-dev/packages/forums/tcl/messages-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/forums/tcl/messages-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs.org-dev/packages/forums/tcl/messages-procs.tcl	9 Jul 2002 17:35:09 -0000	1.1
+++ openacs.org-dev/packages/forums/tcl/messages-procs.tcl	18 Jul 2002 13:41:55 -0000	1.2
@@ -18,6 +18,7 @@
         {-content:required}
         {-html_p "f"}
         {-user_id ""}
+	{-posting_date ""}
     } {
         create a new message
     } {
@@ -29,7 +30,7 @@
 
         # Prepare the variables for instantiation
         set extra_vars [ns_set create]
-        oacs_util::vars_to_ns_set -ns_set $extra_vars -var_list {forum_id message_id parent_id subject content html_p user_id}
+        oacs_util::vars_to_ns_set -ns_set $extra_vars -var_list {forum_id message_id parent_id subject content html_p user_id posting_date}
 
         db_transaction {
             set message_id [package_instantiate_object -extra_vars $extra_vars forums_message]
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.3 -r1.4
--- openacs.org-dev/www/bboard-migr/msg-migr.tcl	16 Jul 2002 07:54:37 -0000	1.3
+++ openacs.org-dev/www/bboard-migr/msg-migr.tcl	18 Jul 2002 13:40:23 -0000	1.4
@@ -93,7 +93,8 @@
 		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]
+		    -html_p $html_p -user_id $new_user_id \
+		    -posting_date $posting_time]
 	    }