--- loncom/interface/loncoursedata.pm	2007/04/03 20:04:54	1.181
+++ loncom/interface/loncoursedata.pm	2007/11/06 04:39:19	1.184
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: loncoursedata.pm,v 1.181 2007/04/03 20:04:54 albertel Exp $
+# $Id: loncoursedata.pm,v 1.184 2007/11/06 04:39:19 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1316,7 +1316,7 @@ sub update_full_student_data {
         chop($store_command);
         $dbh->do($store_command);
         if ($dbh->err) {
-            $returnstatus = 'error storing part data';
+            $returnstatus = 'error saving part data';
             &Apache::lonnet::logthis('insert error '.$dbh->errstr());
             &Apache::lonnet::logthis("While attempting\n".$store_command);
         }
@@ -1356,7 +1356,7 @@ sub update_full_student_data {
         chop($store_command);
         $dbh->do($store_command);
         if ($dbh->err) {
-            $returnstatus = 'error storing response data';
+            $returnstatus = 'error saving response data';
             &Apache::lonnet::logthis('insert error '.$dbh->errstr());
             &Apache::lonnet::logthis("While attempting\n".$store_command);
         }
@@ -1368,9 +1368,9 @@ sub update_full_student_data {
         ($sname,$sdom,$courseid,
          &Apache::lonnet::convert_dump_to_currentdump(\%studentdata));
     if ($returnstatus eq 'okay' && $status ne 'okay') {
-        $returnstatus = 'error storing current data:'.$status;
+        $returnstatus = 'error saving current data:'.$status;
     } elsif ($status ne 'okay') {
-        $returnstatus .= ' error storing current data:'.$status;
+        $returnstatus .= ' error saving current data:'.$status;
     }        
     ##
     ## Update the students time......
@@ -3099,6 +3099,10 @@ sub CL_FULLNAME { return 6; }
 sub CL_STATUS   { return 7; }
 sub CL_TYPE     { return 8; }
 sub CL_LOCKEDTYPE   { return 9; }
+sub CL_GROUP    { return 10; }
+sub CL_PERMANENTEMAIL { return 11; }
+sub CL_ROLE     { return 12; }
+sub CL_EXTENT   { return 13; }
 
 sub get_classlist {
     my ($cdom,$cnum) = @_;
@@ -3185,7 +3189,7 @@ sub get_group_memberships {
     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})) {