Index: openacs-4/packages/file-storage/tcl/file-storage-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-procs.xql,v
diff -u -N -r1.16 -r1.16.2.1
--- openacs-4/packages/file-storage/tcl/file-storage-procs.xql	13 Jan 2005 13:58:12 -0000	1.16
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.xql	15 Jul 2005 14:38:54 -0000	1.16.2.1
@@ -154,4 +154,14 @@
     select storage_type from cr_items where item_id=:item_id
   </querytext>
 </fullquery>
+
+<fullquery name="fs::add_file.image_type_p">
+    <querytext>
+        select 1
+        from cr_content_mime_type_map
+        where mime_type = :mime_type
+        and content_type = 'image'
+    </querytext>
+</fullquery>
+
 </queryset>
\ No newline at end of file