Index: openacs-4/packages/xotcl-request-monitor/xotcl-request-monitor.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/xotcl-request-monitor.info,v
diff -u -r1.15.2.18 -r1.15.2.19
--- openacs-4/packages/xotcl-request-monitor/xotcl-request-monitor.info	13 Jul 2023 13:11:30 -0000	1.15.2.18
+++ openacs-4/packages/xotcl-request-monitor/xotcl-request-monitor.info	7 Aug 2024 13:56:33 -0000	1.15.2.19
@@ -8,7 +8,7 @@
     <singleton-p>t</singleton-p>
     <auto-mount>request-monitor</auto-mount>
 
-    <version name="0.65" url="http://media.wu-wien.ac.at/download/xotcl-request-monitor-0.65.apm">
+    <version name="0.66" url="http://media.wu-wien.ac.at/download/xotcl-request-monitor-0.66.apm">
         <owner url="mailto:neumann@wu-wien.ac.at">Gustaf Neumann</owner>
         <vendor url="http://wu.ac.at">WU Vienna</vendor>
         <summary>Request Monitor with user tracking functionality</summary>
@@ -33,14 +33,15 @@
 </description>
         <license>BSD-Style</license>
         <maturity>2</maturity>
-        <provides url="xotcl-request-monitor" version="0.65"/>
+        <provides url="xotcl-request-monitor" version="0.66"/>
 	<requires url="acs-kernel" version="5.10.1b1"/>
 	<requires url="acs-tcl" version="5.10.1b1"/>
         <requires url="xotcl-core" version="5.10.1b1"/>
 	<requires url="acs-templating" version="5.10.1b1"/>
 
         <callbacks>
-          <callback type="after-upgrade"  proc="::request_monitor::upgrade_callback"/>
+          <callback type="after-upgrade" proc="::request_monitor::upgrade_callback"/>
+          <callback type="after-mount"   proc="::request_monitor::after_mount"/>
         </callbacks>
         <parameters>
             <parameter datatype="string"  min_n_values="1"
Index: openacs-4/packages/xotcl-request-monitor/tcl/callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/tcl/callback-procs.tcl,v
diff -u -r1.4.2.2 -r1.4.2.3
--- openacs-4/packages/xotcl-request-monitor/tcl/callback-procs.tcl	21 Nov 2020 23:55:24 -0000	1.4.2.2
+++ openacs-4/packages/xotcl-request-monitor/tcl/callback-procs.tcl	7 Aug 2024 13:56:33 -0000	1.4.2.3
@@ -82,8 +82,28 @@
       }
     }
   }
-}
 
+  ad_proc -private after_mount {
+    -package_id:required
+    -node_id:required
+  } {
+    Modify default permissions after mount.
+  } {
+    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
+  }
+}
+  
 ::xo::library source_dependent
 
 # Local variables: