From a1e1d93360caa8ecd7072e03d00632a5342f0dad Mon Sep 17 00:00:00 2001
From: Graham Knop <graham@plainblack.com>
Date: Thu, 13 Sep 2007 19:49:19 +0000
Subject: [PATCH] add type to data form record loop

---
 docs/changelog/7.x.x.txt                  | 1 +
 lib/WebGUI/Asset/Wobject/DataForm.pm      | 3 ++-
 lib/WebGUI/Help/Asset_DataForm.pm         | 3 ++-
 lib/WebGUI/i18n/English/Asset_DataForm.pm | 4 ++++
 4 files changed, 9 insertions(+), 2 deletions(-)

diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
index d3b9ecfe4..c5753c9b9 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -1,4 +1,5 @@
 7.4.7
+ - add type variable to Data Form record loop
 
 
 7.4.6
diff --git a/lib/WebGUI/Asset/Wobject/DataForm.pm b/lib/WebGUI/Asset/Wobject/DataForm.pm
index a38966f4d..c35a9e1d3 100644
--- a/lib/WebGUI/Asset/Wobject/DataForm.pm
+++ b/lib/WebGUI/Asset/Wobject/DataForm.pm
@@ -411,7 +411,8 @@ sub getListTemplateVars {
 				"record.data.name"=>$data->{name},
 				"record.data.label"=>$data->{label},
 				"record.data.value"=>$value,
-				"record.data.isMailField"=>$data->{isMailField}
+				"record.data.isMailField"=>$data->{isMailField},
+                "record_data_type" => $field->{type},
 				});
 		}
 		$dloop->finish;
diff --git a/lib/WebGUI/Help/Asset_DataForm.pm b/lib/WebGUI/Help/Asset_DataForm.pm
index 3448c3558..9a29ef725 100644
--- a/lib/WebGUI/Help/Asset_DataForm.pm
+++ b/lib/WebGUI/Help/Asset_DataForm.pm
@@ -172,7 +172,8 @@ our $HELP = {
                             { 'name' => 'record.data.name' },
                             { 'name' => 'record.data.label' },
                             { 'name' => 'record.data.value' },
-                            { 'name' => 'record.data.isMailField' }
+                            { 'name' => 'record.data.isMailField' },
+                            { 'name' => 'record_data_type' },
                         ]
                     }
                 ]
diff --git a/lib/WebGUI/i18n/English/Asset_DataForm.pm b/lib/WebGUI/i18n/English/Asset_DataForm.pm
index 6840a0730..d1284b593 100644
--- a/lib/WebGUI/i18n/English/Asset_DataForm.pm
+++ b/lib/WebGUI/i18n/English/Asset_DataForm.pm
@@ -726,6 +726,10 @@ below to see which template variables may be used inside this loop.|,
 		lastUpdated => 1149392138,
 	},
 
+	'record_data_type' => {
+		message => q|The data type associated with this field.|,
+		lastUpdated => 1189713018,
+	},
 	'24' => {
 		message => q|Possible Values|,
 		lastUpdated => 1031514049