--- loncom/interface/longroup.pm	2016/03/11 22:11:22	1.31
+++ loncom/interface/longroup.pm	2023/06/20 14:03:52	1.32
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # accessor routines used to provide information about course groups 
 #
-# $Id: longroup.pm,v 1.31 2016/03/11 22:11:22 musolffc Exp $
+# $Id: longroup.pm,v 1.32 2023/06/20 14:03:52 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -237,7 +237,8 @@ or expire group membership(s) for a user
 =cut
 
 sub group_changes {
-    my ($udom,$uname,$url,$role,$origend,$origstart,$selfenroll,$context) = @_;
+    my ($udom,$uname,$url,$role,$origend,$origstart,$selfenroll,$context,
+        $othdomby,$requester) = @_;
     my $now = time;
     my $chgtype;
     if ($origend > 0 && $origend <= $now) {
@@ -343,7 +344,8 @@ sub group_changes {
                                                   $add,$uname.':'.$udom,
                                                   $settings{$add}{'enddate'},
                                                   $settings{$add}{'startdate'},
-                                                  $group_privs,$selfenroll,$context) eq 'ok') {
+                                                  $group_privs,$selfenroll,$context,
+                                                  $othdomby,$requester) eq 'ok') {
                             my %usersettings;
                             $usersettings{$add.':'.$uname.':'.$udom} =
                                                                $addgroup{$add};
@@ -413,7 +415,8 @@ sub group_changes {
                                                          $uname.':'.$udom,$now,
                                                          $dropstart{$drop},
                                                          $currpriv{$drop},
-                                                         $selfenroll,$context) 
+                                                         $selfenroll,$context,
+                                                         $othdomby,$requester) 
                                                                      eq 'ok') {
                                 my %usersettings;
                                 $usersettings{$drop.':'.$uname.':'.$udom} =