Index: openacs-4/packages/cms/tcl/search-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/tcl/search-procs.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/cms/tcl/search-procs.tcl	20 Apr 2001 20:51:09 -0000	1.1
+++ openacs-4/packages/cms/tcl/search-procs.tcl	20 Aug 2001 04:35:42 -0000	1.2
@@ -2,13 +2,16 @@
 
 namespace eval search {}
 
-# Convert a list of keywords, such as "rat fish bird"
-# into an Intermedia search clause of the form
-# %rat%, %fish%, %bird%
-# If the -within varname option is specified, use the within clause
-# In the future, do something so that the scoring is consistent
-proc search::intermedia_keywords { keywords args } {
+ad_proc -public search::intermedia_keywords { keywords args } {
 
+    Convert a list of keywords, such as "rat fish bird"
+    into an Intermedia search clause of the form
+    %rat%, %fish%, %bird%
+    If the -within varname option is specified, use the within clause
+    In the future, do something so that the scoring is consistent
+
+} {
+
   template::util::get_opts args
 
   set word_list [split $keywords " "]
@@ -24,4 +27,4 @@
   }
 
   return $inter_clause
-}
\ No newline at end of file
+}