Index: openacs-4/packages/chat/tcl/chat-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/tcl/chat-procs-postgresql.xql,v
diff -u -r1.1 -r1.1.2.1
--- openacs-4/packages/chat/tcl/chat-procs-postgresql.xql	14 Mar 2006 12:16:09 -0000	1.1
+++ openacs-4/packages/chat/tcl/chat-procs-postgresql.xql	7 Apr 2006 16:59:52 -0000	1.1.2.1
@@ -10,6 +10,8 @@
              :moderated_p,
              :active_p,
              :archive_p,
+             :auto_flush_p,
+             :auto_transcript_p,
              :context_id,
              now(),
              :creation_user,
@@ -122,7 +124,9 @@
                 :description,
 	        :moderated_p,
 	        :active_p,
-                :archive_p
+            :archive_p,
+            :auto_flush_p,
+            :auto_transcript_p
 	    );
             return 0;
 	end;
@@ -217,7 +221,23 @@
       </querytext>
 </fullquery>
 
+<fullquery name="chat_flush_rooms.get_rooms">
+      <querytext>
+            select room_id 
+            from chat_rooms 
+            where archive_p = 't' and auto_flush_p = 't'
+      </querytext>
+</fullquery>
 
+<fullquery name="chat_room_flush.get_archives_messages">
+  <querytext>
+    select msg, creation_user, to_char(creation_date, 'DD.MM.YYYY hh24:mi:ss') as creation_date
+    from chat_msgs
+    where room_id = :room_id
+          and msg is not null
+    order by creation_date
+  </querytext>
+</fullquery>
 
 </queryset>