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.2 -r1.2.2.1
--- 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	2 Jan 2020 13:17:52 -0000	1.2.2.1
@@ -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,