Index: openacs-4/packages/chat/tcl/chat-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/tcl/chat-procs.xql,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/chat/tcl/chat-procs.xql	19 Nov 2007 01:14:16 -0000	1.4
+++ openacs-4/packages/chat/tcl/chat-procs.xql	7 Aug 2017 23:48:07 -0000	1.5
@@ -1,27 +1,85 @@
 <?xml version="1.0"?>
-
 <queryset>
 
-  <fullquery name="chat_transcript_new.update_contents">
+  <fullquery name="chat_room_new.insert_room">
     <querytext>
-	update chat_transcripts 
-	set contents = :contents 
-	where transcript_id = :transcript_id
+      insert into chat_rooms (
+            room_id,
+            pretty_name,
+            description,
+            moderated_p,
+            active_p,
+            archive_p,
+            auto_flush_p,
+            auto_transcript_p,
+            login_messages_p,
+            logout_messages_p,
+	    messages_time_window
+        ) values (
+            :room_id,
+            :pretty_name,
+            :description,
+            :moderated_p,
+            :active_p,
+            :archive_p,
+            :auto_flush_p,
+            :auto_transcript_p,
+            :login_messages_p,
+            :logout_messages_p,
+	    :messages_time_window	    
+        )
     </querytext>
   </fullquery>
 
-  <fullquery name="chat_transcript_edit.update_contents">
+  <fullquery name="chat_room_edit.update_room">
     <querytext>
-	update chat_transcripts 
-	set contents = :contents 
-	where transcript_id = :transcript_id
+      update chat_rooms set
+         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,
+	 messages_time_window = :messages_time_window
+      where room_id = :room_id
     </querytext>
   </fullquery>
 
+  <fullquery name="chat_transcript_new.insert_transcript">
+    <querytext>
+      insert into chat_transcripts (
+              transcript_id
+             ,pretty_name
+	     ,contents
+	     ,description
+	     ,room_id
+	   ) values (
+	      :transcript_id
+	     ,:pretty_name
+	     ,:contents
+	     ,:description
+	     ,:room_id
+	   )
+    </querytext>
+  </fullquery>
+
+  <fullquery name="chat_transcript_edit.update_transcript">
+    <querytext>
+      update chat_transcripts set
+         pretty_name = :pretty_name,
+         contents    = :contents,
+         description = :description
+      where transcript_id = :transcript_id;
+    </querytext>
+  </fullquery>
+
   <fullquery name="chat_flush_rooms.get_rooms">
     <querytext>
-            select room_id 
-            from chat_rooms 
+            select room_id
+            from chat_rooms
             where archive_p = 't' and auto_flush_p = 't'
     </querytext>
   </fullquery>
@@ -37,4 +95,3 @@
   </fullquery>
 
 </queryset>
-