[LON-CAPA-cvs] cvs: loncom /interface loncoursedata.pm

[banghart]

banghart		Wed Oct  3 14:22:50 2007 EDT

  Modified files:              
    /loncom/interface	loncoursedata.pm 
  Log:
  	Set group index to constant.
  
  
Index: loncom/interface/loncoursedata.pm
diff -u loncom/interface/loncoursedata.pm:1.182 loncom/interface/loncoursedata.pm:1.183
--- loncom/interface/loncoursedata.pm:1.182	Tue May  1 21:33:48 2007
+++ loncom/interface/loncoursedata.pm	Wed Oct  3 14:22:50 2007
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: loncoursedata.pm,v 1.182 2007/05/02 01:33:48 albertel Exp $
+# $Id: loncoursedata.pm,v 1.183 2007/10/03 18:22:50 banghart Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3099,6 +3099,7 @@
 sub CL_STATUS   { return 7; }
 sub CL_TYPE     { return 8; }
 sub CL_LOCKEDTYPE   { return 9; }
+sub CL_GROUP    { return 10; }
 
 sub get_classlist {
     my ($cdom,$cnum) = @_;
@@ -3185,7 +3186,7 @@
     my $access_end = $env{'course.'.$cid.'.default_enrollment_end_date'};
     my %curr_groups =&Apache::longroup::coursegroups($cdom,$cnum);
     if (%curr_groups) {
-        my $grpindex = scalar(@{$keylist});
+        my $grpindex = &CL_GROUP();
         my %groupmemberhash = 
 	    &Apache::lonnet::get_group_membership($cdom,$cnum);
         foreach my $student (keys(%{$classlist})) {