loncom/interface/loncoursegroups.pm - diff

Return to loncoursegroups.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.25, 2006/06/23 00:22:58	version 1.28, 2006/06/28 16:01:01
Line 1088 sub group_members {	Line 1088 sub group_members {
$$group_info{'totalmembers'} = 'Unknown - an error occurred';	$$group_info{'totalmembers'} = 'Unknown - an error occurred';
return $tmp;	return $tmp;
}	}
my $now = time;
my $totalmembers = 0;	my $totalmembers = 0;
my $active = 0;	my $active = 0;
my $previous = 0;	my $previous = 0;
Line 2122 sub current_membership {	Line 2121 sub current_membership {
my $addtools = 0;	my $addtools = 0;
my $num_reenable = 0;	my $num_reenable = 0;
my $num_activate = 0;	my $num_activate = 0;
my $num_expire - 0;	my $num_expire = 0;
foreach my $key (sort(keys(%membership))) {	foreach my $key (sort(keys(%membership))) {
if ($key =~ /^\Q$groupname\E:([^:]+):([^:]+)$/) {	if ($key =~ /^\Q$groupname\E:([^:]+):([^:]+)$/) {
my $uname = $1;	my $uname = $1;
Line 2981 sub process_membership {	Line 2980 sub process_membership {
}	}
} else {	} else {
if (@{$defprivs} > 0) {	if (@{$defprivs} > 0) {
foreach my $priv (@{$defprivs}) {	if (grep/^\Q$priv\E$/,@{$defprivs}) {
foreach my $user (sort(keys(%{$usertools}))) {	foreach my $user (sort(keys(%{$usertools}))) {
if ($$usertools{$user}{$tool}) {	if ($$usertools{$user}{$tool}) {
$group_privs{$user} .= $priv.':';	$group_privs{$user} .= $priv.':';