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.7 -r1.8
--- openacs-4/packages/cms/tcl/content-method-procs.tcl	15 Aug 2002 03:39:34 -0000	1.7
+++ openacs-4/packages/cms/tcl/content-method-procs.tcl	16 Sep 2002 10:56:14 -0000	1.8
@@ -8,10 +8,8 @@
 namespace eval content_method {}
 
 
-ad_proc content_method::get_content_methods { content_type args } {
+ad_proc -public content_method::get_content_methods { content_type args } {
 
-  @public get_content_methods
-
   Returns a list of content_methods that are associated with 
   a content type, first checking for a default method, then for registered
   content methods, and then for all content methods
@@ -23,9 +21,10 @@
     a list of label-value pairs of associated content methods.
   @return A list of content methods or a list of label-value pairs of 
     content methods if the "-get_labels" option is specified
-  @see {content_method::get_content_method_options, 
-        content_method::text_entry_filter_sql }
 
+  @see content_method::get_content_method_options
+  @see content_method::text_entry_filter_sql
+
 } {
     template::util::get_opts $args
 
@@ -59,20 +58,19 @@
 }
 
 
-ad_proc content_method::get_content_method_options { content_type } {
+ad_proc -private content_method::get_content_method_options { content_type } {
 
-  @private get_content_method_options
-
   Returns a list of label, content_method pairs that are associated with 
   a content type, first checking for a default method, then for registered
   content methods, and then for all content methods
 
   @author Michael Pih
   @param content_type The content type
   @return A list of label, value pairs of content methods
-  @see {content_method::get_content_methods,
-        content_method::text_entry_filter_sql }
 
+  @see content_method::get_content_methods
+  @see content_method::text_entry_filter_sql
+
 } {
     
     set text_entry_filter [text_entry_filter_sql $content_type]
@@ -96,14 +94,13 @@
 }
 
 
-ad_proc content_method::text_entry_filter_sql { content_type } {
+ad_proc -private content_method::text_entry_filter_sql { content_type } {
 
-  @private text_entry_filter_sql
-
   Generate a SQL stub that filters out the text_entry content method
 
   @author Michael Pih
-  @param  content_type
+  @param  content_type mime type 
+
   @return SQL stub that possibly filters out the text_entry content method
 
 } {
@@ -122,10 +119,8 @@
 
 
 
-ad_proc content_method::flush_content_methods_cache { {content_type ""} } {
+ad_proc -public content_method::flush_content_methods_cache { {content_type ""} } {
 
-  @public flush_content_method_cache
-
   Flushes the cache for content_method_types for a given content type.  If no
   content type is specified, the entire content_method_types cache is
   flushed