[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 {