--- loncom/interface/loncoursegroups.pm	2006/06/27 18:49:14	1.26
+++ 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.26 2006/06/27 18:49:14 raeburn Exp $
+# $Id: loncoursegroups.pm,v 1.28 2006/06/28 16:01:01 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1088,7 +1088,6 @@ sub group_members {
         $$group_info{'totalmembers'} = 'Unknown - an error occurred';
         return $tmp;
     }
-    my $now = time;
     my $totalmembers = 0;
     my $active = 0;
     my $previous = 0;
@@ -2122,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;