Index: openacs-4/packages/cms/tcl/content-method-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/tcl/content-method-procs.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/cms/tcl/content-method-procs.tcl	14 Aug 2002 03:57:42 -0000	1.6
+++ openacs-4/packages/cms/tcl/content-method-procs.tcl	15 Aug 2002 03:39:34 -0000	1.7
@@ -110,16 +110,7 @@
     
     set text_entry_filter_sql ""
 
-    template::query count_text_mime_types has_text_mime_type onevalue "
-      select
-        count(*)
-      from
-        cr_content_mime_type_map
-      where
-        mime_type like ('%text/%')
-      and
-        content_type = :content_type
-    "
+    set has_text_mime_type [db_string count_text_mime_types ""]
 
     if { $has_text_mime_type == 0 } {
 	set text_entry_filter_sql \
@@ -145,6 +136,8 @@
 } {
 
     if { [template::util::is_nil content_type] } {
+        # FIXME: figure out what to do with these after template::query calls
+        # are gone.
 
 	# flush the entire content_method_types cache
 	template::query::flush_cache "content_method_types*"