Index: openacs-4/packages/chat/tcl/chat-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/tcl/Attic/chat-procs.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/chat/tcl/chat-procs.xql	7 Jun 2007 09:14:24 -0000	1.3
+++ openacs-4/packages/chat/tcl/chat-procs.xql	19 Nov 2007 01:14:16 -0000	1.4
@@ -17,14 +17,12 @@
 	where transcript_id = :transcript_id
     </querytext>
   </fullquery>
-  
-  
 
   <fullquery name="chat_flush_rooms.get_rooms">
     <querytext>
             select room_id 
             from chat_rooms 
-            where archive_p = 't'
+            where archive_p = 't' and auto_flush_p = 't'
     </querytext>
   </fullquery>
 
@@ -33,41 +31,10 @@
       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 creation_date >= :time 
           and msg is not null
       order by creation_date
     </querytext>
   </fullquery>
-  
-  <fullquery name="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> 
-  
-  <fullquery name="chat_room_message_delete.delete_message">
-    <querytext>
-   	 begin
-            perform chat_room__delete_all_msgs(:room_id);
-            return 0;
-         end;
-    </querytext>
-  </fullquery> 
-  
-  <fullquery name="chat_room_flush.get_files_sent">
-  	<querytext>
-    	select fs.send_file_id as f_id
-      from chat_rooms_files_sent fs
-      where room_id = :room_id
-      	  and date >= :time 
-  	</querytext>
-  </fullquery>
-  
- 
-  
+
 </queryset>