Item13036: improve cross-engine compatibility

... displaying formfield values

.gitignore

@@ -0,0 +1,9 @@
+*.gz
+*.swp
+FlexFormPlugin.md5
+FlexFormPlugin.sha1
+FlexFormPlugin.tgz
+FlexFormPlugin.txt
+FlexFormPlugin.zip
+FlexFormPlugin_installer
+FlexFormPlugin_installer.pl

data/System/FlexFormPlugin.txt

@@ -1,4 +1,4 @@
-%META:TOPICINFO{author="ProjectContributor" comment="autosave" date="1356278771" format="1.1" version="3"}%
+%META:TOPICINFO{author="ProjectContributor" comment="" date="1411636821" format="1.1" version="1"}%
 ---+!! %TOPIC%
 %$SHORTDESCRIPTION% 
 
@@ -186,6 +186,7 @@ Note that the actual results may vary depending on the formfield type of the !Da
 |  Release: | %$RELEASE% |
 |  Version: | %$VERSION% |
 |  Change History: | <!-- versions below in reverse order -->&nbsp; |
+|  29 Sep 2014: | improved cross-engine compatibility displaying formfield values |
 |  28 Aug 2014: | added new feature %<nop>RENDERFORMDEF |
 |  03 Mar 2014: | work around different styles of inconsistencies in =renderForDisplay= across foswiki core releases |
 |  07 Nov 2013: | properly render =checkbox+buttons= formfields |

lib/Foswiki/Plugins/FlexFormPlugin.pm

@@ -18,8 +18,8 @@ package Foswiki::Plugins::FlexFormPlugin;
 use strict;
 use warnings;
 
-our $VERSION = '3.00';
-our $RELEASE = '3.00';
+our $VERSION = '3.10';
+our $RELEASE = '3.10';
 our $SHORTDESCRIPTION = 'Flexible way to render <nop>DataForms';
 our $NO_PREFS_IN_TOPIC = 1;
 our $doneInit;

lib/Foswiki/Plugins/FlexFormPlugin/Core.pm

@@ -355,9 +355,7 @@ sub handleRENDERFORDISPLAY {
     # - patch in (display) value as $value
     # - use raw value as $origvalue
     my $origValue = $fieldValue;
-    if ($field->can('getDisplayValue')) { 
-      $fieldValue = $field->getDisplayValue($fieldValue);
-    }
+    $line =~ s/\$value([^\(]|$)/\$value(display)\0$1/g;
 
     # now dive into the core and see what we get out of it
     $line = $field->renderForDisplay($line, $fieldValue, {
@@ -366,6 +364,8 @@ sub handleRENDERFORDISPLAY {
       display=> 1,
     }); 
 
+    $line =~ s/(?:\(display\))?\0//g;
+
     # render left-overs by ourselfs
     $line =~ s/\$name\b/$fieldName/g;
     $line =~ s/\$type\b/$fieldType/g;