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 |
# ============================================================================= |
# ============================================================================= |
|
|