--- loncom/interface/spreadsheet/Spreadsheet.pm 2005/09/01 21:47:14 1.55 +++ loncom/interface/spreadsheet/Spreadsheet.pm 2005/09/01 21:52:56 1.56 @@ -1,5 +1,5 @@ # -# $Id: Spreadsheet.pm,v 1.55 2005/09/01 21:47:14 albertel Exp $ +# $Id: Spreadsheet.pm,v 1.56 2005/09/01 21:52:56 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -213,16 +213,8 @@ course environment. Returns 0 otherwise sub is_default { my $self = shift; # Check to find out if we are the default spreadsheet (filenames match) - my $default_filename = ''; - my %tmphash = &Apache::lonnet::get('environment', - ['spreadsheet_default_'. - $self->{'type'}], - $self->{'cdom'}, - $self->{'cnum'}); - my ($tmp) = keys(%tmphash); - if ($tmp !~ /^(con_lost|error|no_such_host)/i) { - $default_filename = $tmphash{'spreadsheet_default_'.$self->{'type'}}; - } + my $default_filename = $env{'course.'.$self->{'cid'}. + '.spreadsheet_default_'.$self->{'type'}}; if ($default_filename =~ /^\s*$/) { $default_filename = 'default_'.$self->{'type'}; }