Index: openacs-4/contrib/packages/irc-logger/tcl/irc-logger-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/irc-logger/tcl/irc-logger-procs.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/packages/irc-logger/tcl/irc-logger-procs.xql	30 Jan 2003 02:48:48 -0000	1.1
+++ openacs-4/contrib/packages/irc-logger/tcl/irc-logger-procs.xql	10 Mar 2003 20:27:32 -0000	1.2
@@ -1,6 +1,47 @@
 <?xml version="1.0"?>
 <queryset>
 
+  <partialquery name="irc::logger::rotate_logs.i1_criteria">
+    <querytext>
+      (i1.content_type <> 'content_extlink' or
+	i1.content_type is null)
+    </querytext>
+  </partialquery>
+
+  <partialquery name="irc::logger::rotate_logs.i2_criteria">
+    <querytext>
+      (i2.content_type <> 'content_extlink' or
+	i2.content_type is null)
+    </querytext>
+  </partialquery>
+
+  <fullquery name="irc::logger::rotate_logs.shift">
+    <querytext>
+      update cr_items 
+      set tree_sortkey = :next_sortkey
+      where item_id = :item_id
+    </querytext>
+  </fullquery>
+  
+  <fullquery name="irc::logger::update_log.get_extlink">
+    <querytext>
+      select extlink_id 
+      from cr_extlinks e, cr_items i, cr_folders f
+      where i.item_id = e.extlink_id
+      and i.parent_id = f.folder_id
+      and f.package_id = :parent_package_id
+      and e.label = 'current'
+    </querytext>
+  </fullquery>
+
+  <fullquery name="irc::logger::update_log.update_extlink">
+    <querytext>
+      update cr_extlinks
+      set url = :log_url
+      where extlink_id = :extlink_id
+    </querytext>
+  </fullquery>
+
   <fullquery name="irc::logger::update_log.update_revision">
     <querytext>
       update cr_revisions