loncom/interface/spreadsheet/assesscalc.pm - diff

Return to assesscalc.pm CVS log

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

version 1.37, 2005/03/03 17:52:36	version 1.38, 2005/03/10 17:33:57
Line 562 sub excel_rows {	Line 562 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 ($connection,$worksheet,$cols_output,$rows_output) = @_;	my ($connection,$worksheet,$cols_output,$rows_output,$format) = @_;
return if (! ref($worksheet));	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++,$value);	$worksheet->write($rows_output,$cols_output++,$value,$format->{'h4'});
}	}
$rows_output++;	$rows_output++;
#	#
# Write each row	# Write each row
foreach my $rownum (sort {$a <=> $b} ($self->rows())) {	foreach my $rownum (sort {$a <=> $b} ($self->rows())) {