loncom/interface/lonspreadsheet.pm - diff

Return to lonspreadsheet.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.156, 2002/12/09 14:50:11	version 1.157, 2002/12/09 16:06:56
Line 1839 sub readsheet {	Line 1839 sub readsheet {
}	}
%f=%{&parse_sheet(\$sheetxml)};	%f=%{&parse_sheet(\$sheetxml)};
} else {	} else {
my $sheet='';
my %tmphash = &Apache::lonnet::dump($fn,$cdom,$cnum);	my %tmphash = &Apache::lonnet::dump($fn,$cdom,$cnum);
my ($tmp) = keys(%tmphash);	my ($tmp) = keys(%tmphash);
unless ($tmp =~ /^(con_lost\|error\|no_such_host)/i) {	if ($tmp !~ /^(con_lost\|error\|no_such_host)/i) {
foreach (keys(%tmphash)) {	foreach (keys(%tmphash)) {
$f{$_}=$tmphash{$_};	$f{$_}=$tmphash{$_};
}	}
	} else {
	# Unable to grab the specified spreadsheet,
	# so we get the default ones instead.
	$fn = 'default_'.$stype;
	$sheet->{'filename'} = $fn;
	my $dfn = $fn;
	$dfn =~ s/\_/\./g;
	my $sheetxml;
	if (my $fh=Apache::File->new($includedir.'/'.$dfn)) {
	$sheetxml = join('',<$fh>);
	} else {
	$sheetxml='<field row="0" col="A">'.
	'"Unable to load spreadsheet"</field>';
	}
	%f=%{&parse_sheet(\$sheetxml)};
}	}
}	}
# Cache and set	# Cache and set