Index: openacs-4/packages/acs-content-repository/tcl/content-keyword-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/content-keyword-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-content-repository/tcl/content-keyword-procs.tcl	13 Jun 2004 18:44:22 -0000	1.2
+++ openacs-4/packages/acs-content-repository/tcl/content-keyword-procs.tcl	7 Dec 2004 06:58:56 -0000	1.3
@@ -26,10 +26,11 @@
 }
 
 
-ad_proc -public content::keyword::del {
+ad_proc -public content::keyword::delete {
     -keyword_id:required
 } {
     @param keyword_id
+    @return 0 
 } {
     return [package_exec_plsql -var_list [list \
         [list keyword_id $keyword_id ] \
@@ -42,7 +43,7 @@
 } {
     @param keyword_id
 
-    @return VARCHAR2
+    @return string with description 
 } {
     return [package_exec_plsql -var_list [list \
         [list keyword_id $keyword_id ] \
@@ -55,7 +56,7 @@
 } {
     @param keyword_id
 
-    @return VARCHAR2
+    @return string with heading
 } {
     return [package_exec_plsql -var_list [list \
         [list keyword_id $keyword_id ] \
@@ -68,7 +69,7 @@
 } {
     @param keyword_id
 
-    @return VARCHAR2
+    @return "/" delimited path in the keyword tree to the supplied keyword
 } {
     return [package_exec_plsql -var_list [list \
         [list keyword_id $keyword_id ] \
@@ -85,7 +86,7 @@
     @param keyword_id
     @param recurse
 
-    @return VARCHAR2
+    @return t or f
 } {
     return [package_exec_plsql -var_list [list \
         [list item_id $item_id ] \
@@ -100,7 +101,7 @@
 } {
     @param keyword_id
 
-    @return VARCHAR2
+    @return t or f
 } {
     return [package_exec_plsql -var_list [list \
         [list keyword_id $keyword_id ] \
@@ -120,6 +121,10 @@
     @param context_id
     @param creation_user
     @param creation_ip
+
+    Associate a keyword with a CR item.
+
+    @return 0
 } {
     return [package_exec_plsql -var_list [list \
         [list item_id $item_id ] \
@@ -137,6 +142,8 @@
 } {
     @param item_id
     @param keyword_id
+
+    @return 0
 } {
     return [package_exec_plsql -var_list [list \
         [list item_id $item_id ] \
@@ -164,7 +171,7 @@
     @param creation_ip
     @param object_type
 
-    @return NUMBER(38)
+    @return keyword_id of created keyword
 } {
     return [package_exec_plsql -var_list [list \
         [list heading $heading ] \
@@ -185,6 +192,7 @@
 } {
     @param keyword_id
     @param description
+    @return 0
 } {
     return [package_exec_plsql -var_list [list \
         [list keyword_id $keyword_id ] \
@@ -199,6 +207,7 @@
 } {
     @param keyword_id
     @param heading
+    @return 0
 } {
     return [package_exec_plsql -var_list [list \
         [list keyword_id $keyword_id ] \