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 @@ <hr> 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]? <ul> }] foreach item $revoke_list { lassign $item party_id privilege append body [subst { - <li>[db_string party_name {}]</li> + <li>[party::name -party_id $party_id]</li> }] } 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/] } {