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.2 -r1.3
--- openacs-4/packages/chat/tcl/chat-procs.xql	24 Jun 2006 14:23:41 -0000	1.2
+++ openacs-4/packages/chat/tcl/chat-procs.xql	7 Jun 2007 09:14:24 -0000	1.3
@@ -17,12 +17,14 @@
 	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' and auto_flush_p = 't'
+            where archive_p = 't'
     </querytext>
   </fullquery>
 
@@ -31,10 +33,41 @@
       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>