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.4
--- 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	3 Sep 2024 15:37:33 -0000	1.4
@@ -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}