--- loncom/interface/loncoursegroups.pm 2006/06/28 16:00:05 1.27 +++ loncom/interface/loncoursegroups.pm 2006/06/28 16:01:01 1.28 @@ -1,6 +1,6 @@ # The LearningOnline Network with CAPA # -# $Id: loncoursegroups.pm,v 1.27 2006/06/28 16:00:05 albertel Exp $ +# $Id: loncoursegroups.pm,v 1.28 2006/06/28 16:01:01 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2121,7 +2121,7 @@ sub current_membership { my $addtools = 0; my $num_reenable = 0; my $num_activate = 0; - my $num_expire - 0; + my $num_expire = 0; foreach my $key (sort(keys(%membership))) { if ($key =~ /^\Q$groupname\E:([^:]+):([^:]+)$/) { my $uname = $1;