Index: openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl,v diff -u -r1.7 -r1.8 --- openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl 13 Sep 2002 20:10:45 -0000 1.7 +++ openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl 24 Sep 2002 09:16:37 -0000 1.8 @@ -465,19 +465,19 @@ @cvs-id $Id$ } -ad_proc empty_string_p {query_string} { +ad_proc -public empty_string_p {query_string} { returns 1 if a string is empty; this is better than using == because it won't fail on long strings of numbers } - -ad_proc acs_root_dir {} { +ad_proc -public acs_root_dir {} { Returns the path root for the OpenACS installation. } - -ad_proc acs_package_root_dir { package } { +ad_proc -public acs_package_root_dir { package } { Returns the path root for a particular package within the OpenACS installation. } - -ad_proc ad_make_relative_path { path } { +ad_proc -public ad_make_relative_path { path } { Returns the relative path corresponding to absolute path $path. } -