Index: openacs-4/packages/forums/tcl/messages-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/tcl/Attic/messages-procs-postgresql.xql,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/forums/tcl/messages-procs-postgresql.xql 2 Jul 2002 19:42:19 -0000 1.4
+++ openacs-4/packages/forums/tcl/messages-procs-postgresql.xql 20 Aug 2002 21:39:42 -0000 1.5
@@ -48,25 +48,19 @@
- declare begin
- forums_message__delete_thread(:message_id);
- end;
+ select forums_message__delete_thread(:message_id);
- declare begin
- forums_message__thread_close(:message_id);
- end;
+ select forums_message__thread_close(:message_id);
- declare begin
- forums_message__thread_open(:message_id);
- end;
+ select forums_message__thread_open(:message_id);