[LON-CAPA-cvs] cvs: loncom /interface loncoursegroups.pm

raeburn lon-capa-cvs-allow@mail.lon-capa.org
Thu, 08 May 2008 23:25:29 -0000


raeburn		Thu May  8 19:25:29 2008 EDT

  Modified files:              
    /loncom/interface	loncoursegroups.pm 
  Log:
  - Define $context.
  - Remove surplus quote. 
  
  
Index: loncom/interface/loncoursegroups.pm
diff -u loncom/interface/loncoursegroups.pm:1.76 loncom/interface/loncoursegroups.pm:1.77
--- loncom/interface/loncoursegroups.pm:1.76	Tue May  6 20:10:59 2008
+++ loncom/interface/loncoursegroups.pm	Thu May  8 19:25:29 2008
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: loncoursegroups.pm,v 1.76 2008/05/07 00:10:59 raeburn Exp $
+# $Id: loncoursegroups.pm,v 1.77 2008/05/08 23:25:29 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1169,6 +1169,7 @@
     my @deleted;
     my @undeleted;
     my %usersettings;
+    my $context = 'deletegroup';
     foreach my $key (sort(keys(%membership))) {
         if ($key =~ /^\Q$groupname\E:([^:]+:[^:]+)$/) {
             my $user = $1;
@@ -1339,6 +1340,7 @@
     my $num_users = 0;
     my $num_ok = 0;
     my $num_fail = 0;
+    my $context = 'reenablegroup';
     my (%usersettings,@enabled,@unenabled);
     my ($result,$message) =
           &Apache::lonnet::toggle_coursegroup_status($cdom,$cnum,$groupname,
@@ -3233,6 +3235,7 @@
     my %curr_start = ();
     my %curr_end = ();
     my %tooltype = ();
+    my $context = 'processgroupmembership';
 
     foreach my $tool (@{$tools}) {
         foreach my $priv (sort(keys(%{$$toolprivs{$tool}}))) {
@@ -3302,7 +3305,7 @@
                                                       $curr_privs{$user};
                 if (&Apache::lonnet::modify_group_roles($cdom,$cnum,$groupname,
                                                        $user,$now,$savestart,
-                                                       $curr_privs{$user},''',$context) eq 'ok') {
+                                                       $curr_privs{$user},'',$context) eq 'ok') {
                     push(@{$added{'expired'}},$user);
                     $num_ok ++;
                 } else {