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.48.2.2 -r1.48.2.3 --- openacs-4/packages/forums/www/message-post.tcl 5 Oct 2019 13:17:05 -0000 1.48.2.2 +++ openacs-4/packages/forums/www/message-post.tcl 15 Jul 2022 16:19:56 -0000 1.48.2.3 @@ -7,25 +7,20 @@ @cvs-id $Id$ } -query { - {forum_id:integer ""} - {parent_id:integer ""} + {forum_id:object_type(forums_forum) ""} + {parent_id:object_type(forums_message) ""} } -validate { forum_id_or_parent_id { if {$forum_id eq "" && $parent_id eq ""} { ad_complain [_ forums.lt_You_either_have_to] } - if {$forum_id ne "" && ![forum::valid_forum_id_p -forum_id $forum_id]} { - ad_complain [_ acs-templating.Invalid_integer] - } - if {$parent_id ne ""} { - forum::message::get -message_id $parent_id -array parent_message - if {![info exists parent_message]} { - ad_complain [_ acs-templating.Invalid_integer] - } - } } } +if {$parent_id ne ""} { + forum::message::get -message_id $parent_id -array parent_message +} + if { [ns_queryget formbutton:post] ne "" } { set action post } elseif { [ns_queryget formbutton:preview] ne "" } {