loncom/interface/lonspreadsheet.pm - diff

Return to lonspreadsheet.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.72, 2001/10/22 15:03:22	version 1.73, 2001/11/05 18:22:24
Line 7	Line 7
# 03/05,03/08,03/10,03/12,03/13,03/15,03/17,	# 03/05,03/08,03/10,03/12,03/13,03/15,03/17,
# 03/19,03/20,03/21,03/27,04/05,04/09,	# 03/19,03/20,03/21,03/27,04/05,04/09,
# 07/09,07/14,07/21,09/01,09/10,9/11,9/12,9/13,9/14,9/17,	# 07/09,07/14,07/21,09/01,09/10,9/11,9/12,9/13,9/14,9/17,
# 10/16,10/17,10/20 Gerd Kortemeyer	# 10/16,10/17,10/20,11/05 Gerd Kortemeyer

package Apache::lonspreadsheet;	package Apache::lonspreadsheet;

Line 880 sub readsheet {	Line 880 sub readsheet {
my $sheetxml='';	my $sheetxml='';
{	{
my $fh;	my $fh;
if ($fh=Apache::File->new($includedir.	my $dfn=$fn;
'/default.'.&gettype($safeeval))) {	$dfn=~s/\_/\./g;
	if ($fh=Apache::File->new($includedir.'/'.$dfn)) {
$sheetxml=join('',<$fh>);	$sheetxml=join('',<$fh>);
}	} else {
	$sheetxml='<field row="0" col="A">"Error"</field>';
	}
}	}
my $parser=HTML::TokeParser->new(\$sheetxml);	my $parser=HTML::TokeParser->new(\$sheetxml);
my $token;	my $token;