Index: openacs-4/packages/acs-tcl/tcl/table-display-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/table-display-procs.tcl,v
diff -u -r1.20.8.11 -r1.20.8.12
--- openacs-4/packages/acs-tcl/tcl/table-display-procs.tcl	5 Dec 2013 11:16:43 -0000	1.20.8.11
+++ openacs-4/packages/acs-tcl/tcl/table-display-procs.tcl	9 Sep 2014 17:04:09 -0000	1.20.8.12
@@ -507,7 +507,7 @@
     return $Thtml
 }
 
-ad_proc ad_table_column_list {
+ad_proc -deprecated ad_table_column_list {
     { -sortable all }
     datadef columns
 } {
@@ -551,7 +551,7 @@
     return $column_list
 }
 
-ad_proc ad_sort_primary_key {orderby} {
+ad_proc -deprecated ad_sort_primary_key {orderby} {
     return the primary (first) key of an order spec
     used by 
 } {
@@ -561,7 +561,7 @@
     return $orderby
 }
 
-ad_proc ad_table_same varname {
+ad_proc -deprecated ad_table_same varname {
     Called from inside ad_table.
 
     returns true if the variable has same value as
@@ -576,14 +576,14 @@
     }
 }
         
-ad_proc ad_table_span {str {td_html "align=\"left\""}} {
+ad_proc -deprecated ad_table_span {str {td_html "align=\"left\""}} {
     given string the function generates a row which spans the 
     whole table.
 } {
     return "<tr><td colspan=\"[uplevel llength \$Tcolumn_list]\" $td_html>$str</td></tr>"
 }
 
-ad_proc ad_table_form {
+ad_proc -deprecated ad_table_form {
     datadef 
     {type select} 
     {return_url {}} 
@@ -693,7 +693,7 @@
     return $html
 }
 
-ad_proc ad_table_sort_form {
+ad_proc -deprecated ad_table_sort_form {
     datadef 
     {type select} 
     {return_url {}} 
@@ -1020,7 +1020,7 @@
     return $html
 }
 
-ad_proc ad_table_orderby_sql {datadef orderby order} {
+ad_proc -deprecated ad_table_orderby_sql {datadef orderby order} {
     create the order by clause consistent with the orderby and order variables
     and the datadef which built the table
 } {