Index: openacs-4/contrib/packages/survey/www/admin/responses-export.vuh
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/survey/www/admin/Attic/responses-export.vuh,v
diff -u -N
--- openacs-4/contrib/packages/survey/www/admin/responses-export.vuh	14 Mar 2005 14:17:12 -0000	1.2
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,157 +0,0 @@
-# /www/survey/admin/responses-export.tcl
-ad_page_contract {
-
-  CSV export of responses to particular survey.
-
-  @author  sebastian@arsdigita.com
-  @date    July 2000
-  @cvs-id  $Id: responses-export.vuh,v 1.2 2005/03/14 14:17:12 rob Exp $
-
-} {
-
-  survey_id:integer,notnull
-  {unique_users_p f}
-  on_what_id:optional,integer
-  {start:naturalnum 1}
-  {end:naturalnum 10000}
-  {anonymous_p f}
-}
-set csv_export ""
-set package_id [ad_conn package_id]
-ad_require_permission $package_id admin
-
-set n_responses [db_string get_n_responses {}]
-
-if {$n_responses==0} {
-    get_survey_info -survey_id $survey_id
-    set context_bar [ad_context_bar [list "one?[export_url_vars survey_id]" $survey_info(name)] "CSV Export"]
-
-    set args [list [list survey_id $survey_id] [list survey_name $survey_info(name)] [list context_bar $context_bar]]
-
-    ad_return_exception_template -status 200 -params $args "no-responses"
-    return
-}
-
-set question_id_list [list]
-set responses_table survey_responses
-
-set headline "email,first_names,last_name,user_id,submission_date,response_id"
-
-db_foreach get_question_data_types {} {
-    lappend question_id_list $question_id
-    regsub -all {"} $question_text {""} question_text
-    append headline ",\"$question_text"
-    append headline "\""
-    set question_data_type($question_id) $abstract_data_type
-    switch -- $abstract_data_type {
-	"date" {
-	    set question_column($question_id) "date_answer"
-	}
-	"text" {
-	    set question_column($question_id) "clob_answer"
-	}
-	"shorttext" {
-	    set question_column($question_id) "varchar_answer"
-	}
-	"boolean" {
-	    set question_column($question_id) "boolean_answer"
-	}
-	"integer" -
-	"number" {
-	    set question_column($question_id) "number_answer"
-	}
-	"choice" {
-	    set question_column($question_id) "label"
-	}
-	"blob" {
-	    set question_column($question_id) "attachment_answer"
-	}
-	default {
-	    set question_column($question_id) "varchar_answer"
-	}
-    }
-
-}
-
-#  We're looping over all question responses in survey_question_responses
-
-set current_response_id ""
-set current_response ""
-set current_question_id -1
-set current_question_list [list]
-set csv_export ""
-set r 0
-ReturnHeaders "application/csv"
-ns_write "$headline \r\n"
-
-if {$anonymous_p=="t"} {
-    set query get_all_survey_question_responses_anonymous
-} else {
-    set query get_all_survey_question_responses
-}
-db_foreach $query "" {
-    
-    if { $response_id != $current_response_id } {
-	if {$current_question_id!="-1" } {
-	    append current_response ",\"[join $current_question_list ","]\""
-	}
-	
-	if { ![empty_string_p $current_response_id] } {
-	    append csv_export "$current_response \r\n"
-	}
-	set current_response_id $response_id
-	set one_response [list $email $first_names $last_name $user_id $creation_date $response_id]
-	regsub -all {"} $one_response {""} one_response
-	set current_response "\"[join $one_response {","}]\""
-
-	set current_question_id "-1"
-	set current_question_list [list]
-    }
-
-      if {[info exists question_column($question_id)]} {
-          set response_value [set $question_column($question_id)]
-      }
-      #  Properly escape double quotes to make Excel & co happy
-      regsub -all {"} $response_value {""} response_value
-	
-      #  Remove any CR or LF characters that may be present in text fields
-      regsub -all {[\r\n]} $response_value {} response_value
-
-      if { $question_id != $current_question_id || $current_question_id=="" } {
-  	if { $current_question_id!="-1" } {
-  	    append current_response ",\"[join $current_question_list ","]\""
-  	}
-  	set current_question_id $question_id
-  	set current_question_list [list]
-      }
-       # decode boolean answers
-	if {[info exists question_data_type($question_id)] && $question_data_type($question_id)=="boolean"} {
-	    set response_value [survey_decode_boolean_answer -response $response_value -question_id $question_id]
-	}
-	if {[info exists question_data_type($question_id)] && $question_data_type($question_id)=="blob"} {
-	    set response_value [db_string get_filename {} -default ""]
-	}
-      lappend current_question_list $response_value
-	
-	incr r
-	if {$r>99} {
-	    ns_write "${csv_export}"
-	    set csv_export ""
-	    set r 0
-	}
-
-    }
-
-  if { ![empty_string_p $current_question_id] } {
-      append current_response ",\"[join $current_question_list ","]\""
-  }
-  if { ![empty_string_p $current_response_id] } {
-     append csv_export "$current_response\r\n"
-  }
-    if {[empty_string_p $csv_export]} {
-	set csv_export "\r\n"
-    }
-    ns_write $csv_export
-
-ns_conn close
-