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.1.4.1 -r1.1.4.2
--- openacs-4/packages/acs-content-repository/tcl/acs-content-repository-procs.xql	27 Sep 2002 15:02:06 -0000	1.1.4.1
+++ openacs-4/packages/acs-content-repository/tcl/acs-content-repository-procs.xql	6 Dec 2002 12:40:22 -0000	1.1.4.2
@@ -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