Index: openacs-4/contrib/obsolete-packages/library/tcl/km-admin-lib-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/library/tcl/km-admin-lib-procs.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/library/tcl/km-admin-lib-procs.tcl	2 Jul 2003 12:19:41 -0000	1.1
+++ openacs-4/contrib/obsolete-packages/library/tcl/km-admin-lib-procs.tcl	13 Feb 2009 20:40:39 -0000	1.2
@@ -64,14 +64,14 @@
     return $list_to_return
 }
 
-proc_doc km_new_acs_object_id {} {
+ad_proc km_new_acs_object_id {} {
     Returns a new acs_object_id
 } {
     set result [db_string km_new_acs_object_id "select acs_object_id_seq.nextval from dual"]
     return $result
 }
 
-proc_doc km_sort_key_list { object_type_id } {
+ad_proc km_sort_key_list { object_type_id } {
 
     Returns a list of sort_keys available for this object_type
     (sort_keys are offered as increments of 10 and should *NEVER* be
@@ -118,7 +118,7 @@
     }
 }
 
-proc_doc km_pretty_adt { abstract_data_type } {
+ad_proc km_pretty_adt { abstract_data_type } {
     Returns the pretty abstract data type
 } {
     switch $abstract_data_type {
@@ -140,7 +140,7 @@
 }
 
 
-proc_doc km_pretty_tag { presentation_type } {
+ad_proc km_pretty_tag { presentation_type } {
     Returns the pretty tag name 
 } {
     switch $presentation_type {