Index: openacs-4/packages/acs-content-repository/tcl/acs-content-repository-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/acs-content-repository-procs.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-content-repository/tcl/acs-content-repository-procs.xql	30 Nov 2002 17:16:03 -0000	1.3
+++ openacs-4/packages/acs-content-repository/tcl/acs-content-repository-procs.xql	16 Jan 2003 13:29:27 -0000	1.4
@@ -1,6 +1,16 @@
 <?xml version="1.0"?>
 <queryset>
 
+<fullquery name="cr_delete_scheduled_files.fetch_paths">      
+      <querytext>
+ SELECT distinct crftd.path as storage_area_key
+   FROM cr_files_to_delete crftd
+  WHERE not exists (SELECT 1
+                      FROM cr_revisions r
+                     WHERE r.content = crftd.path)
+      </querytext>
+</fullquery>
+
 <fullquery name="cr_delete_scheduled_files.delete_files">      
       <querytext>
       delete from cr_files_to_delete