From: <de...@de...> - 2012-11-02 08:19:34
|
Author: PeterThoeny Date: 2012-11-02 03:19:28 -0500 (Fri, 02 Nov 2012) New Revision: 23856 Trac url: http://develop.twiki.org/trac/changeset/23856 Modified: twiki/branches/TWikiRelease05x01/SpreadSheetPlugin/lib/TWiki/Plugins/SpreadSheetPlugin/Calc.pm Log: Item7018: Fix warning if empty MAX and MIN Modified: twiki/branches/TWikiRelease05x01/SpreadSheetPlugin/lib/TWiki/Plugins/SpreadSheetPlugin/Calc.pm =================================================================== --- twiki/branches/TWikiRelease05x01/SpreadSheetPlugin/lib/TWiki/Plugins/SpreadSheetPlugin/Calc.pm 2012-11-02 08:18:58 UTC (rev 23855) +++ twiki/branches/TWikiRelease05x01/SpreadSheetPlugin/lib/TWiki/Plugins/SpreadSheetPlugin/Calc.pm 2012-11-02 08:19:28 UTC (rev 23856) @@ -546,14 +546,14 @@ grep { /./ } grep { defined $_ } _getListAsFloat( $theAttr ); - $result = $arr[$#arr]; + $result = $arr[$#arr] if( scalar @arr ); } elsif( $theFunc eq "MIN" ) { my @arr = sort { $a <=> $b } grep { /./ } grep { defined $_ } _getListAsFloat( $theAttr ); - $result = $arr[0]; + $result = $arr[0] if( scalar @arr ); } elsif( $theFunc eq "SUM" ) { $result = 0; |