Index: openacs-4/packages/acs-lang/acs-lang.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/acs-lang.info,v
diff -u -r1.64.2.21 -r1.64.2.22
--- openacs-4/packages/acs-lang/acs-lang.info	16 Feb 2024 10:31:38 -0000	1.64.2.21
+++ openacs-4/packages/acs-lang/acs-lang.info	8 Aug 2024 12:19:07 -0000	1.64.2.22
@@ -9,7 +9,7 @@
     <implements-subsite-p>f</implements-subsite-p>
     <inherit-templates-p>t</inherit-templates-p>
 
-    <version name="5.10.1b2" url="http://openacs.org/repository/download/apm/acs-lang-5.10.1b2.apm">
+    <version name="5.10.1b3" url="http://openacs.org/repository/download/apm/acs-lang-5.10.1b3.apm">
         <owner url="mailto:peter@collaboraid.biz">Peter Marklund</owner>
         <summary>OpenACS Internationalization Support.</summary>
         <release-date>2023-05-09</release-date>
@@ -20,7 +20,7 @@
         <license>GPL</license>
         <maturity>3</maturity>
 
-        <provides url="acs-lang" version="5.10.1b2"/>
+        <provides url="acs-lang" version="5.10.1b3"/>
         <requires url="acs-kernel" version="5.10.1b1"/>
         <requires url="acs-tcl" version="5.10.1b1"/>
         <requires url="acs-translations" version="5.10.1b1"/>
@@ -31,7 +31,9 @@
         <callbacks>
             <callback type="after-install"  proc="lang::apm::after_install"/>
             <callback type="after-upgrade"  proc="lang::apm::after_upgrade"/>
+            <callback type="after-mount"    proc="lang::apm::after_mount"/>            
         </callbacks>
+
         <parameters>
             <parameter scope="instance" datatype="string"  min_n_values="1"  max_n_values="1"  name="SiteWideLocale"  default="en_US" description="The site-wide default locale"/>
             <parameter scope="instance" datatype="string"  min_n_values="1"  max_n_values="1"  name="SystemTimezone"  default="UTC" description="The timezone that Oracle is set to use. Use a name from the acs-reference package, e.g., America/Los_Angeles or Asia/Tokyo"/>
Index: openacs-4/packages/acs-lang/bin/functions.sh
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/bin/functions.sh,v
diff -u -r1.2 -r1.2.26.1
--- openacs-4/packages/acs-lang/bin/functions.sh	31 Oct 2003 12:58:29 -0000	1.2
+++ openacs-4/packages/acs-lang/bin/functions.sh	8 Aug 2024 12:19:07 -0000	1.2.26.1
@@ -1,4 +1,4 @@
-# Functions re-used by scripts in acs-lang/bin
+# Functions reused by scripts in acs-lang/bin
 #
 # @author Peter Marklund
 
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}
Index: openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl,v
diff -u -r1.28.2.30 -r1.28.2.31
--- openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl	28 Jul 2024 17:00:03 -0000	1.28.2.30
+++ openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl	8 Aug 2024 12:19:07 -0000	1.28.2.31
@@ -1223,7 +1223,7 @@
             set rfd [open $f r]
             set xml [read $rfd]
             close $rfd
-            aa_false "Catalog file '$f' apears to be valid XML" [catch {dom parse -- $xml doc}]
+            aa_false "Catalog file '$f' appears to be valid XML" [catch {dom parse -- $xml doc}]
         }
     }
 
@@ -1286,7 +1286,7 @@
                 if {[info exists installed($pk)]} {
                     #
                     # Dependencies derived by packages that are
-                    # istalled by one of my dependencies.
+                    # installed by one of my dependencies.
                     #
                     lappend dependencies($package_key) {*}$installed($pk)
                 }
@@ -1338,9 +1338,9 @@
                     ns_log warning "$f: '${message_package_key}.${message_key}' is not a message key."
                     continue
                 }
-                # ..leave the core out of this: its message keys can alway be used...
+                # ..leave the core out of this: its message keys can always be used...
                 if {[string match acs-* $message_package_key]} {
-                    aa_log "'${message_package_key}.${message_key}' belongs to the core and can alway be used."
+                    aa_log "'${message_package_key}.${message_key}' belongs to the core and can always be used."
                     continue
                 }
                 # ...and check that the package it belongs to is one
Index: openacs-4/packages/acs-lang/tcl/test/lang-widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/test/lang-widget-procs.tcl,v
diff -u -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/acs-lang/tcl/test/lang-widget-procs.tcl	24 Mar 2023 15:51:31 -0000	1.1.2.1
+++ openacs-4/packages/acs-lang/tcl/test/lang-widget-procs.tcl	8 Aug 2024 12:19:07 -0000	1.1.2.2
@@ -52,7 +52,7 @@
         set widget [template::widget::select_locales element $tag_attributes]
 
         foreach value {en_US de_DE it_IT} {
-            aa_false "Output contains hideen field for '$value'" {
+            aa_false "Output contains hidden field for '$value'" {
                 [string first "input type=\"hidden\" value=\"$value\"" $widget] >= 0
             }
         }