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 -r1.2 -r1.3
--- openacs-4/packages/acs-subsite/lib/user-subsites.tcl	7 Aug 2017 23:47:58 -0000	1.2
+++ openacs-4/packages/acs-subsite/lib/user-subsites.tcl	3 Sep 2024 15:37:33 -0000	1.3
@@ -1,3 +1,10 @@
+ad_include_contract {
+    Display the list of subsites a user is member of. Used e.g. in
+    /pvt/home page
+} {
+    user_id:naturalnum,notnull
+}
+
 db_multirow -extend {url admin_p admin_url member_state_pretty} groups groups {
     select ap.package_id, r.object_id_one as group_id, g.group_name, mr.member_state
     from   acs_rels r,
@@ -18,7 +25,7 @@
     } else {
         set url ""
     }
-    set admin_url [export_vars -base /members/ {{group_id $group_id}}]
+    set admin_url [export_vars -base /members/ {group_id}]
 }
 
 # Local variables: