Index: openacs-4/packages/acs-tcl/tcl/defs-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/defs-procs.tcl,v
diff -u -N -r1.30 -r1.31
--- openacs-4/packages/acs-tcl/tcl/defs-procs.tcl	18 Sep 2003 17:08:39 -0000	1.30
+++ openacs-4/packages/acs-tcl/tcl/defs-procs.tcl	23 Sep 2003 19:50:11 -0000	1.31
@@ -8,7 +8,7 @@
     @cvs-id defs-procs.tcl,v 1.19.2.2 2003/03/28 13:43:28 lars Exp
 }
 
-ad_proc ad_acs_version {} {
+ad_proc -public ad_acs_version {} {
     The OpenACS version of this instance.
 
     @return version string (major.minor.release)
@@ -24,7 +24,7 @@
     }
 }
 
-ad_proc ad_acs_release_date {} {
+ad_proc -public ad_acs_release_date {} {
     The OpenACS release date of this instance.
 
     @return pretty version of the release date
@@ -42,7 +42,7 @@
     }
 }
 
-ad_proc ad_host_administrator {} {
+ad_proc -public ad_host_administrator {} {
     As defined in the HostAdministrator kernel parameter.
 
     @return The e-mail address of a technical person who can fix problems
@@ -57,7 +57,7 @@
 }
 
 
-ad_proc ad_graphics_site_available_p {} {
+ad_proc -deprecated ad_graphics_site_available_p {} {
     As defined in the GraphicsSiteAvailableP kernel parameter.
     @return 1 if there is a graphics site
 } {
@@ -87,7 +87,7 @@
 
 # is this accurate? (rbm, aug 2002)
 
-ad_proc ad_package_admin_home { package_key } {
+ad_proc -public ad_package_admin_home { package_key } {
     @return directory for the especified package's admin home.
 } {
     return "[ad_admin_home]/$package_key"
@@ -100,11 +100,11 @@
     return [ad_parameter -package_id [ad_acs_kernel_id] HomeName]
 }
 
-proc ad_pvt_home_link {} {
+ad_proc -public ad_pvt_home_link {} {
     return "<a href=\"[ad_pvt_home]\">[ad_pvt_home_name]</a>"
 }
 
-ad_proc ad_site_home_link {} {
+ad_proc -public ad_site_home_link {} {
     @return a link to the user's workspace if the user is logged in. Otherwise, a link to the page root.
 } {
     if { [ad_get_user_id] != 0 } {
@@ -115,22 +115,22 @@
     }
 }
 
-ad_proc ad_system_owner {} {
+ad_proc -public ad_system_owner {} {
     Person who owns the service 
     this person would be interested in user feedback, etc.
 } {
     return [ad_parameter -package_id [ad_acs_kernel_id]  SystemOwner]
 }
 
 
-ad_proc ad_publisher_name {} {
+ad_proc -public ad_publisher_name {} {
     A human-readable name of the publisher, suitable for
     legal blather.
 } {
     return [ad_parameter -package_id [ad_acs_kernel_id]  PublisherName]
 }
 
-ad_proc ad_url {} {
+ad_proc -public ad_url {} {
     This will be called by email alerts. Do not use ad_conn location
     @return the system url as defined in the kernel parameter SystemURL.
 } {