Index: openacs-4/packages/cms/tcl/content-add-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/tcl/content-add-procs.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/cms/tcl/content-add-procs.xql	2 Jul 2001 14:25:12 -0000	1.1
@@ -0,0 +1,19 @@
+<?xml version="1.0"?>
+<queryset> 
+	<fullquery name="count_text_mime_types">
+		<querytext>
+			select count(*)
+			from cr_content_mime_type_map
+			where mime_type like ('%text/%')
+			 and content_type = :content_type
+		</querytext>
+	</fullquery>
+
+	<fullquery name="count_mime_types">
+		<querytext>
+			select count(*)
+			from cr_content_mime_type_map
+			where content_type = :content_type
+		</querytext>
+	</fullquery>
+</queryset>