diff options
author | Jesse Luehrs <doy@tozt.net> | 2015-03-15 01:52:27 -0400 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2015-03-15 02:07:07 -0400 |
commit | 1b0a5bb33762b1a366360fe496daa211f9ca956a (patch) | |
tree | 98d6d391bd3442589257e1ee1b44335a14de5884 /lib | |
parent | 0318aee523bf86bedc323234fc041b566625b372 (diff) | |
download | spreadsheet-parsexlsx-1b0a5bb33762b1a366360fe496daa211f9ca956a.tar.gz spreadsheet-parsexlsx-1b0a5bb33762b1a366360fe496daa211f9ca956a.zip |
use the proper Spreadsheet::ParseExcel api here
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Spreadsheet/ParseXLSX.pm | 17 |
1 files changed, 11 insertions, 6 deletions
diff --git a/lib/Spreadsheet/ParseXLSX.pm b/lib/Spreadsheet/ParseXLSX.pm index 97bff38..e4d8890 100644 --- a/lib/Spreadsheet/ParseXLSX.pm +++ b/lib/Spreadsheet/ParseXLSX.pm @@ -171,9 +171,9 @@ sub _parse_sheet { my ($helem, $felem) = map { $hf->first_child($_) } qw(oddHeader oddFooter); - $sheet->{header} = $helem->text + $sheet->{Header} = $helem->text if $helem; - $sheet->{footer} = $felem->text + $sheet->{Footer} = $felem->text if $felem; $twig->purge; @@ -182,7 +182,8 @@ sub _parse_sheet { 'pageMargins' => sub { my ($twig, $margin) = @_; map { - $sheet->{pageMargins}->{$_} = $margin->att($_) // 0 + my $key = "\u${_}Margin"; + $sheet->{$key} = $margin->att($_) // 0 } qw(left right top bottom header footer); $twig->purge; @@ -190,9 +191,13 @@ sub _parse_sheet { 'pageSetup' => sub { my ($twig, $setup) = @_; - map { - $sheet->{pageSetup}->{$_} = $setup->att($_) // 0 - } qw(scale orientation horizontalDpi verticalDpi paperSize firstPageNumber scale); + $sheet->{Scale} = $setup->att('scale') // 100; + $sheet->{Landscape} = ($setup->att('orientation') // '') ne 'landscape'; + $sheet->{PaperSize} = $setup->att('paperSize') // 1; + $sheet->{PageStart} = $setup->att('firstPageNumber'); + $sheet->{UsePage} = $setup->att('useFirstPageNumber'); + $sheet->{HorizontalDPI} = $setup->att('horizontalDpi'); + $sheet->{VerticalDPI} = $setup->att('verticalDpi'); $twig->purge; }, |