Index: openacs-4/contrib/obsolete-packages/library/tcl/km-branch-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/library/tcl/km-branch-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/library/tcl/km-branch-procs.tcl	2 Jul 2003 12:19:41 -0000	1.1
+++ openacs-4/contrib/obsolete-packages/library/tcl/km-branch-procs.tcl	13 Feb 2009 20:40:39 -0000	1.2
@@ -62,7 +62,7 @@
     return $result
 } 
 
-proc_doc km_default_branch { root_branch_id } {
+ad_proc km_default_branch { root_branch_id } {
     Returns the default branch of a branch node.
 } {
     set default_branch [db_string km_default_branch "
@@ -76,7 +76,7 @@
     return $default_branch
 }
 
-proc_doc km_branch_parent { question_id object_type_id } {
+ad_proc km_branch_parent { question_id object_type_id } {
     Returns the parent_question_id of this question iff this is a branch.
 } {
     set result [db_string km_branch_parent "
@@ -89,7 +89,7 @@
     return $result
 }
 
-proc_doc km_composite_parent { question_id object_type_id } {
+ad_proc km_composite_parent { question_id object_type_id } {
     Returns the parent_question_id of this question if this is a composite child.
 } {
     set result [db_string km_composite_parent "
@@ -104,7 +104,7 @@
     return $result
 }
 
-proc_doc km_get_root_branch { question_id object_type_id} {
+ad_proc km_get_root_branch { question_id object_type_id} {
     Returns the id of the root question of this branch.
 } { 
     set result [db_string km_get_root_branch "
@@ -117,7 +117,7 @@
     return $result
 }
 
-proc_doc km_root_branch_p { question_id } {
+ad_proc km_root_branch_p { question_id } {
     Returns true if this question is a root of a  branch (at any level)
 } {
     return [db_string km_root_branch_p {
@@ -128,7 +128,7 @@
     }]
 }
 
-proc_doc km_composite_child_p { question_id object_type_id } {
+ad_proc km_composite_child_p { question_id object_type_id } {
     Returns 1 if this question is the child of a composite question, 0 otherwise.
     Included here because the distinction between branches and composite children is slight.
 } {
@@ -142,7 +142,7 @@
     return 0
 }
 
-proc_doc km_active_branch_path { root_question_id object_id object_type_id } {
+ad_proc km_active_branch_path { root_question_id object_id object_type_id } {
 
     Returns the sequence of questions after this root branch question that
     are part of the active branch path for this object.
@@ -186,7 +186,7 @@
     }
 }
 
-proc_doc km_active_path_p { question_id object_id object_type_id } {
+ad_proc km_active_path_p { question_id object_id object_type_id } {
 
     Returns 1 if this question is on an active branch path or is not on a branch at all. 
     Returns 0 if this question is not on a central branch path (i.e. it is decoupled