Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/packages/acs-subsite/www/permissions/revoke-oracle.xql'.
Fisheye: No comparison available. Pass `N' to diff?
Fisheye: Tag 1.3 refers to a dead (removed) revision in file `openacs-4/packages/acs-subsite/www/permissions/revoke-postgresql.xql'.
Fisheye: No comparison available. Pass `N' to diff?
Index: openacs-4/packages/acs-subsite/www/permissions/revoke.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/revoke.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/acs-subsite/www/permissions/revoke.tcl 23 Apr 2018 21:32:46 -0000 1.8
+++ openacs-4/packages/acs-subsite/www/permissions/revoke.tcl 20 Jun 2018 10:05:53 -0000 1.9
@@ -26,14 +26,14 @@
Are you sure you want to remove the following entries from the access
- control list of [db_string name {}]?
+ control list of [acs_object_name $object_id]?
}]
foreach item $revoke_list {
lassign $item party_id privilege
append body [subst {
- - [db_string party_name {}]
+ - [party::name -party_id $party_id]
}]
}
Fisheye: Tag 1.7 refers to a dead (removed) revision in file `openacs-4/packages/acs-admin/lib/service-parameters-oracle.xql'.
Fisheye: No comparison available. Pass `N' to diff?
Fisheye: Tag 1.7 refers to a dead (removed) revision in file `openacs-4/packages/acs-admin/lib/service-parameters-postgresql.xql'.
Fisheye: No comparison available. Pass `N' to diff?
Index: openacs-4/packages/acs-admin/lib/service-parameters.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/lib/service-parameters.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/acs-admin/lib/service-parameters.tcl 7 Aug 2017 23:47:45 -0000 1.8
+++ openacs-4/packages/acs-admin/lib/service-parameters.tcl 20 Jun 2018 10:14:03 -0000 1.9
@@ -11,7 +11,19 @@
set user_id [ad_conn user_id]
set swadmin_p 0
-db_multirow -extend { url admin_url param_url sitewide_admin_url} packages services_select {} {
+db_multirow -extend { url admin_url param_url sitewide_admin_url} packages services_select {
+ select package_id,
+ ap.package_key,
+ pretty_name as instance_name,
+ (select count(*) from apm_parameters
+ where package_key = ap.package_key) as parameter_count
+ from apm_packages ap,
+ apm_package_types
+ where ap.package_key = apm_package_types.package_key
+ and package_type = 'apm_service'
+ and ap.package_key <> 'acs-subsite'
+ order by instance_name
+} {
set root_dir [acs_package_root_dir $package_key]
set sitewide_admin_url ""
if { [file exists $root_dir/www/] } {