From: <de...@de...> - 2012-06-30 21:17:14
|
Author: PeterThoeny Date: 2012-06-30 16:17:06 -0500 (Sat, 30 Jun 2012) New Revision: 23055 Trac url: http://develop.twiki.org/trac/changeset/23055 Modified: twiki/trunk/SpreadSheetPlugin/lib/TWiki/Plugins/SpreadSheetPlugin/Calc.pm Log: Item6898: Doc improvement: Adding FILTER() function Modified: twiki/trunk/SpreadSheetPlugin/lib/TWiki/Plugins/SpreadSheetPlugin/Calc.pm =================================================================== --- twiki/trunk/SpreadSheetPlugin/lib/TWiki/Plugins/SpreadSheetPlugin/Calc.pm 2012-06-30 17:45:09 UTC (rev 23054) +++ twiki/trunk/SpreadSheetPlugin/lib/TWiki/Plugins/SpreadSheetPlugin/Calc.pm 2012-06-30 21:17:06 UTC (rev 23055) @@ -758,6 +758,15 @@ eval 'substr( $string, $start, 0, $new )'; $result = $string; + } elsif( $theFunc eq "FILTER" ) { + my( $filter, $string ) = split ( /,\s*/, $theAttr, 2 ); + if( defined $string ) { + $filter =~ s/\$comma/,/g; + $filter =~ s/\$sp/ /g; + eval '$string =~ s/$filter//go'; + $result = $string; + } + } elsif( $theFunc eq "TRANSLATE" ) { $result = $theAttr; # greedy match for comma separated parameters (in case first parameter has embedded commas) |