Index: openacs.org-dev/packages/forums/www/message-post.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs.org-dev/packages/forums/www/message-post.tcl,v diff -u -r1.1.1.2 -r1.1.1.3 --- openacs.org-dev/packages/forums/www/message-post.tcl 31 Jul 2002 16:31:16 -0000 1.1.1.2 +++ openacs.org-dev/packages/forums/www/message-post.tcl 8 Oct 2002 15:47:12 -0000 1.1.1.3 @@ -4,7 +4,7 @@ @author Ben Adida (ben@openforce.net) @creation-date 2002-05-25 - @version $Id$ + @cvs-id $Id$ } -query { {forum_id ""} @@ -73,14 +73,11 @@ set attachments_enabled_p [forum::attachments_enabled_p] if {$attachments_enabled_p} { - ns_log Notice "FORUMS: attachments enabled" element create message attach_p \ -label "Attach?" \ -datatype text \ -widget hidden \ -optional -} else { - ns_log Notice "FORUMS: attachments not enabled" } if {[form is_valid message]} { @@ -114,8 +111,8 @@ } } - set context_bar [list [list "./forum-view?forum_id=$forum_id" "$forum(name)"]] - lappend context_bar {Post a Message} + set context [list [list "./forum-view?forum_id=$forum_id" "$forum(name)"]] + lappend context {Post a Message} ad_return_template message-post-confirm return @@ -186,12 +183,12 @@ element set_properties message confirm_p -value 0 element set_properties message subscribe_p -value 0 -set context_bar [list [list "./forum-view?forum_id=$forum_id" "$forum(name)"]] +set context [list [list "./forum-view?forum_id=$forum_id" "$forum(name)"]] if {![empty_string_p $parent_id]} { - lappend context_bar [list "./message-view?message_id=$parent_message(message_id)" "$parent_message(subject)"] - lappend context_bar {Post a Reply} + lappend context [list "./message-view?message_id=$parent_message(message_id)" "$parent_message(subject)"] + lappend context {Post a Reply} } else { - lappend context_bar {Post a Message} + lappend context {Post a Message} } ad_return_template