Index: openacs-4/packages/acs-templating/tcl/table-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/table-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-templating/tcl/table-procs.tcl	27 Apr 2001 02:27:09 -0000	1.2
+++ openacs-4/packages/acs-templating/tcl/table-procs.tcl	9 May 2001 05:15:58 -0000	1.3
@@ -45,7 +45,7 @@
 
 # Create the widget data structure
 
-proc template::widget::table::create { statement_name name args } {
+ad_proc -public template::widget::table::create { statement_name name args } {
 
   upvar "tablewidget:${name}" widget
 
@@ -56,15 +56,15 @@
 }
 
 # Get the order by clause for the widget, other parameters (?)
-proc template::widget::table::get_params { name {level 1} } {
+ad_proc -public template::widget::table::get_params { name {level 1} } {
   
   upvar $level "tablewidget:${name}" widget
 
   set widget(orderby) [ns_queryget "tablewidget:${name}_orderby"]
 }
 
 # Create the default column definition if none exists
-proc template::widget::table::default_column_def { name { level 2} } {
+ad_proc -public template::widget::table::default_column_def { name { level 2} } {
 
   upvar $level "tablewidget:${name}" widget
 
@@ -84,7 +84,7 @@
 }
 
 # Compose the query, if neccessary, and define the datasources
-proc template::widget::table::prepare { statement_name name {level 1} } {
+ad_proc -public template::widget::table::prepare { statement_name name {level 1} } {
   
   upvar $level "tablewidget:${name}" widget