From 9b1330ff59fd6b7faefa1fcc798b898359e7b9e9 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Wed, 29 Jan 2014 15:56:58 -0500 Subject: return undef to mean 'the default color' (#15) --- lib/Spreadsheet/ParseXLSX.pm | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) (limited to 'lib/Spreadsheet/ParseXLSX.pm') diff --git a/lib/Spreadsheet/ParseXLSX.pm b/lib/Spreadsheet/ParseXLSX.pm index 72d8a58..9a41518 100644 --- a/lib/Spreadsheet/ParseXLSX.pm +++ b/lib/Spreadsheet/ParseXLSX.pm @@ -673,11 +673,9 @@ sub _color { my $self = shift; my ($colors, $color_node) = @_; - my $color; # XXX - if ($color_node) { - $color = '#000000' # XXX - if $color_node->att('auto'); - $color = '#' . Spreadsheet::ParseExcel->ColorIdxToRGB( # XXX + my $color; + if ($color_node && !$color_node->att('auto')) { + $color = '#' . Spreadsheet::ParseExcel->ColorIdxToRGB( $color_node->att('indexed') ) if defined $color_node->att('indexed'); $color = '#' . substr($color_node->att('rgb'), 2, 6) -- cgit v1.2.3-54-g00ecf