Index: openacs-4/packages/acs-subsite/lib/user-subsites.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/lib/user-subsites.tcl,v
diff -u -N -r1.1.18.1 -r1.1.18.2
--- openacs-4/packages/acs-subsite/lib/user-subsites.tcl	10 Sep 2015 08:21:35 -0000	1.1.18.1
+++ openacs-4/packages/acs-subsite/lib/user-subsites.tcl	23 Apr 2017 17:26:29 -0000	1.1.18.2
@@ -1,12 +1,14 @@
-db_multirow -extend {url admin_p} groups groups {
+db_multirow -extend {url admin_p admin_url} groups groups {
   select distinct ap.package_id, groups.group_id, lower(groups.group_name), groups.group_name
      from groups, group_member_map gm, application_groups ap
      where groups.group_id = gm.group_id and gm.member_id=:user_id
        and ap.group_id = groups.group_id
   order by lower(groups.group_name)
 } {
     set admin_p [permission::permission_p -party_id $user_id -object_id $group_id -privilege "admin"]
-    set url [apm_package_url_from_id $package_id]
+    #set url [apm_package_url_from_id $package_id]
+    set url ""
+    set admin_url [export_vars -base /members/ {{group_id $group_id}}]
 }
 
 # Local variables: