Index: openacs-4/packages/dotlrn-static/dotlrn-static.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-static/dotlrn-static.info,v
diff -u -r1.23.2.3 -r1.23.2.4
--- openacs-4/packages/dotlrn-static/dotlrn-static.info 16 Sep 2021 08:27:06 -0000 1.23.2.3
+++ openacs-4/packages/dotlrn-static/dotlrn-static.info 22 Mar 2023 16:06:04 -0000 1.23.2.4
@@ -7,17 +7,21 @@
f
t
-
+
OpenACS
DotLRN Applet Static Portlets
- 2021-09-15
+ 2023-03-22
DotLRN Consortium
2
-
+
+
+
+
+
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/dotlrn-static/tcl/apm-callback-procs.tcl'.
Fisheye: No comparison available. Pass `N' to diff?
Index: openacs-4/packages/dotlrn-static/tcl/dotlrn-static-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-static/tcl/dotlrn-static-procs.tcl,v
diff -u -r1.39.2.4 -r1.39.2.5
--- openacs-4/packages/dotlrn-static/tcl/dotlrn-static-procs.tcl 23 Feb 2021 13:16:55 -0000 1.39.2.4
+++ openacs-4/packages/dotlrn-static/tcl/dotlrn-static-procs.tcl 22 Mar 2023 16:06:04 -0000 1.39.2.5
@@ -65,20 +65,28 @@
Add the static applet to dotlrn - for one-time init
Must be repeatable!
} {
+ set applets_node [site_node::get -url [dotlrn_applet::get_url]/]
+ set applets_node_id [dict get $applets_node node_id]
- if {![dotlrn_applet::applet_exists_p -applet_key [applet_key]]} {
+ set package_key [dotlrn_static::package_key]
+ if {![db_0or1row is_mounted {
+ select 1 from site_nodes n, apm_packages p
+ where n.parent_id = :applets_node_id
+ and p.package_id = n.object_id
+ and p.package_key = :package_key
+ }]} {
db_transaction {
- dotlrn_applet::mount \
- -package_key [package_key] \
- -url [package_key] \
- -pretty_name "#[pretty_name_key]#"
+ site_node::instantiate_and_mount \
+ -node_name $package_key \
+ -parent_node_id $applets_node_id \
+ -package_key $package_key \
+ -package_name "#[dotlrn_static::pretty_name_key]#"
dotlrn_applet::add_applet_to_dotlrn \
-applet_key [applet_key] \
-package_key [my_package_key]
}
-
}
}
Index: openacs-4/packages/dotlrn-static/tcl/test/dotlrn-static-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-static/tcl/test/dotlrn-static-test-procs.tcl,v
diff -u -r1.1.2.5 -r1.1.2.6
--- openacs-4/packages/dotlrn-static/tcl/test/dotlrn-static-test-procs.tcl 25 Feb 2021 12:24:40 -0000 1.1.2.5
+++ openacs-4/packages/dotlrn-static/tcl/test/dotlrn-static-test-procs.tcl 22 Mar 2023 16:06:04 -0000 1.1.2.6
@@ -7,6 +7,24 @@
}
+aa_register_case -cats {
+ smoke production_safe
+} dotlrn_static_mountpoint {
+ Make sure the applet is mounted correctly
+} {
+ set applets_node [site_node::get -url [dotlrn_applet::get_url]/]
+ set applets_node_id [dict get $applets_node node_id]
+
+ set package_key [dotlrn_static::package_key]
+
+ aa_true "Applet is mounted under /dotlrn/applets" [db_0or1row is_mounted {
+ select 1 from site_nodes n, apm_packages p
+ where n.parent_id = :applets_node_id
+ and p.package_id = n.object_id
+ and p.package_key = :package_key
+ }]
+}
+
aa_register_case \
-cats {api smoke production_safe} \
-procs {