--- loncom/interface/spreadsheet/Spreadsheet.pm	2006/03/05 21:38:27	1.65
+++ loncom/interface/spreadsheet/Spreadsheet.pm	2006/04/06 16:43:49	1.66
@@ -1,5 +1,5 @@
 #
-# $Id: Spreadsheet.pm,v 1.65 2006/03/05 21:38:27 bowersj2 Exp $
+# $Id: Spreadsheet.pm,v 1.66 2006/04/06 16:43:49 albertel 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)=@_;
+    my ($name,$domain,$filename,$usymb,$section)=@_;
     if (defined($usymb) && ref($usymb)) {
         $usymb = $usymb->symb;
     }
@@ -95,10 +95,15 @@ sub new {
     if (! defined($domain) || $domain eq '') {
         $domain = $env{'user.domain'};
     }
+    if (! defined($section) || $section eq '') {
+        $section = &Apache::lonnet::getsection($domain,$name,
+					       $env{'request.course.id'});
+    }
     #
     my $self = {
         name     => $name,
         domain   => $domain,
+        section  => $section,
         type     => $stype,
         symb     => $usymb,
         errorlog => '',