[BACK]Return to loncoursegroups.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncoursegroups.pm between versions 1.76 and 1.77

version 1.76, 2008/05/07 00:10:59 version 1.77, 2008/05/08 23:25:29
Line 1169  sub delete_group { Line 1169  sub delete_group {
     my @deleted;      my @deleted;
     my @undeleted;      my @undeleted;
     my %usersettings;      my %usersettings;
       my $context = 'deletegroup';
     foreach my $key (sort(keys(%membership))) {      foreach my $key (sort(keys(%membership))) {
         if ($key =~ /^\Q$groupname\E:([^:]+:[^:]+)$/) {          if ($key =~ /^\Q$groupname\E:([^:]+:[^:]+)$/) {
             my $user = $1;              my $user = $1;
Line 1339  sub reenable_group { Line 1340  sub reenable_group {
     my $num_users = 0;      my $num_users = 0;
     my $num_ok = 0;      my $num_ok = 0;
     my $num_fail = 0;      my $num_fail = 0;
       my $context = 'reenablegroup';
     my (%usersettings,@enabled,@unenabled);      my (%usersettings,@enabled,@unenabled);
     my ($result,$message) =      my ($result,$message) =
           &Apache::lonnet::toggle_coursegroup_status($cdom,$cnum,$groupname,            &Apache::lonnet::toggle_coursegroup_status($cdom,$cnum,$groupname,
Line 3233  sub process_membership { Line 3235  sub process_membership {
     my %curr_start = ();      my %curr_start = ();
     my %curr_end = ();      my %curr_end = ();
     my %tooltype = ();      my %tooltype = ();
       my $context = 'processgroupmembership';
   
     foreach my $tool (@{$tools}) {      foreach my $tool (@{$tools}) {
         foreach my $priv (sort(keys(%{$$toolprivs{$tool}}))) {          foreach my $priv (sort(keys(%{$$toolprivs{$tool}}))) {
Line 3302  sub process_membership { Line 3305  sub process_membership {
                                                       $curr_privs{$user};                                                        $curr_privs{$user};
                 if (&Apache::lonnet::modify_group_roles($cdom,$cnum,$groupname,                  if (&Apache::lonnet::modify_group_roles($cdom,$cnum,$groupname,
                                                        $user,$now,$savestart,                                                         $user,$now,$savestart,
                                                        $curr_privs{$user},''',$context) eq 'ok') {                                                         $curr_privs{$user},'',$context) eq 'ok') {
                     push(@{$added{'expired'}},$user);                      push(@{$added{'expired'}},$user);
                     $num_ok ++;                      $num_ok ++;
                 } else {                  } else {
Removed from v.1.76  
changed lines
  Added in v.1.77

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>