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 -N -r1.1 -r1.2
--- openacs-4/packages/cms/tcl/content-method-procs.tcl	20 Apr 2001 20:51:09 -0000	1.1
+++ openacs-4/packages/cms/tcl/content-method-procs.tcl	12 Jul 2001 06:37:26 -0000	1.2
@@ -25,7 +25,7 @@
 # @see {content_method::get_content_method_options, 
 #       content_method::text_entry_filter_sql }
 
-proc content_method::get_content_methods { content_type args } {
+ad_proc content_method::get_content_methods { content_type args } {
     template::util::get_opts $args
 
     if { [info exists opts(get_labels)] } {
@@ -37,7 +37,7 @@
     set text_entry_filter [text_entry_filter_sql $content_type]
 
     # get default content method (if any)
-    template::query default_method onevalue "
+    template::query get_default_method default_method onevalue "
       select 
         content_method 
       from
@@ -96,7 +96,7 @@
 # @see {content_method::get_content_methods,
 #       content_method::text_entry_filter_sql }
 
-proc content_method::get_content_method_options { content_type } {
+ad_proc content_method::get_content_method_options { content_type } {
     
     set text_entry_filter [text_entry_filter_sql $content_type]
 
@@ -158,11 +158,11 @@
 # @param  content_type
 # @return SQL stub that possibly filters out the text_entry content method
 
-proc content_method::text_entry_filter_sql { content_type } {
+ad_proc content_method::text_entry_filter_sql { content_type } {
     
     set text_entry_filter_sql ""
 
-    template::query has_text_mime_type onevalue "
+    template::query count_text_mime_types has_text_mime_type onevalue "
       select
         count(*)
       from
@@ -194,7 +194,7 @@
 # @author Michael Pih
 # @param content_type The content type, default null
 
-proc content_method::flush_content_methods_cache { {content_type ""} } {
+ad_proc content_method::flush_content_methods_cache { {content_type ""} } {
 
     if { [template::util::is_nil content_type] } {