Index: openacs-4/packages/acs-lang/tcl/apm-callback-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/apm-callback-procs.tcl,v diff -u -r1.3 -r1.3.2.1 --- openacs-4/packages/acs-lang/tcl/apm-callback-procs.tcl 7 Aug 2017 23:47:56 -0000 1.3 +++ openacs-4/packages/acs-lang/tcl/apm-callback-procs.tcl 8 Aug 2024 12:19:07 -0000 1.3.2.1 @@ -17,8 +17,32 @@ } { After install callback } { + } +ad_proc -private lang::apm::after_mount { + -package_id:required + -node_id:required +} { + + Modify default permissions after mount to restrict read access to + the package from public read to read access for registered users. + +} { + #ns_log notice "-- After mount callback package_id $package_id node_id $node_id" + + # + # Turn off inheritance from public site + # + permission::set_not_inherit -object_id $package_id + # + # Allow registered users to read + # + permission::grant -party_id [acs_magic_object registered_users] \ + -object_id $package_id \ + -privilege read +} + ad_proc -private lang::apm::after_upgrade { {-from_version_name:required} {-to_version_name:required}