Index: openacs-4/packages/chat/www/room-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/room-edit.tcl,v
diff -u -r1.11.4.1 -r1.11.4.2
--- openacs-4/packages/chat/www/room-edit.tcl	20 Jun 2016 08:40:23 -0000	1.11.4.1
+++ openacs-4/packages/chat/www/room-edit.tcl	28 Oct 2016 18:57:36 -0000	1.11.4.2
@@ -51,44 +51,79 @@
         {options {{"#acs-kernel.common_Yes#" t} {"#acs-kernel.common_no#" f}}}
         {value "f"}
         {help_text "[_ chat.AutoTranscriptHelp]"}
+    }
+    {login_messages_p:boolean(radio)
+        {label "#chat.LoginMessages#" }
+        {options {{"#acs-kernel.common_Yes#" t} {"#acs-kernel.common_no#" f}}}
+        {value "f"}
+        {help_text "[_ chat.LoginMessagesHelp]"}
     }      
+    {logout_messages_p:boolean(radio)
+        {label "#chat.LogoutMessages#" }
+        {options {{"#acs-kernel.common_Yes#" t} {"#acs-kernel.common_no#" f}}}
+        {value "f"}
+        {help_text "[_ chat.LogoutMessagesHelp]"}
+    }      
+    
 } -new_data {
-    if {[catch {set room_id [chat_room_new -moderated_p $moderated_p \
-                              -description $description \
-                              -active_p $active_p \
-                              -archive_p $archive_p \
-                              -auto_flush_p $auto_flush_p \
-                              -auto_transcript_p $auto_transcript_p \
-                              -context_id [ad_conn package_id] \
-                              -creation_user [ad_conn user_id] \
-                              -creation_ip [ad_conn peeraddr] $pretty_name]} errmsg]} {
+    if {[catch {set room_id [chat_room_new \
+				 -moderated_p       $moderated_p \
+				 -description       $description \
+				 -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 \
+				 -context_id        [ad_conn package_id] \
+				 -creation_user     [ad_conn user_id] \
+				 -creation_ip       [ad_conn peeraddr] $pretty_name]} errmsg]} {
         ad_return_complaint 1 "[_ chat.Create_new_room_failed]: $errmsg"
         break
     }
     set comm_id ""
     if {[info commands dotlrn_community::get_community_id] ne ""} {
-      set comm_id [dotlrn_community::get_community_id] 
+	set comm_id [dotlrn_community::get_community_id] 
     }
     if {$comm_id ne ""} {
-      chat_user_grant $room_id $comm_id
+	chat_user_grant $room_id $comm_id
     } else {
-      #-2 Registered Users
-      #chat_user_grant $room_id -2 
-      #0 Unregistered Visitor
-      #chat_user_grant $room_id 0
-      #-1 The Public
-      chat_user_grant $room_id -2
+	#-2 Registered Users
+	#chat_user_grant $room_id -2 
+	#0 Unregistered Visitor
+	#chat_user_grant $room_id 0
+	#-1 The Public
+	chat_user_grant $room_id -2
     }
 } -edit_request {
-    if {[catch {db_1row room_info {
-        select pretty_name, description, moderated_p, archive_p, active_p, auto_flush_p, auto_transcript_p
-        from chat_rooms
-        where room_id = :room_id}} errmsg]} {
+    if {[catch {db_1row room_info "
+        select pretty_name,
+	       description,
+	       moderated_p, 
+               archive_p, 
+               active_p, 
+               auto_flush_p, 
+               auto_transcript_p,
+               login_messages_p,
+               logout_messages_p
+          from chat_rooms
+         where room_id = :room_id"} errmsg]} {
         ad_return_complaint 1 "[_ chat.Room_not_found]."
         break
     }
 } -edit_data {
-    if {[catch {chat_room_edit $room_id $pretty_name $description $moderated_p $active_p $archive_p $auto_flush_p $auto_transcript_p} errmsg]} {
+    if {[catch {chat_room_edit \
+		    $room_id \
+		    $pretty_name \
+		    $description \
+		    $moderated_p \
+		    $active_p \
+		    $archive_p \
+		    $auto_flush_p \
+		    $auto_transcript_p \
+		    $login_messages_p \
+		    $logout_messages_p
+		} errmsg]} {
         ad_return_complaint 1 "[_ chat.Could_not_update_room]: $errmsg"
         break
     }