[TWiki-Dev] [SVN] PeterThoeny r19596 - twiki/trunk/core/lib

[<de...@de...>]

Author: PeterThoeny
Date: 2010-10-26 23:18:58 -0500 (Tue, 26 Oct 2010)
New Revision: 19596
Trac url: http://develop.twiki.org/trac/changeset/19596

Modified:
   twiki/trunk/core/lib/TWiki.pm
Log:
Item6599: Add format parameter to var URLPARAM

Modified: twiki/trunk/core/lib/TWiki.pm
===================================================================
--- twiki/trunk/core/lib/TWiki.pm	2010-10-25 04:23:14 UTC (rev 19595)
+++ twiki/trunk/core/lib/TWiki.pm	2010-10-27 04:18:58 UTC (rev 19596)
@@ -4065,6 +4065,7 @@
     my $newLine   = $params->{newline};
     my $encode    = $params->{encode} || 'safe';
     my $multiple  = $params->{multiple};
+    my $format    = $params->{format} || '$value';
     my $separator = $params->{separator};
     $separator="\n" unless (defined $separator);
 
@@ -4090,6 +4091,8 @@
         }
     }
     if( defined $value ) {
+        $format =~ s/\$value/$value/go;
+        $value = $format;
         if( defined $newLine ) {
             $newLine =~ s/\$br\b/\0-br-\0/go;
             $newLine =~ s/\$n\b/\0-n-\0/go;