[LON-CAPA-cvs] cvs: loncom /interface longroup.pm
raeburn
raeburn at source.lon-capa.org
Tue Dec 18 10:26:03 EST 2012
raeburn Tue Dec 18 15:26:03 2012 EDT
Modified files:
/loncom/interface longroup.pm
Log:
- Typo in POD
- Remove unnecessary code.
- More recent versions of lonnet::dump() exclude error from hash returned.
Index: loncom/interface/longroup.pm
diff -u loncom/interface/longroup.pm:1.28 loncom/interface/longroup.pm:1.29
--- loncom/interface/longroup.pm:1.28 Wed Apr 25 21:22:02 2012
+++ loncom/interface/longroup.pm Tue Dec 18 15:26:03 2012
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# accessor routines used to provide information about course groups
#
-# $Id: longroup.pm,v 1.28 2012/04/25 21:22:02 raeburn Exp $
+# $Id: longroup.pm,v 1.29 2012/12/18 15:26:03 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -218,7 +218,7 @@
and would trigger membership in teh same group(s)
If role is being added, will add any group memberships specified
-for auto-group population, unless use is already a group member.
+for auto-group population, unless user is already a group member.
Uses default group privileges and default start and end group access
times.
@@ -252,9 +252,6 @@
} else {
$cid = $url;
}
- my $courseid = $cid;
- $courseid =~ s|^/||;
- $courseid =~ s|/|_|;
my %crshash=&Apache::lonnet::coursedescription($cid);
$cdom = $crshash{'domain'};
$cnum = $crshash{'num'};
@@ -292,10 +289,7 @@
if (@changegroups > 0) {
my %currpriv;
my %roleshash = &Apache::lonnet::dump('roles',$udom,$uname,$cid);
- if (my $tmp = &Apache::lonnet::error(%roleshash)) {
- &Apache::lonnet::logthis('Error retrieving roles: '.$tmp.
- ' for '.$uname.':'.$udom);
- } else {
+ if (keys(%roleshash) > 0) {
my $group_privs = '';
foreach my $group (@changegroups) {
if ($chgtype eq 'add') {
More information about the LON-CAPA-cvs
mailing list