Index: openacs-4/packages/acs-messaging/tcl/acs-messaging-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-messaging/tcl/acs-messaging-procs.tcl,v diff -u -r1.8.2.2 -r1.8.2.3 --- openacs-4/packages/acs-messaging/tcl/acs-messaging-procs.tcl 18 Sep 2015 07:44:29 -0000 1.8.2.2 +++ openacs-4/packages/acs-messaging/tcl/acs-messaging-procs.tcl 2 Jan 2016 17:21:32 -0000 1.8.2.3 @@ -11,11 +11,7 @@ } { Check if an integer is a valid OpenACS message id. } { - return [string equal [db_exec_plsql acs_message_p { - begin - :1 := acs_message.message_p(:message_id); - end; - }] "t"] + return [string equal [db_exec_plsql acs_message_p {}] "t"] } ad_page_contract_filter acs_message_id { name value } { @@ -63,9 +59,7 @@ the message_id of the first ancestor message (i.e. the message that originated the thread). } { - db_1row acs_message_first_ancestor { - select acs_message.first_ancestor(:message_id) as ancestor_id from dual - } + db_1row acs_message_first_ancestor {} return $ancestor_id }