loncom/interface/spreadsheet/assesscalc.pm - diff

Return to assesscalc.pm CVS log

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

version 1.29, 2003/11/17 19:55:41	version 1.30, 2003/12/08 19:58:39
Line 531 sub csv_rows {	Line 531 sub csv_rows {
# writes the meat of the spreadsheet to an excel worksheet. Called	# writes the meat of the spreadsheet to an excel worksheet. Called
# by Spreadsheet::outsheet_excel;	# by Spreadsheet::outsheet_excel;
my $self = shift;	my $self = shift;
my ($filehandle) = @_;	my ($connection,$filehandle) = @_;
#	#
# Write a header row	# Write a header row
$self->csv_output_row($filehandle,undef,	$self->csv_output_row($filehandle,undef,
Line 554 sub excel_rows {	Line 554 sub excel_rows {
# writes the meat of the spreadsheet to an excel worksheet. Called	# writes the meat of the spreadsheet to an excel worksheet. Called
# by Spreadsheet::outsheet_excel;	# by Spreadsheet::outsheet_excel;
my $self = shift;	my $self = shift;
my ($worksheet,$cols_output,$rows_output) = @_;	my ($connection,$worksheet,$cols_output,$rows_output) = @_;
	return if (! ref($worksheet));
#	#
# Write a header row	# Write a header row
$cols_output = 0;	$cols_output = 0;
foreach my $value ('Parameter','Description','Value') {	foreach my $value ('Parameter','Description','Value') {
$worksheet->write($rows_output,$cols_output++,&mt($value));	$worksheet->write($rows_output,$cols_output++,$value);
}	}
$rows_output++;	$rows_output++;
#	#