Index: openacs.org-dev/packages/forums/www/message-post-confirm.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/forums/www/message-post-confirm.adp,v
diff -u -r1.3 -r1.4
--- openacs.org-dev/packages/forums/www/message-post-confirm.adp	4 Sep 2002 03:46:54 -0000	1.3
+++ openacs.org-dev/packages/forums/www/message-post-confirm.adp	4 Sep 2002 03:57:10 -0000	1.4
@@ -12,15 +12,10 @@
   </table>
 </center>
 
-<form action="message-post" method="post">
-<input type="hidden" name="message_id" value="@message_id@">
-<input type="hidden" name="subject" value="@subject@">
-<input type="hidden" name="content" value="@content@">
-<input type="hidden" name="parent_id" value="@parent_id@">
-<input type="hidden" name="forum_id" value="@forum_id@">	      
-<input type="hidden" name="attachments_enabled_p"
-		  value="@attachments_enabled_p@">
-<input type="hidden" name="html_p" value="@html_p@">
+<form action="@__return_url__@" method="post">
+  <multiple name="__form_contents__">
+    <input type="hidden" name="@__form_contents__.__key__@" value="@__form_contents__.__value__@">
+  </multiple>
 
   <br>
 
Index: openacs.org-dev/packages/forums/www/message-post-confirm.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/forums/www/Attic/message-post-confirm.tcl,v
diff -u -r1.2 -r1.3
--- openacs.org-dev/packages/forums/www/message-post-confirm.tcl	4 Sep 2002 03:46:54 -0000	1.2
+++ openacs.org-dev/packages/forums/www/message-post-confirm.tcl	4 Sep 2002 03:57:10 -0000	1.3
@@ -1,24 +1,16 @@
 ad_page_contract {
 
-} {
-    
-    message_id:integer
-    subject
-    content
-    parent_id
-    forum_id
-    attachments_enabled_p
-    html_p
-    subscribe_p
-    
 } -properties {
-
+    __form_contents__:multirow
 }
 
 # borrowed from acs_templating/resources/forms
 # this generates a confirm page from message-post.tcl
 # storing all the data in hidden form variables, and asking for attachments
 # or notifications if applicable and passes the data back to message-post.tcl
+# we do this so we don't have to know about the internal hidden vars
+# that ad_form uses to maintain state.
+#
 # --DaveB
 
 # The basic idea here is to build a multirow holding the form contents,
@@ -30,7 +22,28 @@
 # There's one exception - we set the special form element "__confirmed_p" true.
 # This informs ad_form that the use has indeed confirmed the submission.
 
+set __return_url__ [ad_conn url]
 
+multirow create __form_contents__ __key__ __value__
+
+if { ![empty_string_p [set __form__ [ns_getform]]] } {
+
+    set __form_size__ [ns_set size $__form__]
+    set __form_counter__ 0
+   
+    while { $__form_counter__ < $__form_size__ } {
+        if { [string equal [ns_set key $__form__ $__form_counter__] __confirmed_p] } {
+            multirow append __form_contents__ __confirmed_p 1
+        } else {
+            multirow append __form_contents__ [ns_set key $__form__ $__form_counter__] \
+                [template::util::quote_html [ns_set value $__form__ $__form_counter__]]
+        }
+        incr __form_counter__
+    }
+
+}
+
+
 # moved stuff over here from message-post --DaveB
 # this sets up the data necessary for the confirm form