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 |
# FIXME internal WebPAC encoding is ISO-8859-2 |
# FIXME internal WebPAC encoding is ISO-8859-2 |
116 |
my $val = decode('ISO-8859-2', $hash->{$col}); |
# my $val = decode('ISO-8859-2', $hash->{$col}); |
117 |
|
my $val = $hash->{$col}; |
118 |
# protect data which looks like forula |
# protect data which looks like forula |
119 |
$val = "'$val" if $val =~ m/^=/; |
$val = "'$val" if $val =~ m/^=/; |
120 |
$log->debug("$col$l|$val"); |
$log->debug("$col$l|$val"); |