loncom/interface/loncoursegroups.pm - diff

Return to loncoursegroups.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.26, 2006/06/27 18:49:14	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;