--- loncom/interface/spreadsheet/Spreadsheet.pm	2006/04/06 20:24:13	1.67
+++ loncom/interface/spreadsheet/Spreadsheet.pm	2006/05/01 06:17:16	1.68
@@ -1,5 +1,5 @@
 #
-# $Id: Spreadsheet.pm,v 1.67 2006/04/06 20:24:13 raeburn Exp $
+# $Id: Spreadsheet.pm,v 1.68 2006/05/01 06:17:16 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -85,7 +85,7 @@ sub new {
     my $class = ref($this) || $this;
     my ($stype) = ($class =~ /Apache::(.*)$/);
     #
-    my ($name,$domain,$filename,$usymb,$section,$group)=@_;
+    my ($name,$domain,$filename,$usymb,$section,$groups)=@_;
     if (defined($usymb) && ref($usymb)) {
         $usymb = $usymb->symb;
     }
@@ -99,21 +99,18 @@ sub new {
         $section = &Apache::lonnet::getsection($domain,$name,
 					       $env{'request.course.id'});
     }
-    if (! defined($group) || $group eq '') {
-        my $grouplist = &Apache::lonnet::get_users_groups($domain,$name,
-                                                    $env{'request.course.id'});
-        if ($grouplist) {
-            my @groups = &Apache::lonnet::sort_course_groups($grouplist,
+    if (! defined($groups)) {
+
+        my @usersgroups = &Apache::lonnet::get_users_groups($domain,$name,
                                                     $env{'request.course.id'});
-            $group = $groups[0];
-        }
+        $groups = \@usersgroups;
     }
     #
     my $self = {
         name     => $name,
         domain   => $domain,
         section  => $section,
-        group    => $group,
+        groups   => $groups, 
         type     => $stype,
         symb     => $usymb,
         errorlog => '',