loncom/interface/spreadsheet/Spreadsheet.pm - diff

Return to Spreadsheet.pm CVS log

Up to [LON-CAPA] / loncom / interface / spreadsheet

version 1.1, 2003/05/16 20:55:11	version 1.3, 2003/05/22 21:16:35
Line 98 sub new {	Line 98 sub new {
coursedesc => $ENV{'course.'.$ENV{'request.course.id'}.'.description'},	coursedesc => $ENV{'course.'.$ENV{'request.course.id'}.'.description'},
coursefilename => $ENV{'request.course.fn'},	coursefilename => $ENV{'request.course.fn'},
#	#
	# blackout is used to determine if any data needs to be hidden from the
	# student.
	blackout => 0,
	#
# Data storage	# Data storage
formulas => {},	formulas => {},
constants => {},	constants => {},
Line 1500 sub othersheets {	Line 1504 sub othersheets {
my %results=&Apache::lonnet::dump($stype.'_spreadsheets',	my %results=&Apache::lonnet::dump($stype.'_spreadsheets',
$self->{'cdom'}, $self->{'cnum'});	$self->{'cdom'}, $self->{'cnum'});
my ($tmp) = keys(%results);	my ($tmp) = keys(%results);
unless ($tmp =~ /^(con_lost\|error\|no_such_host)/i ) {	if ($tmp =~ /^(con_lost\|error\|no_such_host)/i ) {
	@alternatives = ('Default');
	} else {
@alternatives = sort (keys(%results));	@alternatives = sort (keys(%results));
}	}
return @alternatives;	return @alternatives;
}	}

	sub blackout {
	my $self = shift;
	$self->{'blackout'} = $_[0] if (@_);
	return $self->{'blackout'};
	}

sub get_row {	sub get_row {
my $self = shift;	my $self = shift;
my ($n)=@_;	my ($n)=@_;