From f4139a2a81f3e5a727c5c01039edf36b8db6997a Mon Sep 17 00:00:00 2001
From: Graham Knop <graham@plainblack.com>
Date: Wed, 19 Sep 2007 17:08:23 +0000
Subject: [PATCH] fix DataForm exportTab field order

---
 docs/changelog/7.x.x.txt             | 1 +
 lib/WebGUI/Asset/Wobject/DataForm.pm | 4 +++-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
index 62d8f931f..d6fec7687 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -12,6 +12,7 @@
  - fix: Fixed a bug which caused assets to be uneditable if their edit group 
    had been deleted. (Martin Kamerbeek / Oqapi)
  - fix: Events don't display on last day of week on week view
+ - fix: Data Form tab delimited export doesn't obey field order
 
 7.4.6
  - Prevent Help index from trying to link to non-existant documentation
diff --git a/lib/WebGUI/Asset/Wobject/DataForm.pm b/lib/WebGUI/Asset/Wobject/DataForm.pm
index adcaf96ce..b1425edcf 100644
--- a/lib/WebGUI/Asset/Wobject/DataForm.pm
+++ b/lib/WebGUI/Asset/Wobject/DataForm.pm
@@ -1147,7 +1147,9 @@ sub www_exportTab {
         my $self = shift;
         return $self->session->privilege->insufficient() unless $self->canEdit;
         $self->session->http->setFilename($self->get("url").".tab","text/plain");
-        my %fields = $self->session->db->buildHash("select DataForm_fieldId,name from DataForm_field where
+        my %fields;
+        tie %fields, 'Tie::IxHash';
+        %fields = $self->session->db->buildHash("select DataForm_fieldId,name from DataForm_field where
                 assetId=".$self->session->db->quote($self->getId)." order by sequenceNumber");
         my @data;
         my $entries = $self->session->db->read("select * from DataForm_entry where assetId=".$self->session->db->quote($self->getId));