Index: openacs-4/packages/chat/tcl/chat-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/tcl/chat-procs-oracle.xql,v
diff -u -N -r1.2.8.1 -r1.2.8.2
--- openacs-4/packages/chat/tcl/chat-procs-oracle.xql 2 Jul 2016 10:41:20 -0000 1.2.8.1
+++ openacs-4/packages/chat/tcl/chat-procs-oracle.xql 28 Oct 2016 18:57:36 -0000 1.2.8.2
@@ -8,16 +8,17 @@
begin
:1 := chat_room.new (
- pretty_name => :pretty_name,
- moderated_p => :moderated_p,
- description => :description,
- active_p => :active_p,
- archive_p => :archive_p,
- context_id => :context_id,
- creation_user => :creation_user,
- creation_ip => :creation_ip
+ pretty_name => :pretty_name,
+ moderated_p => :moderated_p,
+ description => :description,
+ active_p => :active_p,
+ login_messages_p => :login_messages_p,
+ logout_messages_p => :logout_messages_p,
+ archive_p => :archive_p,
+ context_id => :context_id,
+ creation_user => :creation_user,
+ creation_ip => :creation_ip
);
-
end;
@@ -47,7 +48,7 @@
select pretty_name from chat_rooms where room_id = :room_id
-
+
@@ -107,14 +108,16 @@
begin
chat_room.edit (
- room_id => :room_id,
- pretty_name => :pretty_name,
- description => :description,
- moderated_p => :moderated_p,
- active_p => :active_p,
- archive_p => :archive_p,
- auto_flush_p => :auto_flush_p,
- auto_transcript_p => :auto_transcript_p
+ room_id => :room_id,
+ pretty_name => :pretty_name,
+ description => :description,
+ moderated_p => :moderated_p,
+ active_p => :active_p,
+ archive_p => :archive_p,
+ auto_flush_p => :auto_flush_p,
+ auto_transcript_p => :auto_transcript_p,
+ login_messages_p => :login_messages_p,
+ logout_messages_p => :logout_messages_p
);
end;