loncom/interface/lonspreadsheet.pm - diff

Return to lonspreadsheet.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.120, 2002/10/22 13:09:49	version 1.121, 2002/10/22 13:13:15
Line 1009 sub outrow {	Line 1009 sub outrow {
return @cols;	return @cols;
}	}

sub exportrowa {
my @exportarray=();
foreach ('A','B','C','D','E','F','G','H','I','J','K','L','M',
'N','O','P','Q','R','S','T','U','V','W','X','Y','Z') {
push(@exportarray,$sheet_values{$_.'0'});
}
return @exportarray;
}

sub templaterow {	sub templaterow {
my @cols=();	my @cols=();
$cols[0]='<b><font size=+1>Template</font></b>';	$cols[0]='<b><font size=+1>Template</font></b>';
Line 1091 sub getfa {	Line 1082 sub getfa {
# ------------------------------------------------------------- Export of A-row	# ------------------------------------------------------------- Export of A-row
sub exportdata {	sub exportdata {
my $sheet=shift;	my $sheet=shift;
return $sheet->{'safe'}->reval('&exportrowa()');	my @exportarray=();
	foreach ('A','B','C','D','E','F','G','H','I','J','K','L','M',
	'N','O','P','Q','R','S','T','U','V','W','X','Y','Z') {
	push(@exportarray,$sheet->{'values'}->{$_.'0'});
	}
	return @exportarray;
}	}


# ========================================================== End of Spreadsheet	# ========================================================== End of Spreadsheet
# =============================================================================	# =============================================================================