loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

-version 1.681, 2005/11/21 15:41:29
+version 1.682, 2005/11/21 19:08:29
  Line 3743  sub modify_coursegroup_membership {
      return $result;
  }
+ sub get_active_groups {
+     my ($udom,$uname,$cdom,$cnum) = @_;
+     my $now = time;
+     my %groups = ();
+     foreach my $key (keys(%env)) {
+         if ($key =~ m-user\.role\.gr\./([^/]+)/([^/]+)/(\w+)$-) {
+             my ($start,$end) = split(/\./,$env{$key});
+             if (($end!=0) && ($end<$now)) { next; }
+             if (($start!=0) && ($start>$now)) { next; }
+             if ($1 eq $cdom && $2 eq $cnum) {
+                 $groups{$3} = $env{$key} ;
+             }
+         }
+     }
+     return %groups;
+ }
  # ------------------------------------------------------------------ Plain Text
  sub plaintext {