From 83d1203de9b660bc846dd03bf9825c80c4eb6e0e Mon Sep 17 00:00:00 2001
From: Yung Han Khoe <yung@webgui-svn>
Date: Mon, 26 Jan 2009 17:18:15 +0000
Subject: [PATCH] adding Transposed results export to Survey

---
 lib/WebGUI/Asset/Wobject/Survey.pm | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)

diff --git a/lib/WebGUI/Asset/Wobject/Survey.pm b/lib/WebGUI/Asset/Wobject/Survey.pm
index 57fc295cf..75c1982b1 100644
--- a/lib/WebGUI/Asset/Wobject/Survey.pm
+++ b/lib/WebGUI/Asset/Wobject/Survey.pm
@@ -1197,6 +1197,33 @@ sub www_exportSimpleResults {
     return $self->export( $filename, $content );
 }
 
+#-------------------------------------------------------------------
+
+=head2 www_exportTransposedResults (){
+
+Returns transposed results as a tabbed file.
+
+=cut
+
+sub www_exportTransposedResults {
+    my $self = shift;
+    return $self->session->privilege->insufficient()
+        unless ( $self->session->user->isInGroup( $self->get("groupToViewReports") ) );
+
+    $self->loadTempReportTable();
+
+    my $filename = $self->session->url->escape( $self->get("title") . "_transposedResults.tab" );
+    my $content
+        = $self->session->db->quickTab(
+        "select r.userId, r.username, r.ipAddress, r.startDate, r.endDate, r.isComplete, t.*
+        from Survey_tempReport t 
+        left join Survey_response r using(Survey_responseId) 
+        where t.assetId=? 
+        order by r.userId, r.Survey_responseId, t.order",
+        [ $self->getId() ] );
+    return $self->export( $filename, $content );
+}
+
 #-------------------------------------------------------------------
 sub export {
     my $self     = shift;