Index: openacs-4/packages/acs-subsite/acs-subsite.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/acs-subsite.info,v
diff -u -N -r1.131.2.19 -r1.131.2.20
--- openacs-4/packages/acs-subsite/acs-subsite.info 25 Aug 2020 13:38:12 -0000 1.131.2.19
+++ openacs-4/packages/acs-subsite/acs-subsite.info 27 Sep 2020 17:56:56 -0000 1.131.2.20
@@ -9,7 +9,7 @@
t
t
-
+
OpenACS
Subsite
2017-08-06
@@ -18,7 +18,7 @@
GPL
3
-
+
Index: openacs-4/packages/acs-subsite/www/admin/configure.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/configure.tcl,v
diff -u -N -r1.14 -r1.14.2.1
--- openacs-4/packages/acs-subsite/www/admin/configure.tcl 1 Oct 2017 12:16:05 -0000 1.14
+++ openacs-4/packages/acs-subsite/www/admin/configure.tcl 27 Sep 2020 17:56:56 -0000 1.14.2.1
@@ -48,9 +48,8 @@
} -on_submit {
apm_package_rename -instance_name $instance_name
subsite::set_theme -theme $theme
- set group(join_policy) $join_policy
- set group(description) $description
- group::update -group_id $group_id -array group
+ group::update -group_id $group_id \
+ [list join_policy $join_policy description $description]
switch -- $visibility {
any {
Index: openacs-4/packages/acs-subsite/www/admin/subsite-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/subsite-add.tcl,v
diff -u -N -r1.15.2.1 -r1.15.2.2
--- openacs-4/packages/acs-subsite/www/admin/subsite-add.tcl 16 May 2019 09:54:29 -0000 1.15.2.1
+++ openacs-4/packages/acs-subsite/www/admin/subsite-add.tcl 27 Sep 2020 17:56:56 -0000 1.15.2.2
@@ -83,9 +83,8 @@
subsite::set_theme -subsite_id $new_package_id -theme $theme
# Set join policy
- set group(join_policy) $join_policy
set member_group_id [application_group::group_id_from_package_id -package_id $new_package_id]
- group::update -group_id $member_group_id -array group
+ group::update -group_id $member_group_id [list join_policy $join_policy]
# Add current user as admin
group::add_member \
Index: openacs-4/packages/acs-tcl/tcl/install-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/install-procs.tcl,v
diff -u -N -r1.35.2.3 -r1.35.2.4
--- openacs-4/packages/acs-tcl/tcl/install-procs.tcl 28 Nov 2019 10:42:20 -0000 1.35.2.3
+++ openacs-4/packages/acs-tcl/tcl/install-procs.tcl 27 Sep 2020 17:56:56 -0000 1.35.2.4
@@ -477,12 +477,8 @@
foreach object $objects {
set group_id [apm_invoke_install_proc -type object_id -node $object]
-
- group::get -group_id $group_id -array group
- set group(join_policy) $join_policy
- group::update -group_id $group_id -array group
+ group::update -group_id $group_id [list join_policy $join_policy]
}
- return
}
ad_proc -public install::xml::action::create-user { node } {
Index: openacs-4/packages/xowiki/xowiki.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/xowiki.info,v
diff -u -N -r1.180.2.46 -r1.180.2.47
--- openacs-4/packages/xowiki/xowiki.info 23 Sep 2020 09:24:34 -0000 1.180.2.46
+++ openacs-4/packages/xowiki/xowiki.info 27 Sep 2020 17:56:56 -0000 1.180.2.47
@@ -10,7 +10,7 @@
t
xowiki
-
+
Gustaf Neumann
A xotcl-based enterprise wiki system with multiple object types
2017-08-06
@@ -55,13 +55,13 @@
BSD-Style
2
-
+
-
+
Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v
diff -u -N -r1.542.2.87 -r1.542.2.88
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl 27 Sep 2020 11:26:08 -0000 1.542.2.87
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl 27 Sep 2020 17:56:56 -0000 1.542.2.88
@@ -976,8 +976,7 @@
if {$group_name ne ""} {
:log "+++ create a new group group_name=${group_name}"
set group_id [group::new -group_name $group_name]
- set info(join_policy) [dict get $entry join_policy]
- group::update -group_id $group_id -array info
+ group::update -group_id $group_id [list join_policy [dict get $entry join_policy]]
ns_log notice "+++ reverse_party_map: we could add members [dict get $entry members] - but we don't"
return $group_id
} else {