Index: openacs-4/packages/acs-subsite/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/index.tcl,v
diff -u -r1.19 -r1.20
--- openacs-4/packages/acs-subsite/www/admin/index.tcl	15 Apr 2011 09:50:52 -0000	1.19
+++ openacs-4/packages/acs-subsite/www/admin/index.tcl	7 Aug 2017 23:47:58 -0000	1.20
@@ -17,11 +17,18 @@
 }
 
 array set this_node [site_node::get -url [ad_conn url]]
-set title "$this_node(instance_name) [_ acs-subsite.Administration]"
+set title "Subsite [_ acs-subsite.Administration]: $this_node(instance_name)"
 
 set acs_admin_url [apm_package_url_from_key "acs-admin"]
 array set acs_admin_node [site_node::get -url $acs_admin_url]
 set acs_admin_name $acs_admin_node(instance_name)
 set sw_admin_p [permission::permission_p -party_id [ad_conn user_id] -object_id $acs_admin_node(object_id) -privilege admin]
+set full_acs_admin_url [util::configured_location]$acs_admin_url
 
 set convert_subsite_p [expr { [llength [apm::get_package_descendent_options [ad_conn package_key]]] > 0 }]
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: