Index: openacs-4/packages/xooauth/tcl/ms-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xooauth/tcl/Attic/ms-procs.tcl,v
diff -u -r1.1.2.8 -r1.1.2.9
--- openacs-4/packages/xooauth/tcl/ms-procs.tcl	28 Oct 2021 08:08:29 -0000	1.1.2.8
+++ openacs-4/packages/xooauth/tcl/ms-procs.tcl	28 Oct 2021 10:20:06 -0000	1.1.2.9
@@ -476,7 +476,7 @@
 
             set r [:request -method GET -token [:token] \
                        -url https://graph.microsoft.com/beta/groups?[:params {
-                           count expand select filter orderby search}]]
+                           count expand select filter orderby search top}]]
             return [:paginated_result_list -max_entries $max_entries $r 200]
         }
 
@@ -587,7 +587,7 @@
             # @param max_entries retrieve this desired number of tuples (potentially multiple API calls)
 
             set r [:request -method GET -token [:token] \
-                       -url /groups/${group_id}/members]
+                       -url /groups/${group_id}/members]?[:params {count filter search top}]
             return [:paginated_result_list -max_entries $max_entries $r 200]
         }
 
@@ -1002,7 +1002,7 @@
             {-select "displayName,userPrincipalName,id"}
             {-filter ""}
             {-max_entries ""}
-            {-top 100}
+            {-top:integer,0..1 ""}            
         } {
             #
             # Retrieve the properties and relationships of user