Index: openacs-4/packages/acs-tcl/acs-tcl.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/acs-tcl.info,v
diff -u -r1.95.2.71 -r1.95.2.72
--- openacs-4/packages/acs-tcl/acs-tcl.info 5 Aug 2024 14:42:53 -0000 1.95.2.71
+++ openacs-4/packages/acs-tcl/acs-tcl.info 11 Aug 2024 06:22:07 -0000 1.95.2.72
@@ -9,7 +9,7 @@
f
t
-
+
OpenACS
The Kernel Tcl API library.
2023-05-15
@@ -18,7 +18,7 @@
GPL version 2
3
-
+
Index: openacs-4/packages/acs-tcl/lib/check-installed.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/lib/check-installed.tcl,v
diff -u -r1.3.2.15 -r1.3.2.16
--- openacs-4/packages/acs-tcl/lib/check-installed.tcl 5 Aug 2024 14:42:53 -0000 1.3.2.15
+++ openacs-4/packages/acs-tcl/lib/check-installed.tcl 11 Aug 2024 06:22:07 -0000 1.3.2.16
@@ -17,6 +17,9 @@
set resource_dir [dict get $resource_info resourceDir]
set cdn [dict get $resource_info cdn]
set resource_name [dict get $resource_info resourceName]
+if {$version eq ""} {
+ set version [dict get $resource_info configuredVersion]
+}
if {$download_url eq ""} {
set download_url [ad_conn url]/download
}
Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v
diff -u -r1.189.2.192 -r1.189.2.193
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl 5 Aug 2024 14:42:53 -0000 1.189.2.192
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl 11 Aug 2024 06:22:07 -0000 1.189.2.193
@@ -4118,6 +4118,30 @@
return $installed
}
+ ad_proc -public ::util::resources::register_urns {
+ -namespace:required
+ } {
+
+ Conveniance function to register URNs based on the information provided by the resource_info dict.
+ The dict members "urnMap", "prefix", and optionally "csp_lists" are used.
+
+ @param resource_info a dict containing urnMap, prefix, and optionally csp_lists.
+ } {
+ foreach resource_info_proc [nsv_array names api_proc_doc $namespace*resource_info] {
+ set resource_info [$resource_info_proc]
+ if {[dict exists $resource_info urnMap]} {
+ foreach URN [dict keys [dict get $resource_info urnMap]] {
+ template::register_urn \
+ -urn $URN \
+ -resource [dict get $resource_info prefix]/[dict get $resource_info urnMap $URN] \
+ -csp_list [expr {[dict exists $resource_info csp_lists $URN]
+ ? [dict set $resource_info csp_lists $URN]
+ : ""}]
+ }
+ }
+ }
+ }
+
ad_proc -public ::util::resources::can_install_locally {
{-resource_info:required}
{-version_segment ""}