Index: openacs-4/packages/acs-admin/lib/service-parameters-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/lib/Attic/service-parameters-oracle.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-admin/lib/service-parameters-oracle.xql 17 Sep 2003 21:56:22 -0000 1.2
+++ openacs-4/packages/acs-admin/lib/service-parameters-oracle.xql 17 Sep 2003 22:49:09 -0000 1.3
@@ -17,6 +17,7 @@
acs_permission.permission_p(package_id, :user_id, 'read') = 't'
or acs_permission.permission_p(package_id, acs.magic_object_id('the_public'), 'read') = 't'
)
+ and ap.package_key != 'acs-subsite'
order by instance_name
Index: openacs-4/packages/acs-admin/lib/service-parameters-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/lib/Attic/service-parameters-postgresql.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-admin/lib/service-parameters-postgresql.xql 17 Sep 2003 21:56:22 -0000 1.2
+++ openacs-4/packages/acs-admin/lib/service-parameters-postgresql.xql 17 Sep 2003 22:49:09 -0000 1.3
@@ -17,6 +17,7 @@
acs_permission__permission_p(package_id, :user_id, 'read') = 't'
or acs_permission__permission_p(package_id, acs__magic_object_id('the_public'), 'read') = 't'
)
+ and ap.package_key != 'acs-subsite'
order by instance_name
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.2 -r1.3
--- openacs-4/packages/acs-admin/lib/service-parameters.tcl 17 Sep 2003 21:56:22 -0000 1.2
+++ openacs-4/packages/acs-admin/lib/service-parameters.tcl 17 Sep 2003 22:49:09 -0000 1.3
@@ -2,21 +2,57 @@
# Service parameters list
#
+
+set user_id [ad_conn user_id]
+set swadmin_p 0
+db_multirow -extend { url admin_url param_url } packages services_select {} {
+ if { [file exists "[acs_package_root_dir $package_key]/www/"] } {
+ catch {
+ set url [apm_package_url_from_key $package_key]
+ if { ![empty_string_p $url] && [file exists "[acs_package_root_dir $package_key]/www/admin/"] } {
+ set admin_url "${url}admin/"
+ }
+ if { [file exists "[acs_package_root_dir $package_key]/www/sitewide-admin/"] } {
+ set sitewide_admin_url "/acs-admin/package/$package_key/"
+ set swadmin_p 1
+ }
+ }
+ }
+ if { $parameter_count > 0 } {
+ set param_url [export_vars -base "/shared/parameters" { package_id { return_url {[ad_return_url]} } }]
+ }
+
+ if { [empty_string_p $url] && [empty_string_p $admin_url] && [empty_string_p $param_url] } {
+ continue
+ }
+}
+
template::list::create \
-name packages \
-multirow packages \
-elements {
instance_name {
label {Service}
+ }
+ www {
+ label "Pages"
link_url_col url
- link_html { title "Visit service interface" }
+ link_html { title "Visit service pages" }
+ display_template {Pages}
}
admin {
label "Administration"
link_url_col admin_url
link_html { title "Service administration" }
display_template {Administration}
}
+ sitewide_admin {
+ label "Site-Wide Admin"
+ link_url_col sitewide_admin_url
+ link_html { title "Service administration" }
+ display_template {Administration}
+ hide_p {[ad_decode $swadmin_p 1 0 1]}
+ }
parameters {
label "Parameters"
link_url_col param_url
@@ -25,22 +61,3 @@
}
}
-set user_id [ad_conn user_id]
-db_multirow -extend { url admin_url param_url } packages services_select {} {
- if { [file exists "[acs_package_root_dir $package_key]/www/"] } {
- catch {
- set url [apm_package_url_from_key $package_key]
- if { ![empty_string_p $url] && [file exists "[acs_package_root_dir $package_key]/www/admin/"] } {
- set admin_url "${url}admin/"
- }
- }
- }
- if { $parameter_count > 0 } {
- set param_url [export_vars -base "/shared/parameters" { package_id { return_url {[ad_return_url]} } }]
- }
-
- if { [empty_string_p $url] && [empty_string_p $admin_url] && [empty_string_p $param_url] } {
- continue
- }
-}
-