16 |
|
|
17 |
use Spreadsheet::WriteExcel; |
use Spreadsheet::WriteExcel; |
18 |
use File::Slurp; |
use File::Slurp; |
19 |
|
use Encode qw/decode/; |
20 |
|
|
21 |
=head1 NAME |
=head1 NAME |
22 |
|
|
112 |
|
|
113 |
my $worksheet = $self->worksheet || $log->logconfess("no worksheet?"); |
my $worksheet = $self->worksheet || $log->logconfess("no worksheet?"); |
114 |
foreach my $col ( sort grep { /^[A-Z]/ } keys %$hash ) { |
foreach my $col ( sort grep { /^[A-Z]/ } keys %$hash ) { |
115 |
my $val = $hash->{$col}; |
# FIXME internal WebPAC encoding is ISO-8859-2 |
116 |
|
my $val = decode('ISO-8859-2', $hash->{$col}); |
117 |
$log->debug("$col$l|$val"); |
$log->debug("$col$l|$val"); |
118 |
$worksheet->write( $col . $l , $val ); |
$worksheet->write( $col . $l , $val ); |
|
# || $log->logdie("can't add ", $col, $l, '|', $val, ": $!"); |
|
119 |
$cols++; |
$cols++; |
120 |
} |
} |
121 |
|
|