From ddad62cf4c239f1615778b3e91a1e3473126d55e Mon Sep 17 00:00:00 2001
From: Roly Rudy Gutierrez Pinto <gproly@gmail.com>
Date: Fri, 19 Feb 2016 15:00:34 -0400
Subject: [PATCH] HOR-171

---
 workflow/engine/classes/class.pmDynaform.php  |  2 +-
 workflow/engine/classes/class.pmFunctions.php | 64 +++++++++++++++++++
 2 files changed, 65 insertions(+), 1 deletion(-)

diff --git a/workflow/engine/classes/class.pmDynaform.php b/workflow/engine/classes/class.pmDynaform.php
index f339eee97..a92d348b9 100644
--- a/workflow/engine/classes/class.pmDynaform.php
+++ b/workflow/engine/classes/class.pmDynaform.php
@@ -139,7 +139,7 @@ class pmDynaform
             if (!$sw1 && !$sw2) {
                 //read event
                 $fn = $this->onPropertyRead;
-                if (function_exists($fn)) {
+                if (is_callable($fn) || function_exists($fn)) {
                     $fn($json, $key, $value);
                 }
                 //set properties from trigger
diff --git a/workflow/engine/classes/class.pmFunctions.php b/workflow/engine/classes/class.pmFunctions.php
index 20c9aa568..da63e0fdd 100755
--- a/workflow/engine/classes/class.pmFunctions.php
+++ b/workflow/engine/classes/class.pmFunctions.php
@@ -3011,6 +3011,70 @@ function PMFGeti18nText($id, $category, $lang = "en")
     return $text;
 }
 
+/**
+ * @method
+ * Function to return an array of objects containing the properties of the fields 
+ * in a specified DynaForm. 
+ * It also inserts the "value" and "value_label" as properties in the fields' objects, 
+ * if the case is specified.
+ * @name PMFDynaFormFields
+ * @label PMF DynaForm Fields
+ * @param string | $dynUid | Dynaform ID | Id of the dynaform
+ * @param string | $appUid | Case ID | Id of the case
+ * @param int | $delIndex | Delegation index | Delegation index for case
+ * @return array | $fields | List of fields | Return a list of fields
+ */
+function PMFDynaFormFields($dynUid, $appUid = false, $delIndex = 0)
+{
+    G::LoadClass("pmDynaform");
+    $fields = array();
+    $data = array();
+
+    if ($appUid !== false) {
+        if ($delIndex < 0) {
+            throw new Exception(G::LoadTranslation('ID_INVALID_DELEGATION_INDEX_FOR_CASE') . "'" . $appUid . "'.");
+        }
+        $cases = new Cases();
+        $data = $cases->loadCase($appUid, $delIndex);
+    } else {
+        global $oPMScript;
+        if (isset($oPMScript->aFields) && is_array($oPMScript->aFields)) {
+            $data['APP_DATA'] = $oPMScript->aFields;
+        }
+    }
+    $data["CURRENT_DYNAFORM"] = $dynUid;
+
+    $dynaform = new pmDynaform($data);
+    $dynaform->onPropertyRead = function(&$json, $key, $value) {
+        if (isset($json->data) && !isset($json->value)) {
+            $json->value = $json->data->value;
+            $json->value_label = $json->data->label;
+        }
+    };
+
+    if ($dynaform->isResponsive()) {
+        $json = G::json_decode($dynaform->record["DYN_CONTENT"]);
+        $dynaform->jsonr($json);
+
+        $rows = $json->items[0]->items;
+        foreach ($rows as $items) {
+            foreach ($items as $item) {
+                $fields[] = $item;
+            }
+        }
+    } else {
+        $oldDynaform = new Dynaform();
+        $aFields = $oldDynaform->getDynaformFields($dynUid);
+        foreach ($aFields as $value) {
+            if (isset($data["APP_DATA"]) && isset($data["APP_DATA"][$value->name])) {
+                $value->value = $data["APP_DATA"][$value->name];
+            }
+            $fields[] = $value;
+        }
+    }
+    return $fields;
+}
+
 /**
  * @method
  * This function determines if the domain of the passed email addres  is hosted in