Index: openacs-4/packages/forums/www/message-post.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/message-post.tcl,v
diff -u -r1.30 -r1.31
--- openacs-4/packages/forums/www/message-post.tcl	17 Dec 2003 15:45:30 -0000	1.30
+++ openacs-4/packages/forums/www/message-post.tcl	26 Feb 2004 15:29:16 -0000	1.31
@@ -18,8 +18,18 @@
     }
 }
 
-set user_id [ad_conn user_id]
+if { ![empty_string_p [ns_queryget formbutton:post]] } {
+    set action post
+} elseif { ![empty_string_p [ns_queryget formbutton:preview]] } {
+    set action preview
+} elseif { ![empty_string_p [ns_queryget formbutton:edit]] } {
+    set action edit
+} else {
+    set action ""
+}
 
+set user_id [auth::refresh_login]
+
 ##############################
 # Pull out required forum and parent data and
 # perform security checks