[LON-CAPA-cvs] cvs: loncom /lonnet/perl lonnet.pm

[raeburn]

raeburn		Thu Apr  6 16:27:35 2006 EDT

  Modified files:              
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  Correction to filtering used for deleted group membership. (loncoursegroups sets end time to current time, and start time to -1 when deleting a group member from a group).
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.726 loncom/lonnet/perl/lonnet.pm:1.727
--- loncom/lonnet/perl/lonnet.pm:1.726	Thu Apr  6 15:14:50 2006
+++ loncom/lonnet/perl/lonnet.pm	Thu Apr  6 16:27:35 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.726 2006/04/06 19:14:50 albertel Exp $
+# $Id: lonnet.pm,v 1.727 2006/04/06 20:27:35 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3992,7 +3992,7 @@
         my $grouplist;
         foreach my $key (keys %roleshash) {
             if ($key =~ /^\Q$courseid\E\/(\w+)\_gr$/) {
-                unless ($roleshash{$key} =~ /_1_1$/) {   # deleted membership
+                unless ($roleshash{$key} =~ /_\d+_\-1$/) {   # deleted membership
                     $grouplist .= $1.':';
                 }
             }