Index: openacs-4/contrib/obsolete-packages/library/tcl/km-links-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/library/tcl/km-links-procs.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/library/tcl/km-links-procs.tcl	2 Jul 2003 12:19:41 -0000	1.1
+++ openacs-4/contrib/obsolete-packages/library/tcl/km-links-procs.tcl	13 Feb 2009 20:40:39 -0000	1.2
@@ -6,7 +6,7 @@
 #
 # $Id$
 
-proc_doc km_linked_object_types { object_type_id } {
+ad_proc km_linked_object_types { object_type_id } {
 
     Returns an array in the form: object_type_id, pretty_type, pretty_plural, graphic 
     for all object_types that are linkable with this object_type.
@@ -192,7 +192,7 @@
     return $result
 }
 
-proc_doc km8_get_to_links { {-only_unarchived_p 0} object_id question_id } {
+ad_proc km8_get_to_links { {-only_unarchived_p 0} object_id question_id } {
 
 } {
     set current_user_id [ad_conn user_id]
@@ -240,7 +240,7 @@
     return [map fst $result]
 }
 
-proc_doc sn_people_responsible {user_id object_id} {
+ad_proc sn_people_responsible {user_id object_id} {
 
     Returns a list of triples:user_id, full name, email of people
     responsible for this xchange_task project.
@@ -717,7 +717,7 @@
     }
 }
 
-proc_doc km_get_object_ancestors { object_id } {
+ad_proc km_get_object_ancestors { object_id } {
 
     Returns a list of ids of the parent of this object, the parent of 
     the parent of this object, etc. Will do this for normal links if
@@ -734,7 +734,7 @@
     return $result
 }
 
-proc_doc km_get_descendents { object_id } {
+ad_proc km_get_descendents { object_id } {
     Almost identical to the ancestor proc.
 } {
     set result [db_list_of_lists km_get_descendents "
@@ -794,7 +794,7 @@
     return $result
 }
 
-proc_doc km_get_child_objects { 
+ad_proc km_get_child_objects { 
     {-only_unarchived_p 0} object_id question_id 
 } {
     Returns an array containing the object_ids of the child objects
@@ -821,7 +821,7 @@
 	order by :order_by}]]
 }
 
-proc_doc km_get_nephew_objects { 
+ad_proc km_get_nephew_objects { 
     {-only_unarchived_p 0} object_id question_id 
 } {
     Returns an array containing the object_ids of the nephew objects
@@ -917,7 +917,7 @@
     return $nephew_questions_without_public_nephews
 }
 
-proc_doc km_link_question_attributes { question_id } {
+ad_proc km_link_question_attributes { question_id } {
     Returns the object_type_attributes for this object_link question.
 } {
     set context_id [ad_conn package_id]