Index: openacs-4/packages/acs-tcl/tcl/deprecated-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/deprecated-procs.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/acs-tcl/tcl/deprecated-procs.tcl	12 Apr 2018 06:40:32 -0000	1.14
+++ openacs-4/packages/acs-tcl/tcl/deprecated-procs.tcl	25 Apr 2018 08:46:13 -0000	1.15
@@ -1861,7 +1861,7 @@
 }
 
 ad_proc -deprecated ad_order_by_from_sort_spec {sort_by tabledef} {
-    Takes a sort_by spec, and translates it into into an "order by" clause
+    Takes a sort_by spec, and translates it into an "order by" clause
     with each sort_by key dictated by the sort info in tabledef
 } {
     set order_by_clause {}
@@ -2086,10 +2086,11 @@
 
 
 
-#
+########################################################################
 # was in set-operation-procs.tcl
-#
+########################################################################
 
+
 ad_proc -deprecated set_member? { s v } {
     <p>Tests whether or not $v is a member of set $s.</p>
 } {
@@ -2216,9 +2217,10 @@
     return $result
 }
 
-#
+########################################################################
 # from tcl/navigation-procs.tcl
-#
+########################################################################
+
 ad_proc -deprecated -public ad_context_bar_ws args {
     Returns a Yahoo-style hierarchical navbar. Use ad_context_bar instead.
 
@@ -2257,9 +2259,9 @@
 }
 
 
-#
+########################################################################
 # From tcl/http-client-procs.tcl
-#
+########################################################################
 
 #########################
 ## Deprecated HTTP api ##
@@ -2767,11 +2769,10 @@
     return $page
 }
 
-#
+########################################################################
 # from tcl/community-core-procs.tcl
-#
+########################################################################
 
-
 ad_proc -deprecated -private cc_lookup_screen_name_user { screen_name } {
     @see acs_user::get_user_id_by_screen_name
 } {
@@ -2888,8 +2889,9 @@
 
 }
 
-#
+########################################################################
 # from tcl/00-database-procs.tcl
+########################################################################
 #
 ad_proc -deprecated db_package_supports_rdbms_p { db_type_list } {
     @return 1 if db_type_list contains the current RDMBS type.  A package intended to run with a given RDBMS must note this in its package info file regardless of whether or not it actually uses the database.
@@ -2910,20 +2912,22 @@
     return 0
 }
 
-#
+########################################################################
 #  from tcl/apm-procs.tcl
-# 
+########################################################################
 
+
 ad_proc -public -deprecated apm_doc_body_callback { string } {
     This callback uses the document api to append more text to the stream.
 } {
     doc_body_append $string
 }
 
-#
+########################################################################
 #  from tcl/apm-file-procs.tcl
-# 
+########################################################################
 
+
 ad_proc -public -deprecated pkg_home {package_key} {
 
     @return A server-root relative path to the directory for a package.  Usually /packages/package-key
@@ -2933,9 +2937,9 @@
     return "/packages/$package_key"
 }
 
-#
-# deprecated-utilities-procs.tcl
-#
+########################################################################
+# deprecated utilities-procs.tcl
+########################################################################
 
 # ad_library {
 #
@@ -3169,7 +3173,11 @@
     }
 }
 
+########################################################################
+# deprecated site-nodes-procs.tcl
+########################################################################
 
+
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4