diff options
author | Jesse Luehrs <doy@tozt.net> | 2013-05-07 16:01:25 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2013-05-07 16:01:25 -0500 |
commit | 0fd58674a9607a5fbafaf68850e0fe24b00775cf (patch) | |
tree | 12bfd4244867db2b678c61522211cf0db2012c58 /lib | |
parent | e26631072fcf0fe885ed1215b6d4c80b6a719e3c (diff) | |
download | spreadsheet-template-0fd58674a9607a5fbafaf68850e0fe24b00775cf.tar.gz spreadsheet-template-0fd58674a9607a5fbafaf68850e0fe24b00775cf.zip |
i hate microsoft documentation so much
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Spreadsheet/Template/Generator/Parser/XLSX.pm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lib/Spreadsheet/Template/Generator/Parser/XLSX.pm b/lib/Spreadsheet/Template/Generator/Parser/XLSX.pm index 3189785..630b7df 100644 --- a/lib/Spreadsheet/Template/Generator/Parser/XLSX.pm +++ b/lib/Spreadsheet/Template/Generator/Parser/XLSX.pm @@ -77,6 +77,11 @@ sub _parse_styles { $_->name eq 'a:sysClr' ? $_->att('lastClr') : $_->att('val') } $theme_xml->root->find_nodes('//a:clrScheme/*/*'); + # this shouldn't be necessary, but the documentation is wrong here + # see http://stackoverflow.com/questions/2760976/theme-confusion-in-spreadsheetml + ($colors[0], $colors[1]) = ($colors[1], $colors[0]); + ($colors[2], $colors[3]) = ($colors[3], $colors[2]); + my @fills = map { my $fgcolor_node = $_->first_child('fgColor'); my $fgcolor = 64; # XXX |