--- loncom/interface/loncoursegroups.pm	2008/04/22 18:38:09	1.75
+++ loncom/interface/loncoursegroups.pm	2008/05/07 00:10:59	1.76
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: loncoursegroups.pm,v 1.75 2008/04/22 18:38:09 bisitz Exp $
+# $Id: loncoursegroups.pm,v 1.76 2008/05/07 00:10:59 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1178,7 +1178,8 @@ sub delete_group {
                 $usersettings{$groupname.':'.$user} = $now.':-1:'.$userprivs;
                 if (&Apache::lonnet::modify_group_roles($cdom,$cnum,
                                                         $groupname,$user,
-                                                        $now,'-1',$userprivs)
+                                                        $now,'-1',$userprivs,
+                                                        '',$context)
                     eq 'ok') {
                     $num_ok ++;
                     push(@deleted,$user);
@@ -1357,7 +1358,8 @@ sub reenable_group {
                     if (&Apache::lonnet::modify_group_roles($cdom,$cnum,
                                                             $groupname,$user,
                                                             $defend,$defstart,
-                                                            $userprivs) eq 'ok') {
+                                                            $userprivs,'',
+$context) eq 'ok') {
                         $num_ok ++;
                         push(@enabled,$user);
                     } else {
@@ -3300,7 +3302,7 @@ sub process_membership {
                                                       $curr_privs{$user};
                 if (&Apache::lonnet::modify_group_roles($cdom,$cnum,$groupname,
                                                        $user,$now,$savestart,
-                                                       $curr_privs{$user}) eq 'ok') {
+                                                       $curr_privs{$user},''',$context) eq 'ok') {
                     push(@{$added{'expired'}},$user);
                     $num_ok ++;
                 } else {
@@ -3311,7 +3313,7 @@ sub process_membership {
             foreach my $user (@deletion) {
                 $usersettings{$groupname.':'.$user} = $now.':-1:';
                 if (&Apache::lonnet::modify_group_roles($cdom,$cnum,$groupname,
-                                                       $user,$now,'-1','')
+                                                       $user,$now,'-1','','',$context)
                                                          eq 'ok') {
                     push(@{$added{'deleted'}},$user);
                     $num_ok ++;
@@ -3365,7 +3367,7 @@ sub process_membership {
                                               $group_privs{$user};
         if (&Apache::lonnet::modify_group_roles($cdom,$cnum,$groupname,
                                                 $user,$end,$start,
-                                                $group_privs{$user}) eq 'ok') {
+                                                $group_privs{$user},'',$context) eq 'ok') {
             push(@{$added{$type}},$user);
             $num_ok ++;
         } else {