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.15.2.1 -r1.15.2.2
--- openacs-4/packages/chat/www/room-edit.tcl	14 Feb 2019 16:15:01 -0000	1.15.2.1
+++ openacs-4/packages/chat/www/room-edit.tcl	26 Feb 2019 18:06:43 -0000	1.15.2.2
@@ -72,7 +72,12 @@
         {help_text "[_ chat.MessagesTimeWindowHelp]"}
         {value "$four_hours"}
     }
-
+    {avatar_p:boolean(radio)
+        {label "#chat.ShowAvatar#" }
+        {options {{"#acs-kernel.common_Yes#" t} {"#acs-kernel.common_no#" f}}}
+        {value "t"}
+        {help_text "[_ chat.ShowAvatarHelp]"}
+    }
 } -new_data {
     if {[catch {
         set room_id [chat_room_new \
@@ -85,6 +90,7 @@
             -login_messages_p     $login_messages_p \
             -logout_messages_p    $logout_messages_p \
             -messages_time_window $messages_time_window \
+            -avatar_p             $avatar_p \
             -context_id           [ad_conn package_id] \
             -creation_user        [ad_conn user_id] \
             -creation_ip          [ad_conn peeraddr] $pretty_name]
@@ -118,6 +124,7 @@
         set login_messages_p     $r(login_messages_p)
         set logout_messages_p    $r(logout_messages_p)
         set messages_time_window $r(messages_time_window)
+        set avatar_p             $r(avatar_p)
     } errmsg]} {
         ad_return_complaint 1 "[_ chat.Room_not_found]."
         ad_script_abort
@@ -135,7 +142,8 @@
             $auto_transcript_p \
             $login_messages_p \
             $logout_messages_p \
-            $messages_time_window
+            $messages_time_window \
+            $avatar_p
     } errmsg]} {
         ad_return_complaint 1 "[_ chat.Could_not_update_room]: $errmsg"
         ad_script_abort