diff options
| author | Mark Wells <mark@freeside.biz> | 2012-07-06 13:00:17 -0700 |
|---|---|---|
| committer | Mark Wells <mark@freeside.biz> | 2012-07-06 13:00:17 -0700 |
| commit | 005424d0c899aa899f43f583a6c74deb13ea4be1 (patch) | |
| tree | 289ebba877424c4c2df2d9e80a749d1d0ec725b5 /httemplate/search/elements/search-xls.html | |
| parent | 0610c50fd0786e2e6ccc850d68b6e865eba86541 (diff) | |
excel number format fix, #17971
Diffstat (limited to 'httemplate/search/elements/search-xls.html')
| -rw-r--r-- | httemplate/search/elements/search-xls.html | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/httemplate/search/elements/search-xls.html b/httemplate/search/elements/search-xls.html index 6a19cf2f5..a3a8226c5 100644 --- a/httemplate/search/elements/search-xls.html +++ b/httemplate/search/elements/search-xls.html @@ -49,7 +49,7 @@ my $writer = sub { # Wrapper for $worksheet->write. # Do any massaging of the value/format here. my ($r, $c, $value, $format) = @_; - if ( $value =~ /^\Q$money_char\E(\d+\.?\d*)$/ ) { + if ( $value =~ /^\Q$money_char\E(-?\d+\.?\d*)$/ ) { # Currency: strip the symbol, clone the requested format, # and format it for currency $value = $1; |