Index: openacs-4/packages/file-storage/tcl/fs-simple-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/Attic/fs-simple-procs.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/file-storage/tcl/fs-simple-procs.xql	2 Apr 2002 07:00:53 -0000	1.1
+++ openacs-4/packages/file-storage/tcl/fs-simple-procs.xql	29 May 2002 23:02:19 -0000	1.2
@@ -26,4 +26,12 @@
 </querytext>
 </fullquery>
 
+<fullquery name="fs::simple_p.simple_check">      
+<querytext>
+select case when count(*) = 0 then 0 else 1 end
+from fs_simple_objects
+where object_id = :object_id
+</querytext>
+</fullquery>
+
 </queryset>