--- loncom/interface/spreadsheet/lonspreadsheet.pm	2006/04/10 22:59:16	1.46
+++ loncom/interface/spreadsheet/lonspreadsheet.pm	2006/05/01 06:17:16	1.47
@@ -1,5 +1,5 @@
 #
-# $Id: lonspreadsheet.pm,v 1.46 2006/04/10 22:59:16 albertel Exp $
+# $Id: lonspreadsheet.pm,v 1.47 2006/05/01 06:17:16 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -266,22 +266,13 @@ sub handler {
     $env{'form.sdomain'} = $domain;
     my $section = &Apache::lonnet::getsection($domain,$name,
 					      $env{'request.course.id'});
-    my $group;
-    my @groups = ();
+    my @groups;
     if (($env{'user.name'} eq $name) && ($env{'user.domain'} eq $domain)) {
-        @groups=&Apache::lonnet::sort_course_groups(
-                                                 $env{'request.course.groups'},
-                                                 $env{'request.course.id'});
+        @groups = &Apache::lonnet::sort_course_groups($env{'request.course.id'},
+                                    split(':',$env{'request.course.groups'}));
     } else {
-        my $grouplist = &Apache::lonnet::get_users_groups($domain,$name,
+        @groups = &Apache::lonnet::get_users_groups($domain,$name,
                                                     $env{'request.course.id'});
-        if ($grouplist) {
-            @groups=&Apache::lonnet::sort_course_groups($grouplist,
-                                                    $env{'request.course.id'});
-        }
-    }
-    if (@groups > 0) {
-        $group = $groups[0];
     }
 
     ##
@@ -467,15 +458,15 @@ ENDSCRIPT
     my $spreadsheet = undef;
     if ($sheettype eq 'classcalc') {
         $spreadsheet = Apache::classcalc->new($name,$domain,$filename,undef,
-					      $section,$group);
+					      $section,\@groups);
     } elsif ($sheettype eq 'studentcalc') {
         $spreadsheet = Apache::studentcalc->new($name,$domain,$filename,undef,
-						$section,$group);
+						$section,\@groups);
     } elsif ($sheettype eq 'assesscalc' && 
              defined($symb) && 
              $allowed_to_edit) {
         $spreadsheet = Apache::assesscalc->new($name,$domain,$filename,$symb,
-					       $section,$group);
+					       $section,\@groups);
     } else {
         return HTTP_NOT_ACCEPTABLE;
     }