From 67d9982d12d48145c29f073f647a83c2bed9f1c6 Mon Sep 17 00:00:00 2001
From: Graham Knop <graham@plainblack.com>
Date: Tue, 2 Sep 2008 17:36:01 +0000
Subject: [PATCH] fixed: DataForm export tab delimited doesn't work

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

diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
index 110c5c240..b12a3d6e2 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -1,4 +1,5 @@
 7.6.0
+ - fixed: DataForm export tab delimited doesn't work
  - fixed: Project Manager sometimes causes errors when adding users to a task
  - fixed: site navigation will sometimes show as half or not styled
  - fixed: after editting assets from the asset manager, it returns to site instead of manager
diff --git a/lib/WebGUI/Asset/Wobject/DataForm.pm b/lib/WebGUI/Asset/Wobject/DataForm.pm
index de00dbdb5..2ad1ed84a 100644
--- a/lib/WebGUI/Asset/Wobject/DataForm.pm
+++ b/lib/WebGUI/Asset/Wobject/DataForm.pm
@@ -1233,7 +1233,7 @@ sub www_exportTab {
             'submissionDate',
             @exportFields,
         );
-        my $outText = $tsv->print;
+        my $outText = $tsv->string;
 
         while (my $entryData = $entries->hashRef) {
             my $entryFields = JSON::from_json($entryData->{entryData});
@@ -1245,7 +1245,7 @@ sub www_exportTab {
                 WebGUI::DateTime->new($self->session, $entryData->{submissionDate})->webguiDate,
                 @{ $entryFields }{@exportFields},
             );
-            $outText .= $tsv->print;
+            $outText .= $tsv->string;
         }
         $entries->finish;
         $self->session->http->setFilename($self->get("url").".tab","text/plain");