Index: openacs-4/packages/acs-templating/tcl/request-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/request-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-templating/tcl/request-procs.tcl	13 Mar 2001 22:59:27 -0000	1.1
+++ openacs-4/packages/acs-templating/tcl/request-procs.tcl	9 May 2001 05:15:58 -0000	1.2
@@ -19,7 +19,7 @@
 
 # @see form element
 
-proc template::request { command args } {
+ad_proc -public template::request { command args } {
   eval request::$command $args
 }
 
@@ -32,7 +32,7 @@
 #                Equivalent to calling set_param for each parameter, but
 #                requiring slightly less typing.
 
-proc template::request::create { args } {
+ad_proc -public template::request::create { args } {
 
   eval template::form::create request $args
 
@@ -84,7 +84,7 @@
 
 # @see element::create
 
-proc template::request::set_param { name args } {
+ad_proc -public template::request::set_param { name args } {
 
   set level [template::adp_level]
   eval template::element::create request $name $args
@@ -108,7 +108,7 @@
 
 # @return The value of the specified parameter.
 
-proc template::request::get_param { name } {
+ad_proc -public template::request::get_param { name } {
 
   set level [template::adp_level]
   upvar #$level request:$name param
@@ -137,7 +137,7 @@
 #             be used for layout purposes.
 # @param msg  The message text associated with the condition.
 
-proc template::request::error { args } {
+ad_proc -public template::request::error { args } {
 
   set level [template::adp_level]
   upvar #$level request:error requesterror
@@ -161,7 +161,7 @@
 
 # @return 1 if no error conditions exist, 0 otherwise.
 
-proc template::request::is_valid { { url "" } } {
+ad_proc -public template::request::is_valid { { url "" } } {
 
   set level [template::adp_level]
   upvar #$level request:error requesterror