diff options
author | Jesse Luehrs <doy@tozt.net> | 2013-07-30 16:10:34 -0400 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2013-07-30 16:10:34 -0400 |
commit | f56eb8c3e991d34438e8dc38ea04d091750daa6f (patch) | |
tree | 46d0f41e307b42c65e3975069a64c1766fbbe198 /lib | |
parent | 8a787698efd28a9bec64b1e5d13a4670b1bc1779 (diff) | |
download | spreadsheet-parsexlsx-f56eb8c3e991d34438e8dc38ea04d091750daa6f.tar.gz spreadsheet-parsexlsx-f56eb8c3e991d34438e8dc38ea04d091750daa6f.zip |
lowestEdited doesn't always exist (#3)
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Spreadsheet/ParseXLSX.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lib/Spreadsheet/ParseXLSX.pm b/lib/Spreadsheet/ParseXLSX.pm index 055bcba..7b672fb 100644 --- a/lib/Spreadsheet/ParseXLSX.pm +++ b/lib/Spreadsheet/ParseXLSX.pm @@ -73,9 +73,11 @@ sub _parse_workbook { my ($version) = $files->{workbook}->find_nodes('//fileVersion'); my ($properties) = $files->{workbook}->find_nodes('//workbookPr'); - $workbook->{Version} = join('-', - map { $version->att($_) } qw(appName lowestEdited) - ); + $workbook->{Version} = $version->att('appName') + . ($version->att('lowestEdited') + ? ('-' . $version->att('lowestEdited')) + : ("")); + $workbook->{Flag1904} = $properties->att('date1904') ? 1 : 0; $workbook->{FmtClass} = Spreadsheet::ParseExcel::FmtDefault->new; # XXX |