diff options
| author | Jesse Luehrs <doy@tozt.net> | 2013-05-03 11:32:52 -0500 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2013-05-03 11:32:52 -0500 |
| commit | d6234f9f24adb66db1ed87a7412f562b731459e2 (patch) | |
| tree | 82e8e9655d50056344081a334b610023a0b85ae5 | |
| parent | f8489e2582960a6e281d14d76149930a5e782881 (diff) | |
| download | spreadsheet-template-d6234f9f24adb66db1ed87a7412f562b731459e2.tar.gz spreadsheet-template-d6234f9f24adb66db1ed87a7412f562b731459e2.zip | |
add numeric format
| -rw-r--r-- | lib/Spreadsheet/Template/Generator/Parser/Excel.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/Spreadsheet/Template/Generator/Parser/Excel.pm b/lib/Spreadsheet/Template/Generator/Parser/Excel.pm index 80892a0..2c43b40 100644 --- a/lib/Spreadsheet/Template/Generator/Parser/Excel.pm +++ b/lib/Spreadsheet/Template/Generator/Parser/Excel.pm @@ -127,7 +127,9 @@ sub _parse_cell { unless $format->{AlignV} == 2; $format_data->{text_wrap} = JSON::true if $format->{Wrap}; - # XXX num_format + my $wb = $self->excel; + $format_data->{num_format} = $wb->{FormatStr}{$format->{FmtIdx}} + unless $wb->{FormatStr}{$format->{FmtIdx}} eq 'GENERAL'; } my $data = { |