Index: openacs-4/packages/new-portal/tcl/portal-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/portal-procs.tcl,v diff -u -N -r1.204 -r1.205 --- openacs-4/packages/new-portal/tcl/portal-procs.tcl 17 May 2018 15:23:05 -0000 1.204 +++ openacs-4/packages/new-portal/tcl/portal-procs.tcl 22 May 2018 07:32:49 -0000 1.205 @@ -77,44 +77,39 @@ # The management is not responsible for the results of multi-mounting set ::portal::package_key "new-portal" -ad_proc -deprecated -private portal::package_key {} { +ad_proc -private portal::package_key {} { Returns the package_key - DEPRECATED: use threaded cache directly } { return $::portal::package_key } set ::portal::get_package_id [apm_package_id_from_key $::portal::package_key] -ad_proc -deprecated -public portal::get_package_id {} { +ad_proc -public portal::get_package_id {} { returns the package ID - DEPRECATED: use threaded cache directly } { return $::portal::get_package_id } # Work around for template::util::url_to_file set ::portal::www_path /packages/${::portal::package_key}/www -ad_proc -deprecated -private portal::www_path {} { +ad_proc -private portal::www_path {} { Returns the path of the www dir of the portal package. We need this for stupid template tricks. - DEPRECATED: use threaded cache directly } { return $::portal::www_path } set ::portal::mount_point [site_node::get_url_from_object_id \ -object_id $::portal::get_package_id] -ad_proc -deprecated -public portal::mount_point {} { +ad_proc -public portal::mount_point {} { caches the mount point - DEPRECATED: use threaded cache directly } { return $::portal::mount_point } set ::portal::automount_point "portal" -ad_proc -deprecated -public portal::automount_point {} { +ad_proc -public portal::automount_point {} { packages such as dotlrn can automount the portal here - DEPRECATED: use threaded cache directly } { return $::portal::automount_point }