Index: openacs-4/packages/cms/tcl/content-add-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/tcl/content-add-procs.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/cms/tcl/content-add-procs.tcl	20 Aug 2001 04:35:41 -0000	1.4
+++ openacs-4/packages/cms/tcl/content-add-procs.tcl	14 Aug 2002 03:57:42 -0000	1.5
@@ -38,26 +38,9 @@
 
     set target "revision-add-2?item_id=$item_id"
 
-    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 ""]
+    set mime_type_count [db_string count_mime_types ""]
 
-    template::query count_mime_types mime_type_count onevalue "
-      select
-        count(*)
-      from
-        cr_content_mime_type_map
-      where
-        content_type = :content_type
-    " 
-
     if { $mime_type_count > 0 } {
 
 	append content_method_html "Add revised content via \["